Pass all glyph data through to template

Shinmera · Oct 9, 2023 · 2fc1a5a · 2fc1a5a
1 parent 7cedbf9
commit 2fc1a5a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/compile.lisp b/compile.lisp
@@ -15,9 +15,9 @@ exec sbcl --noinform --disable-debugger --load "$0" --eval '(fixup)' --eval '(ge
   (let ((sections (make-hash-table :test 'equal)))
     (loop for glyph across (with-open-file (stream file)
                              (shasht:read-json stream))
-          do (push (list :code (gethash "code" glyph)
-                         :codepoint (gethash "codepoint" glyph)
-                         :name (gethash "name" glyph))
+          do (push (loop for k being the hash-keys of glyph using (hash-value v)
+                         collect (intern (string-upcase k) "KEYWORD")
+                         collect v)
                    (gethash (gethash "category" glyph) sections)))
     (loop for name being the hash-keys of sections
           for glyphs being the hash-values of sections

diff --git a/index.ctml b/index.ctml
@@ -137,7 +137,7 @@
         <section class="glyphsection" lquery="(attr :id name)">
           <h2 lquery="(text name)"></h2>
           <c:splice iterate="glyphs">
-            <div class="glyph">
+            <div class="glyph" lquery="(data :category category :tags tags :code code :name name)">
               <i lquery='(html (code-char codepoint))'>&#x0021;</i>
               <code lquery='(text code)'>U+0021</code>
               <span lquery="(text name)">!</span>
@@ -185,6 +185,9 @@
           query = query.trim().toLowerCase();
           if(query === "") return true;
           let inner = el.innerText.toLowerCase();
+          for(let k in el.dataset){
+              inner += " "+k+":"+el.dataset[k].toLowerCase();
+          }
           for(let part of query.split(/ +/)){
               if(!inner.includes(part))
                   return false;