-
Notifications
You must be signed in to change notification settings - Fork 9
/
topics.html.pp
54 lines (51 loc) · 2.01 KB
/
topics.html.pp
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
44
45
46
47
48
49
50
51
52
53
54
#lang pollen
◊(require "util-topics.rkt"
pollen/template
pollen/pagetree
pollen/private/version
pollen/cache
net/uri-codec)
◊(define main-pagetree (cached-doc (string->path "index.ptree")))
<!DOCTYPE html>
<html lang="en" class="gridded">
<head>
<meta charset="utf-8">
<meta name="generator" content="Racket ◊(version) + Pollen ◊|pollen:version|">
<title>Topics (The Notepad)</title>
<link rel="stylesheet" href="/styles.css" media="screen">
</head>
<body>
<header class="main">
<p><a href="/" class="home">The Notepad</a>’s full of ballpoint hypertext</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" title="Subscribe to feed">Use RSS?</a></li>
</ul>
</nav>
</header>
<section class="main">
<table>
◊for/s[topic (topic-list)]{
<tr>
<td><a id="◊(uri-encode (car topic))">◊(car topic)</a></td>
<td><ul>
◊for/s[post (cdr topic)]{
<li><a href="/◊(list-ref post 0)">◊(list-ref post 1)</a></li>
}</ul></td>
</tr>
}
</table>
</section>
<footer class="main">
<ul>
<li><a href="/feed.xml" class="rss" title="Subscribe to feed">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>