[cl-markdown-devel] author property broken?

Mon Feb 5 23:29:44 UTC 2007

Oops; I see now that 'generate-html-header' (in /dev/html.lisp)
doesn't try to put in an author field.

(defun generate-html-header ()
  (generate-doctype)
  (format *output-stream* "~&<html>~&<head>")
  (awhen (document-property "title")
    (format *output-stream* "~&<title>~a</title>" it))
  (awhen (document-property "style-sheet")
    (unless (search ".css" it)
      (setf it (concatenate 'string it ".css")))
    (format *output-stream* "~&<link type='text/css' href='~a' rel='stylesheet' />" it))
  (format *output-stream* "~&</head>~&<body>"))

So, I should instead say: "Feature request: add author field to the
html-header?"

Best wishes,
Hans

At Mon, 05 Feb 2007 18:14:08 -0500,
Hans Halvorson wrote:
> 
> I am running tests with 0.8.4, and the {set-property Author ...}
> seems to be malfunctioning.  For example:
> 
> (let ((*parse-active-functions* '(table-of-contents set-property))
>       (*render-active-functions* '(table-of-contents property)))
>   (markdown
>    "{set-property html t}
> {set-property title My best summer vacation ever}
> {set-property style-sheet my-style.css}
> {set-property Author Gary W. King} 
> Some text." :stream nil :format :html))
> 
> 
> => #<DOCUMENT {A7D72B9}>
> "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
>         \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
> <html>
> <head>
> <title>My best summer vacation ever</title>
> <link type='text/css' href='my-style.css' rel='stylesheet' />
> </head>
> <body><p>  Some text. </p>
> </body>
> </html>"
> 
> Cheers,
> Hans
> _______________________________________________
> cl-markdown-devel mailing list
> cl-markdown-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/cl-markdown-devel