nat/htmlgen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add 88x31 source code to home page

Browse Source
This commit is contained in:
gnat 2025-01-11 20:31:57 -08:00
parent 9bea8d64f9
commit 7355435b6c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/home.lisp
View File

@ -36,7 +36,13 @@
,(exec-command "tree . | sed 's/^\\./site/; s/─/-/g; s/├/|/g; s/└/\\\\/g; s/│/|/g' | sed '1i<pre>' | sed '$a</pre>'")))
(section ()
(h2 () "88x31 collection")
(span () ,(exec-command "for file in ./files/88x31/*; do (file -i \"$file\" | grep -qE 'image/') && echo \"<img src=\\\"$file\\\" alt=\\\"88x31 $(basename ${file})\\\" width=88 height=31/>\" || cat \"$file\"; done | shuf")))
(span () ,(exec-command "for file in ./files/88x31/*; do (file -i \"$file\" | grep -qE 'image/') && echo \"<img src=\\\"$file\\\" alt=\\\"88x31 $(basename ${file})\\\" width=88 height=31/>\" || cat \"$file\"; done | shuf"))
(h3 () "propagate its 88x31")
(code () "
<span class=\"-tag-delimiter\">&lt;</span><span class=\"-tag\">a</span> <span class=\"-tag-attribute\"><span class=\"-_attr\">href</span></span><span class=\"Operator\">=</span><span class=\"String\">&quot;<span class=\"Underlined\">https://natalieee.net/</span>&quot;</span><span class=\"-tag-delimiter\">&gt;</span><br>
&emsp;<span class=\"-tag-delimiter\">&lt;</span><span class=\"-tag\">img</span> <span class=\"-tag-attribute\"><span class=\"-_attr\">src</span></span><span class=\"Operator\">=</span><span class=\"String\">&quot;<span class=\"Underlined\">https://natalieee.net/files/natalieee.net.png</span>&quot;</span> <span class=\"-tag-attribute\">alt</span><span class=\"Operator\">=</span><span class=\"String\">&quot;natalieee.net&quot;</span> <span class=\"-tag-attribute\">width</span><span class=\"Operator\">=</span><span class=\"String\">&quot;88&quot;</span> <span class=\"-tag-attribute\">height</span><span class=\"Operator\">=</span><span class=\"String\">&quot;31&quot;</span><span class=\"-tag-delimiter\">&gt;</span><br>
<span class=\"-tag-delimiter\">&lt;/</span><span class=\"-tag\">a</span><span class=\"-tag-delimiter\">&gt;</span>")
(p () "one must!"))
(section ()
(h2 () "post arbitrary data to be displayed here")
"yes, it does sanitize this" (a (:href "/html/unnamed-friend-entity-hack-1.html") "<del>(No you don't --sanitization tester)</del>") "yes, it does")