mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 02:30:38 -08:00
39 lines
841 B
Common Lisp
39 lines
841 B
Common Lisp
(in-package :qml-user)
|
|
|
|
(pushnew :qt-plugin *features*)
|
|
|
|
(require :asdf)
|
|
|
|
(asdf:load-system :cl-ppcre)
|
|
|
|
(push (merge-pathnames "./")
|
|
asdf:*central-registry*)
|
|
|
|
(push :depends-loaded *features*)
|
|
|
|
(asdf:operate 'asdf:load-source-op :app)
|
|
|
|
(qset *quick-view*
|
|
|x| 0
|
|
|y| 0)
|
|
|
|
(defun option (name)
|
|
(find name (ext:command-args) :test 'search))
|
|
|
|
;;; use app to send code to e.g. Arduino uLisp connected to USB
|
|
|
|
#+unix
|
|
(when (option "-ulisp")
|
|
(setf ed:*ulisp-mode* t))
|
|
|
|
;;; trivial auto reload of all QML files after saving any change
|
|
|
|
(when (option "-auto")
|
|
(load "lisp/qml-reload/auto-reload"))
|
|
|
|
;;; for Slime after copying 'lqml-start-swank.lisp' from LQML sources
|
|
;;; to your Slime directory, which is assumed to be '~/slime/'
|
|
|
|
(when (option "-slime")
|
|
(load "~/slime/lqml-start-swank")) ; for 'slime-connect' from Emacs
|
|
|