;;; -*- lexical-binding: t -*- ;; ;; ----------------------------------------------------------------------------- ;; this file: ;; https://dataswamp.org/~incal/emacs-init/draw/draw.el ;; ----------------------------------------------------------------------------- (require 'cl-lib) (cl-pushnew (expand-file-name ".") load-path :test #'string=) (cl-pushnew (expand-file-name "ll" "..") load-path :test #'string=) (require 'luki-lisp) ;; ----------------------------------------------------------------------------- (let ((dm "draw.so")) (load dm nil t) (declare-function sdl2_init dm)) ;; ----------------------------------------------------------------------------- (defun sdl2-init () ($ "[sdl2] init") (sdl2_init "SDL2 & GNU Emacs") ($ "[sdl2] done")) ;; ----------------------------------------------------------------------------- (<- 'draw) ;; -----------------------------------------------------------------------------