HS: fix empty/halt/morph/reset/dialog — 17 upstream tests pass

- parser `empty` no-target → (ref "me") (was bogus (sym "me"))
- parser `halt` modes distinguish: "all"/"bubbling"/"default" halt execution
  (raise hs-return), "the-event"/"the event's" only stop propagation/default.
  "'s" now matched as op token, not keyword.
- parser `get` cmd: dispatch + cmd-kw list + parse-get-cmd (parses expr with
  optional `as TYPE`). Required for `get result as JSON` in fetch chains.
- compiler empty-target for (local X): emit (set! X (hs-empty-like X)) so
  arrays/sets/maps clear the variable, not call DOM empty on the value.
- runtime hs-empty-like: container-of-same-type empty value.
- runtime hs-empty-target!: drop dead FORM branch that was short-circuiting
  to innerHTML=""; the querySelectorAll-over-inputs branch now runs.
- runtime hs-halt!: take ev param (was free `event` lookup); raise hs-return
  to stop execution unless mode is "the-event".
- runtime hs-reset!: type-aware — FORM → reset, INPUT/TEXTAREA → value/checked
  from defaults, SELECT → defaultSelected option.
- runtime hs-open!/hs-close!: toggle `open` attribute on details elements
  (not just the prop) so dom-has-attr? assertions work.
- runtime hs-coerce JSON: json-stringify dict/list (was str).
- test-runner mock: host-get on List + "length"/"size" (was only Dict);
  dom-set-attr tracks defaultChecked / defaultSelected / defaultValue;
  mock_query_all supports comma-separated selector groups.
- generator: emit boolean attrs (checked/selected/etc) even with null value;
  drop overcautious "skip HS with bare quotes or embedded HTML" guard so
  morph tests (source contains embedded <div>) emit properly.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>

lib/hyperscript/parser.sx

@@ -1205,14 +1205,33 @@
                 (adv!)
                 (let
                   ((source (if (match-kw "from") (parse-expr) nil)))
-                  (if
-                    source
-                    (list (quote wait-for) event-name :from source)
-                    (list (quote wait-for) event-name)))))
+                  (let
+                    ((timeout-dur (if (match-kw "or") (if (= (tp-type) "number") (let ((tok (adv!))) (let ((raw (get tok "value")) (suffix (if (and (= (tp-type) "ident") (or (= (tp-val) "ms") (= (tp-val) "s"))) (get (adv!) "value") ""))) (parse-dur (str raw suffix)))) nil) nil)))
+                    (cond
+                      ((and source timeout-dur)
+                        (list
+                          (quote wait-for)
+                          event-name
+                          :from source
+                          :or timeout-dur))
+                      (source
+                        (list (quote wait-for) event-name :from source))
+                      (timeout-dur
+                        (list (quote wait-for) event-name :or timeout-dur))
+                      (true (list (quote wait-for) event-name)))))))
             ((= (tp-type) "number")
               (let
                 ((tok (adv!)))
-                (list (quote wait) (parse-dur (get tok "value")))))
+                (let
+                  ((raw (get tok "value"))
+                    (suffix
+                      (if
+                        (and
+                          (= (tp-type) "ident")
+                          (or (= (tp-val) "ms") (= (tp-val) "s")))
+                        (get (adv!) "value")
+                        "")))
+                  (list (quote wait) (parse-dur (str raw suffix))))))
             (true (list (quote wait) 0)))))
       (define
         parse-detail-dict
@@ -1337,7 +1356,7 @@
         (fn
           ()
           (let
-            ((tgt (cond ((and (= (tp-type) "ident") (= (tp-val) "element")) (do (adv!) (parse-atom))) ((= (tp-type) "id") (parse-atom)) ((= (tp-type) "class") (parse-atom)) ((= (tp-type) "selector") (parse-atom)) (true nil))))
+            ((tgt (cond ((and (= (tp-type) "ident") (= (tp-val) "element")) (do (adv!) (parse-atom))) ((and (= (tp-type) "keyword") (= (tp-val) "its")) (do (adv!) (list (quote ref) "it"))) ((= (tp-type) "id") (parse-atom)) ((= (tp-type) "class") (parse-atom)) ((= (tp-type) "selector") (parse-atom)) (true nil))))
             (define
               parse-one-transition
               (fn
@@ -1473,18 +1492,7 @@
                   (if (= (tp-type) "comma") (adv!) nil)
                   (ca-collect (append acc (list arg)))))))
           (ca-collect (list))))
-      (define
-        parse-call-cmd
-        (fn
-          ()
-          (let
-            ((name (get (adv!) "value")))
-            (if
-              (= (tp-type) "paren-open")
-              (let
-                ((args (parse-call-args)))
-                (cons (quote call) (cons name args)))
-              (list (quote call) name)))))
+      (define parse-call-cmd (fn () (parse-expr)))
       (define parse-get-cmd (fn () (parse-expr)))
       (define
         parse-take-cmd
@@ -1841,7 +1849,7 @@
         (fn
           ()
           (let
-            ((mode (cond ((match-kw "the") (do (match-kw "event") (match-kw "'s") "event")) ((or (match-kw "default") (and (= (tp-val) "default") (do (adv!) true))) "default") ((or (match-kw "bubbling") (and (= (tp-val) "bubbling") (do (adv!) true))) "bubbling") (true "event"))))
+            ((mode (cond ((match-kw "the") (do (match-kw "event") (when (and (= (tp-type) "op") (= (tp-val) "'s")) (adv!)) "the-event")) ((or (match-kw "default") (and (= (tp-val) "default") (do (adv!) true))) "default") ((or (match-kw "bubbling") (and (= (tp-val) "bubbling") (do (adv!) true))) "bubbling") (true "all"))))
             (list (quote halt!) mode))))
       (define
         parse-param-list
@@ -1965,7 +1973,7 @@
         (fn
           ()
           (let
-            ((target (cond ((at-end?) (list (quote sym) "me")) ((and (= (tp-type) "keyword") (or (= (tp-val) "then") (= (tp-val) "end"))) (list (quote sym) "me")) (true (parse-expr)))))
+            ((target (cond ((at-end?) (list (quote ref) "me")) ((and (= (tp-type) "keyword") (or (= (tp-val) "then") (= (tp-val) "end"))) (list (quote ref) "me")) (true (parse-expr)))))
             (list (quote empty-target) target))))
       (define
         parse-swap-cmd