app/demo: experimental: keep app running until ctrl-c/kill signal

app/demo/main.lisp

@@ -13,12 +13,23 @@
 
 (in-package :scopes/app/demo)
 
+(defvar *quit-queue* (lparallel.queue:make-queue :fixed-capacity 1))
+
 (defun main()
+  ;(setf (trivial-signal:signal-handler :int) #'quit-handler)
+  ;(setf (trivial-signal:signal-handler :term) #'quit-handler)
   (let ((config-path (util:relative-path "config" "etc")))
     (format t "~%Hello World.~%config-path: ~s~%" config-path)
     (load config-path))
-  (core:setup-services)
+  (unwind-protect 
-  ;(setf forge:*forge-env* (forge:forge-env))
+    (progn
-  ;(forge:setup-builtins)
+      (core:setup-services)
-  (forge:repl)
+      ;(setf forge:*forge-env* (forge:forge-env))
-  (core:shutdown))
+      ;(forge:setup-builtins)
+      ;(forge:repl)
+      (lparallel.queue:pop-queue *quit-queue*))
+    (core:shutdown)))
+
+(defun quit-handler (sig)
+  (format t "~%quit-handler: got signal ~s~%" sig)
+  (lparallel.queue:push-queue sig))

app/demo/scopes-demo.asd

@@ -6,7 +6,7 @@
   :version "0.0.1"
   :homepage "https://www.cyberconcepts.org"
   :description ""
-  :depends-on (:scopes)
+  :depends-on (:scopes :lparallel :trivial-signal)
   :components ((:file "main"))
   :build-operation "program-op"
   :build-pathname "bin/demo"

test/test-web.lisp

@@ -47,8 +47,7 @@
       (format nil 
               "<a href=\"https://example.com\" title=\"Demo\" ~
                   class=\"demo-link plain\">Link to example.com</a>"))
-  (== (dom:render (dom:br nil))
+  (== (dom:render (dom:br)) (format nil "<br>")))
-      (format nil "<br>")))
 
 (deftest test-jwt ()
   (let ((secret (crypt:create-secret))

web/dom.lisp

@@ -49,8 +49,7 @@
 (defmethod put ((el element))
   (let ((tag (tagname el)))
     (start tag (attrs el))
-    (dolist (c (body el))
+    (put (body el))
-      (put c))
     (end tag)))
 
 (defun elem (tag &optional attrs body)
@@ -74,7 +73,7 @@
 (defmacro make-elements (tags &optional (elem-fn 'elem))
   `(progn
      ,@(mapcar (lambda (tag) ;`(make-element ,tag)) tags)))
-                 `(defun ,tag (attrs &rest body)
+                 `(defun ,tag (&optional attrs &rest body)
                    (funcall (function ,elem-fn) ',tag attrs body)))
                tags)))