view release on metacpan or  search on metacpan

share/lisp/quoi/default_template.clp  view on Meta::CPAN

(ns quoi

  (defmacro default-template [title xml]
    `(fn [S]
      #[html
      ^{:xmlns "http://www.w3.org/1999/xhtml"}
      #[head
         #[meta ^{:http-equiv "content-type" :content "text/html; charset=UTF-8"}]
         #[meta ^{:name "description" :content ""}]
         #[meta ^{:name "keywords" :content ""}]
         #[title ~title]
         #[script ^{:id "jquery"
                    :src "/javascripts/jquery-1.9.1.min.js"
                    :type "text/javascript"}]
         #[link ^{:href "/stylesheets/markdown.css"
                  :rel "stylesheet"}]
         #[link ^{:href "/stylesheets/superfish.css"
                  :media "screen"