Initialize Repository
[clinton/website/site-support.git] / templates / header.html
CommitLineData
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 -->