/[defdoc]/DefDoc/src/layout/html-engine.lisp
ViewVC logotype

Diff of /DefDoc/src/layout/html-engine.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by rjain, Sun Dec 7 23:27:07 2003 UTC revision 1.6 by rjain, Thu Oct 11 16:20:10 2007 UTC
# Line 22  modifying this variable to include a BAS Line 22  modifying this variable to include a BAS
22  text, e.g.")  text, e.g.")
23    
24  (defvar *document-title*)  (defvar *document-title*)
25    (defvar *document-subtitle*)
26    
27  (defvar *html-stream*)  (defvar *html-stream*)
28    
# Line 202  arglist for WRITE-HTML-TAG." Line 203  arglist for WRITE-HTML-TAG."
203    
204  (defmethod convert ((input toplevel-element) (output html-output))  (defmethod convert ((input toplevel-element) (output html-output))
205    (with-accessors ((title title)    (with-accessors ((title title)
206                       (subtitle subtitle)
207                     (author author)                     (author author)
208                     (date date)                     (date date)
209                     (copyright copyright)) input                     (copyright copyright)) input
# Line 210  arglist for WRITE-HTML-TAG." Line 212  arglist for WRITE-HTML-TAG."
212                 (let ((*suppress-html-tags* t))                 (let ((*suppress-html-tags* t))
213                   (convert element output)))))                   (convert element output)))))
214        (let ((*html-head-elements* *html-head-elements*)        (let ((*html-head-elements* *html-head-elements*)
215              (*document-title* title))              (*document-title* title)
216                (*document-subtitle* subtitle))
217          (when author          (when author
218            (push (list :META :NAME "Author" :CONTENT (convert-to-string author))            (push (list :META :NAME "Author" :CONTENT (convert-to-string author))
219                  *html-head-elements*))                  *html-head-elements*))
# Line 231  arglist for WRITE-HTML-TAG." Line 234  arglist for WRITE-HTML-TAG."
234        (with-html-block+ (0 :mandatory :HTML)        (with-html-block+ (0 :mandatory :HTML)
235          (with-html-block+ (1 :mandatory :HEAD)          (with-html-block+ (1 :mandatory :HEAD)
236            (with-html-block (:TITLE)            (with-html-block (:TITLE)
237              (convert-to-text *document-title*))              (convert-to-text *document-title*)
238                (when *document-subtitle*
239                  (write-string " - " *html-stream*)
240                  (convert-to-text *document-subtitle*)))
241            (dolist (element *html-head-elements*)            (dolist (element *html-head-elements*)
242              (pprint-newline :linear *html-stream*)              (pprint-newline :linear *html-stream*)
243              (write-html-tag* element)))              (write-html-tag* element)))
# Line 267  arglist for WRITE-HTML-TAG." Line 273  arglist for WRITE-HTML-TAG."
273    (with-html-block (:BLOCKQUOTE)    (with-html-block (:BLOCKQUOTE)
274      (convert)))      (convert)))
275    
276    (define-html-conversion itemized-list (input)
277      (with-html-block (:UL)
278        (dolist (element (contents input))
279          (with-html-block (:LI)
280            (convert element)))))
281    
282  (define-html-conversion preformatted-paragraph (input)  (define-html-conversion preformatted-paragraph (input)
283    (with-html-block+ (0 nil :PRE)    (with-html-block+ (0 nil :PRE)
284      (let ((*suppress-html-wrapping* t))      (let ((*suppress-html-wrapping* t))
# Line 280  arglist for WRITE-HTML-TAG." Line 292  arglist for WRITE-HTML-TAG."
292    (with-html-inline (:I)    (with-html-inline (:I)
293      (convert)))      (convert)))
294    
295    (define-html-conversion small-caps (input)
296      (with-html-inline (:SPAN :style "font-variant: small-caps")
297        (convert)))
298    
299    (define-html-conversion link (input)
300      (with-html-inline (:A :href (url input))
301        (convert)))
302    
303  (define-html-conversion discretionary-hyphen (input)  (define-html-conversion discretionary-hyphen (input)
304    (write-html-entity "shy"))    (write-html-entity "shy"))
305    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5