| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124 |
- ;;;; templates.lisp
- (in-package #:genie)
- ;;; "templates" goes here. Hacks and glory await!
- (defmacro define-html-template (name input &optional docstring)
- (let* ((old-name name)
- (name (intern (string-upcase old-name)))
- (docstring (if docstring
- docstring
- (format nil "Template caller for ~a, as ~a" old-name name)))
- (input (merge-pathnames input (asdf:system-source-directory '#:genie))))
- `(defun ,name (&rest args)
- ,docstring
- (with-output-to-string (*standard-output*)
- (funcall (create-template-printer ,input) args)))))
- (defmacro generate-static (name filename type script)
- (declare (string filename)
- (symbol type)
- (type (or string symbol) name))
- (let* ((name (intern (string-upcase name)))
- (type (getf (list :js "application/javascript"
- :javascript "application/javascript"
- :css "text/css")
- type)))
- `(define-route ,name (,filename
- :content-type ,type)
- ,script)))
- (defmacro define-css-page (name filename &rest body)
- (let* ((name (intern (string-upcase filename)))
- (css-chunks (map 'list #'compile-and-write body))
- (css (format nil "~{~a~^~%~%~}" css-chunks)))
- `(generate-static ,name
- ,filename
- :css
- ,css)))
- (defmacro define-js-page (name filename &rest script)
- (let ((name (intern (string-upcase filename))))
- `(generate-static ,name
- ,filename
- :javascript
- (ps ,@script))))
- (setq parenscript:*js-string-delimiter* #\")
- (setq html-template:*string-modifier* #'cl:identity)
- (define-css-page main.css "main.css"
- (*
- :margin 0
- :padding 0
- :font-family "Georgia, Palantino, Times, 'Times New Roman', sans-serif")
- (body
- :backgroud "#fff")
- (a
- :text-decoration "none")
- ("a:link, a:visited"
- :color "#f30")
- ("a:hover"
- :color "#f90")
- (div.main-content
- :position "absolute"
- :top "40px"
- :left "280px"
- :width "500px"
- (h1
- :font-size "40px"
- :font-weight "normal"
- :line-height "43px"
- :letter-spacing "-1px")
- (div.results
- :margin-top "20px"
- (ul
- :list-style-type "none")
- (li
- :font-size "18px"
- :line-height "24px"
- :margin-left "70px"))
- (div.page-list
- :text-align "center"
- :float "bottom")
- (dl
- :margin-top "10px")
- (dt
- :font-size "18px"
- :font-weight "bold")
- (dd
- :margin-left "20px"
- :margin-bottom "15px"))
- (div.nav
- :position absolute
- :top "40px"
- :left "20px"
- :width "200px"
- :padding "20px 20px 0 0"
- :border-right "1px solid #ccc"
- :text-align "right"
- (h2
- :text-transform "uppercase"
- :font-size "13px"
- :color "#333"
- :letter-spacing "1px"
- :line-height "20px"
- (a
- :color "#333"))
- (ul
- :list-style-type "none"
- :margin "20px 0")
- (li
- :font-size "14px"
- :line-height "20 px")
- (hr
- :height "1px"
- :color "#ccc"
- :margin-top "5px"
- :margin-bottom "5px")))
- (define-html-template main-page "mainpage.httmpl")
- (define-html-template person-page "view-person.httmpl")
|
