update the update script to use git
[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>" />
7bc98852
CE
14 <meta name="viewport"
15 content="width=device-width, initial-scale=1.0" />
60143e1c 16 <link href="https://feeds.unknownlamer.org/rss/site-updates"
429c8025 17 rel="alternate" type="application/rss+xml" title="Updates Feed" />
18
19<lisp>
20 (muse-style-element :style-sheet muse-publishing-current-style)
21 </lisp>
22 </head>
23 <body>
24 <h1><lisp>
25 (concat (muse-publishing-directive "title")
26 (let ((author (muse-publishing-directive "author")))
27 (if (not (string= author (user-full-name)))
28 (concat " (by " author ")"))))</lisp></h1>
29 <lisp>(muse-html-insert-contents 3)</lisp>
30
31<!-- Page published by Emacs Muse begins here -->