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