15 lines
1.1 KiB
Common Lisp
15 lines
1.1 KiB
Common Lisp
(defun html ()
|
|
(page "blogosphere"
|
|
`((section ()
|
|
(h1 () "my subunit of the blogosphere")
|
|
(h2 () "this is currently broken because I am a fool")
|
|
"I do not know if I will use this, but I was bored and thus have made a blog system")
|
|
(section ()
|
|
(h2 () "posts")
|
|
(table ()
|
|
(tbody ()
|
|
(tr () (th () (p () "title")) (th () (p () "editted")) (th () (p () "posted")) (th () (p () "size")))
|
|
(tr () (th (:colspan 4) (hr)))
|
|
,(exec-command "for file in $(ls ./site/html/blog/posts --time=creation); do echo \"<tr><td><a href=\\\"/html/blog/posts/$file\\\">$file</a></td><td>$(stat -c %y site/html/blog/posts/$file | head -c 16)</td><td><p>$(stat -c %y site/html/blog/posts/$file | head -c 10)</p></td><td align=\\\"right\\\">$(numfmt --to=iec --suffix=B $(stat -c %s \"site/html/blog/posts/$file\"))</td></tr>\"; done | sed 's/\\\/\\\//\\\//g'")
|
|
(tr () (th (:colspan 4)))))))))
|