/[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 by rjain, Sun Dec 7 23:27:07 2003 UTC revision 1.2 by rjain, Sun Feb 15 05:01:46 2004 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                (write " - " :stream *html-stream*)
239                (convert-to-text *document-subtitle*))
240            (dolist (element *html-head-elements*)            (dolist (element *html-head-elements*)
241              (pprint-newline :linear *html-stream*)              (pprint-newline :linear *html-stream*)
242              (write-html-tag* element)))              (write-html-tag* element)))
# Line 280  arglist for WRITE-HTML-TAG." Line 285  arglist for WRITE-HTML-TAG."
285    (with-html-inline (:I)    (with-html-inline (:I)
286      (convert)))      (convert)))
287    
288    (define-html-conversion small-caps (input)
289      (with-html-inline (:SPAN :style "font-variant: small-caps")
290        (convert)))
291    
292    (define-html-conversion link (input)
293      (with-html-inline (:A :href (url input))
294        (convert)))
295    
296  (define-html-conversion discretionary-hyphen (input)  (define-html-conversion discretionary-hyphen (input)
297    (write-html-entity "shy"))    (write-html-entity "shy"))
298    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5