This commit is contained in:
Akira Tempaku 2024-11-16 20:37:45 +09:00
commit 0602391977
4 changed files with 17 additions and 8 deletions

View file

@ -7,16 +7,19 @@
#:*app*)
(:export #:start
#:stop
#:update))
#:reload))
(in-package #:hp)
(defun start ()
(jg:start *app*))
(jg:start *app*)
(when (env:dev-mode-p)
(uiop:run-program (format nil "open http://~a:~a"
env:*address* env:*port*))))
(defun stop ()
(jg:stop *app*))
(defun update ()
(defun reload ()
(stop)
(ql:quickload :hp/app)
(start))