giles
4f02f82f4e
Parser: skip unit suffix when next ident is a comparison keyword (starts, ends, contains, matches, is, does, in, precedes, follows). Fixes "123 starts with '12'" returning "123starts" instead of true. eval-hs: use hs-compile directly instead of hs-to-sx-from-source with "return " prefix, which was causing the parser to consume the comparison as a string suffix. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
32 lines
1.1 KiB
Plaintext
32 lines
1.1 KiB
Plaintext
;; Side-by-side htmx ↔ hyperscript translation display
|
|
(defcomp
|
|
(&key htmx-html hs-source description)
|
|
(div
|
|
(~tw :tokens "border border-gray-200 rounded-lg overflow-hidden mb-6")
|
|
(when
|
|
description
|
|
(div
|
|
(~tw :tokens "px-4 py-2 bg-gray-50 border-b border-gray-200")
|
|
(p (~tw :tokens "text-sm font-medium text-gray-700") description)))
|
|
(div
|
|
(~tw :tokens "grid grid-cols-2 divide-x divide-gray-200")
|
|
(div
|
|
(~tw :tokens "p-4")
|
|
(h4
|
|
(~tw
|
|
:tokens "text-xs font-semibold uppercase tracking-wide text-gray-400 mb-2")
|
|
"htmx")
|
|
(pre
|
|
(~tw
|
|
:tokens "bg-stone-100 text-gray-900 p-3 rounded text-sm font-mono overflow-x-auto whitespace-pre")
|
|
htmx-html))
|
|
(div
|
|
(~tw :tokens "p-4")
|
|
(h4
|
|
(~tw
|
|
:tokens "text-xs font-semibold uppercase tracking-wide text-violet-400 mb-2")
|
|
"_hyperscript")
|
|
(pre
|
|
(~tw
|
|
:tokens "bg-stone-100 text-gray-900 p-3 rounded text-sm font-mono overflow-x-auto whitespace-pre")
|
|
hs-source))))) |