Fixed tests and docs.

qlfile.lock

@@ -5,4 +5,4 @@
 ("ultralisp" .
  (:class qlot/source/dist:source-dist
   :initargs (:distribution "http://dist.ultralisp.org" :%version :latest)
-  :version "20230406120500"))
+  :version "20230527224500"))

src/actions.lisp

@@ -1,6 +1,7 @@
 (uiop:define-package #:reblocks/actions
   (:use #:cl)
   (:import-from #:log)
+  (:import-from #:yason)
   (:import-from #:reblocks/app
                 #:get-prefix
                 #:get-prefix-actions)

src/doc/page.lisp

@@ -3,6 +3,7 @@
   (:import-from #:40ants-doc
                 #:defsection)
   (:import-from #:reblocks/page
+                #:find-widget-by-id
                 #:page
                 #:init-page
                 #:on-page-refresh
@@ -89,6 +90,7 @@ then you should wrap all changing code in WITH-METADATA-LOCK macro.
   (current-page function)
   (get-page-by-id function)
   (in-page-context-p function)
+  (find-widget-by-id function)
 
   (ensure-page-metadata macro)
   (with-metadata-lock macro)

src/page.lisp

@@ -606,6 +606,7 @@
 
 
 (defun register-widget (widget)
-  (setf (gethash (dom-id widget)
-                 (id-to-widget (current-page)))
-        widget))
+  (when (in-page-context-p)
+    (setf (gethash (dom-id widget)
+                   (id-to-widget (current-page)))
+          widget)))