lispnik

#+(and asdf darwin)
(defmethod asdf:perform :after ((o asdf:load-op) (c (eql (asdf:find-system "cffi"))))
  (let ((library-directories (intern "*FOREIGN-LIBRARY-DIRECTORIES*" (find-package "CFFI"))))
    (set library-directories
         (cons #p"/opt/local/lib/" (symbol-value library-directories)))))

lispnik

(ql:quickload "sdl2")
(ql:quickload "sdl2-image")

(defun run ()
  (sdl2:with-init (:everything)
    (sdl2:with-window (win :flags '(:shown))
      (sdl2:with-renderer (renderer win :flags '(:renderer-accelerated))
        (let* ((surface-frames 23)
               (surface (sdl2-image:load-image "out.png"))
               (texture (sdl2:create-texture-from-surface renderer surface))

lispnik

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload '("iup" "chanl" "bordeaux-threads")))

(defpackage #:iup-examples.listener
  (:use #:common-lisp)
  (:export #:listener))

(in-package #:iup-examples.listener)

(defvar *idle-action-lock* (bt:make-lock "idle-action"))

lispnik

(sb-ext:restrict-compiler-policy 'debug 3)
(sb-ext:set-sbcl-source-location (merge-pathnames ".local/src/sbcl" (user-homedir-pathname)))

#-quicklisp
(let ((quicklisp-init (merge-pathnames "Quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))

(ql:quickload "cffi")

lispnik

(defvar *connection-pool*
  (anypool:make-pool :name "dbi-connections"
                     :connector (lambda ()
                                  (dbi:connect :postgres
                                               :database-name (uiop:getenv "POSTGRES_DATABASE_NAME")
                                               :host (uiop:getenv "POSTGRES_HOST")
                                               :port (parse-integer (uiop:getenv "POSTGRES_PORT"))
                                               :username (uiop:getenv "POSTGRES_USERNAME")
                                               :password (uiop:getenv "POSTGRES_PASSWORD")))
                     :disconnector #'dbi:disconnect

lispnik

(ql:quickload '("clack" "lack" "lack-middleware-mount" "cl-dotenv" "quri" "uuid" "dexador" "jsown"))

(defpackage #:example
  (:use #:common-lisp))

(in-package #:example)

(.env:load-env (merge-pathnames ".env"))

(defvar *okta-authorize-uri* (quri:uri (uiop:getenv "OKTA_AUTHORIZE_URI")))

lispnik

Notes on Building Tecgraf Libraries on CentOS 7

sudo yum install -y epel-release svn perl make gcc gcc-c++ \
     webkitgtk3-devel lua-devel lua-static fftw-devel \
     redhat-lsb mesa-libGLU-devel

lispnik

My macOS Toolbox

* https://brew.sh
** https://github.com/railwaycat/homebrew-emacsmacport
* https://www.hammerspoon.org
* https://karabiner-elements.pqrs.org
* https://rectangleapp.com
* https://postgresapp.com
* https://www.jetbrains.com/toolbox-app/
* https://github.com/nvm-sh/nvm

lispnik

(defun position-all (item sequence)
  (loop :for i := (position item sequence) 
          :then (position item sequence :start (1+ i))
        :while i
        :while (< (length sequence))
        :collect i))