-
Notifications
You must be signed in to change notification settings - Fork 9
/
template.html.p
43 lines (42 loc) · 1.81 KB
/
template.html.p
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
◊(init-db)
◊(define-values (doc-body comments) (split-body-comments doc))
◊(define doc-body-html (->html (cdr doc-body)))
◊(define doc-header (->html (post-header here metas)))
◊(cond [(select-from-metas 'published metas) (save-post here metas doc-header doc-body-html)])
<!DOCTYPE html>
<html lang="en" class="gridded">
<head>
<meta charset="utf-8">
<meta name="generator" content="Racket ◊(version) + Pollen ◊|pollen:version|">
<meta name="viewport" content="width=device-width, initial-scale=1">
<title>◊(select-from-metas 'title here)</title>
<link rel="stylesheet" href="/styles.css" media="screen">
◊|meta-favicons|
</head>
<body>
<header class="main">
<p><a href="/index.html" class="home">The Notepad</a> <span class="tagline">is old and grody</span></p>
<nav>
<ul>
<li><a href="/topics.html">Topics</a></li>
<li><a href="/books.html">Books to Read</a></li>
<li><a href="/about.html">About</a></li>
<li><a href="/feed.xml" class="rss">Use RSS?</a></li>
</ul>
</nav>
</header>
<article>
◊doc-header
◊doc-body-html
◊(->html comments)
</article>
<footer class="main">
<ul>
<li><a class="rss" href="/feed.xml">RSS</a></li>
<li><a href="mailto:[email protected]">[email protected]</a></li>
<li>Source code <a href="https://github.com/otherjoel/thenotepad">on Github</a></li>
<li>Valid <a href="https://validator.w3.org/nu/?doc=https%3A%2F%2Fthenotepad.org%2F">HTML5</a> + CSS</li>
</ul>
</footer>
</body>
</html>