37 lines
825 B
Common Lisp
37 lines
825 B
Common Lisp
(defpackage :app
|
|
(:use :cl :eql)
|
|
(:export #:start))
|
|
(in-package :app)
|
|
|
|
(qrequire :quick)
|
|
|
|
(defun sym (symbol package)
|
|
(intern (symbol-name symbol) package))
|
|
|
|
#+app-repl
|
|
(defun start-slynk ()
|
|
(unless (find-package :slynk)
|
|
(require :ecl-quicklisp)
|
|
(funcall (sym 'quickload :ql) :slynk))
|
|
(funcall (sym 'create-server :slynk)
|
|
:interface "0.0.0.0" :port 4005 :dont-close t :style :spawn))
|
|
|
|
#+app-repl
|
|
(defun stop-slynk ()
|
|
(when (find-package :slynk)
|
|
(funcall (sym 'stop-server :slynk) 4005)))
|
|
|
|
(defun start ()
|
|
#+app-repl
|
|
(start-slynk)
|
|
(qconnect qml:*quick-view* "statusChanged(QQuickView::Status)"
|
|
(lambda (status)
|
|
(case status
|
|
(#.|QQuickView.Ready|
|
|
(qml-reloaded))))))
|
|
|
|
(defun qml-reloaded ()
|
|
;; re-ini
|
|
)
|
|
|
|
(qlater #'start)
|