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@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cl-markdown-devel