(load "lisp2html.lisp")
(html->file ("lisp2html.html")
(title "Lisp2HTML -" " Write Lisp to write HTML+CSS")
(subtitle "Lisp2HTML is a Lisp sublanguage to produce HTML pages.")
(section "intro" "Introduction"
(p "lisp2html is a Lisp sublanguage to produce HTML+CSS pages with a
style like this one.")
(p "For example, the code to produce this page is as follow (the full source is "
(a "explain.lisp" "here") "):")
(code (protect-html " (load \"lisp2html.lisp\")
(html->file (\"lisp2html.html\")
(title \"Lisp2HTML -\" \" Write Lisp to write HTML+CSS\")
(subtitle \"Lisp2HTML is a Lisp sublanguage to produce HTML pages.\")
(section \"intro\" \"Introduction\"
(p \"lisp2html is a Lisp sublanguage to produce HTML+CSS pages with a
style like this one.\")
(p \"The navigation sidebar is atomatically generated\"))
(section \"syntax\" \"Syntax\"
(p \"The defined function in lisp2html are as follow:\")
(itemize (protect-html \"First item (&rest) \")
\"Second item\"
...))
(section \"source\" \"Sources\"
(p \"The source code for lisp2html.lisp can be found here:\")
(itemize (group (a \"lisp2html.lisp\"))))
(section \"Licence\" \"Licence\"
(p \"lisp2html.lisp is under the \" (a \"http://www.gnu.org\"
\"GNU General Public License\")))
(footer (update-date) (br)
(a \"http://validator.w3.org/check?uri=referer\"
(img \"http://www.w3.org/Icons/valid-xhtml10\"
\"Valid XHTML 1.0 Strict\"
88 31))
(a \"lisp2html.html\"
(img \"lisplogo_flag_64.png\"
alt=\"Powered by Lisp\")))))
"))
(p "The navigation sidebar is atomatically generated"))
(section "syntax" "Syntax"
(p "The defined function in lisp2html are as follow:")
(itemize
(protect-html "title (&rest title): The main title. (The first argument is in gray).")
(protect-html "subtitle (&rest title): The part under the title")
(protect-html "a (href &rest string): Add a new link. The link title is string
if string is not nil, href in the other case.")
(protect-html "p (&rest lines): Begin a new paragraph")
(protect-html "section (id &rest line): begin a new section")
"br (): Begin a newline."
(protect-html "img (image alt &optional width height): Insert an image.")
(protect-html "itemize (&rest lines): Itemize each lines.")
(protect-html "code (&rest lines): Insert a code.")
(protect-html "group (&rest items): Group function together. Useful for example with the itemize function.")
(protect-html "footer (&rest line): Insert additional information in the footer section.")
(protect-html "update-date (&optional (lang :us)): Insert the build date.")
(protect-html "protect-html (string): Replace & with & < with < and so on...")))
(section "source" "Sources"
(p "The source code for lisp2html.lisp can be found here:")
(itemize (group (a "lisp2html.lisp")))
(p "To use it, just load it in your favorite Lisp and begin your document
with:")
(code " (load \"html2lisp.lisp\")
(html2file (\"filename.html\")
(title ...)
...)")
(section "Licence" "Licence")
(p "lisp2html.lisp is under the " (a "http://www.gnu.org" "GNU General Public License")))
(footer (update-date) (br)
(a "http://validator.w3.org/check?uri=referer"
(img "http://www.w3.org/Icons/valid-xhtml10"
"Valid XHTML 1.0 Strict"
88 31))
(a "/lisp2html/"
(img "lisplogo_flag_64.png"
"Powered by Lisp"))))