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>
9 lines
267 B
Plaintext
9 lines
267 B
Plaintext
(defcomp
|
|
(&key (target-id :as string) (text :as string))
|
|
(div
|
|
:id target-id
|
|
:sx-swap-oob "innerHTML"
|
|
(div
|
|
(~tw :tokens "not-prose bg-stone-100 rounded p-4 mt-3")
|
|
(pre (~tw :tokens "text-sm whitespace-pre-wrap break-words") (code text)))))
|