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>
21 lines
593 B
Plaintext
21 lines
593 B
Plaintext
(defcomp
|
|
(&key section filename)
|
|
(let-match
|
|
{:defines defines :title title :comment comment}
|
|
section
|
|
(div
|
|
(~tw :tokens "mb-6")
|
|
(h2
|
|
(~tw
|
|
:tokens "text-base font-semibold text-stone-600 mb-2 border-b border-stone-200 pb-1")
|
|
:id (replace (lower title) " " "-")
|
|
title)
|
|
(when comment (p (~tw :tokens "text-sm text-stone-500 mb-2") comment))
|
|
(div
|
|
(~tw :tokens "space-y-0.5")
|
|
(map
|
|
(fn
|
|
(d)
|
|
(~specs-explorer/spec-explorer-define :d d :filename filename))
|
|
defines)))))
|