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>
25 lines
742 B
Plaintext
25 lines
742 B
Plaintext
(defcomp
|
|
(&key
|
|
(name :as string)
|
|
(value :as string)
|
|
(description :as string)
|
|
(href :as string?))
|
|
(tr
|
|
(~tw :tokens "border-b border-stone-100")
|
|
(td
|
|
(~tw :tokens "px-3 py-2 font-mono text-sm whitespace-nowrap")
|
|
(if
|
|
href
|
|
(a
|
|
:href href
|
|
:sx-get href
|
|
:sx-target "#sx-content"
|
|
:sx-select "#sx-content"
|
|
:sx-swap "outerHTML"
|
|
:sx-push-url "true"
|
|
(~tw :tokens "text-violet-700 hover:text-violet-900 underline")
|
|
name)
|
|
(span (~tw :tokens "text-violet-700") name)))
|
|
(td (~tw :tokens "px-3 py-2 font-mono text-sm text-stone-500") value)
|
|
(td (~tw :tokens "px-3 py-2 text-stone-700 text-sm") description)))
|