Improve
This commit is contained in:
parent
5a0e0016e9
commit
0602391977
4 changed files with 17 additions and 8 deletions
src
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue