repos
/
Oh, Ducks!
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Status commit
Annotate for file /chtml.lisp
2009-11-18 pix
1
(in-package #:oh-ducks)
10:23:05 '
2
'
3
;; avoid conflicting with 'sgml:pt
'
4
(eval-when (:compile-toplevel :load-toplevel :execute)
'
5
(import 'closure-html:pt))
'
6
(eval-when (:compile-toplevel :load-toplevel :execute)
'
7
(export 'pt)
'
8
(export 'lhtml))
'
9
2009-11-21 pix
10
(defclass html-template (css-selector-template) ())
2009-11-18 pix
11
2009-11-21 pix
12
(add-handler 'pt 'chtml:make-pt-builder)
16:12:13 '
13
(add-handler 'lhtml 'chtml:make-lhtml-builder)
2009-11-18 pix
14
2009-11-21 pix
15
(unless *default-parser*
16:12:13 '
16
(setf *default-parser* (rcurry #'chtml:parse (get-handler-for-model 'pt))))
2009-11-18 pix
17
2009-11-21 pix
18
(defmethod make-template ((kind (eql 'html)) (spec cons))
16:12:13 '
19
(destructuring-bind (&key parser model)
'
20
(append (when (%spec-includes-opts spec) (second spec))
'
21
(list :model 'pt))
'
22
(make-instance 'html-template
'
23
:parser (or parser (rcurry #'chtml:parse (get-handler-for-model model)))
'
24
:spec spec)))
2009-11-18 pix
25