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>
20 lines
701 B
Plaintext
20 lines
701 B
Plaintext
(defcomp
|
|
(&key filename title desc slug)
|
|
(div
|
|
(~tw :tokens "mb-6")
|
|
(div
|
|
(~tw :tokens "flex items-center justify-between")
|
|
(div
|
|
(h1 (~tw :tokens "text-2xl font-bold text-stone-800") title)
|
|
(p (~tw :tokens "text-sm text-stone-500 mt-1") desc))
|
|
(a
|
|
:href (str "/sx/(language.(spec." slug "))")
|
|
:sx-get (str "/sx/(language.(spec." slug "))")
|
|
:sx-target "#sx-content"
|
|
:sx-select "#sx-content"
|
|
:sx-swap "outerHTML"
|
|
:sx-push-url "true"
|
|
(~tw :tokens "text-sm text-violet-600 hover:text-violet-800 font-medium")
|
|
"View Source"))
|
|
(p (~tw :tokens "text-xs text-stone-400 font-mono mt-2") filename)))
|