Plaster
New
List
Login
common-lisp
default
anonymous
2024.03.14 15:23:57
(with-open-file (output #p"~/tmp/c.html" :direction :output :if-exists :supersede) (plump:serialize (clip:process #p"~/tmp/c.ctml" :html (cl-markless:output (cl-markless:parse #p"~/org/blog/drafts/cl-loop-and-keyword.mess" t) :format 'cl-markless-plump:plump)) output))
Raw
Annotate
Repaste
Edit
Annotations
html
default
anonymous
2024.03.14 15:24:54
<!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta charset="utf-8" /> <title>foo</title> </head> <body> <c:splice lquery="(html html)"></c:splice> </body> </html>
Raw
Repaste
Edit