429c8025 |
1 | <?xml version="1.0" encoding="<lisp>(muse-html-encoding)</lisp>" ?> |
2 | <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" |
3 | "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> |
4 | <html xmlns="http://www.w3.org/1999/xhtml"> |
5 | <head> |
6 | <title><lisp> |
7 | (concat (muse-publishing-directive "title") |
8 | (let ((author (muse-publishing-directive "author"))) |
9 | (if (not (string= author (user-full-name))) |
10 | (concat " (by " author ")"))))</lisp></title> |
11 | <meta name="generator" content="muse.el" /> |
12 | <meta http-equiv="<lisp>muse-html-meta-http-equiv</lisp>" |
13 | content="<lisp>muse-html-meta-content-type</lisp>" /> |
14 | <link href="http://feeds.unknownlamer.org/rss/site-updates" |
15 | rel="alternate" type="application/rss+xml" title="Updates Feed" /> |
16 | |
17 | <lisp> |
18 | (muse-style-element :style-sheet muse-publishing-current-style) |
19 | </lisp> |
20 | </head> |
21 | <body> |
22 | <h1><lisp> |
23 | (concat (muse-publishing-directive "title") |
24 | (let ((author (muse-publishing-directive "author"))) |
25 | (if (not (string= author (user-full-name))) |
26 | (concat " (by " author ")"))))</lisp></h1> |
27 | <lisp>(muse-html-insert-contents 3)</lisp> |
28 | |
29 | <!-- Page published by Emacs Muse begins here --> |