-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathsite-index.html.pp
65 lines (57 loc) · 2.44 KB
/
site-index.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
55
56
57
58
59
60
61
62
63
64
65
#lang pollen
◊(require pollen/pagetree)
◊(require pollen/template/html)
<!DOCTYPE html>
◊(define pagelist (pagetree->list (get-pagetree "index.ptree")))
<html lang="en">
<head>
<!-- Global site tag (gtag.js) - Google Analytics -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-ZBTLXWG3QD"></script>
<script>
window.dataLayer = window.dataLayer || [];
function gtag(){dataLayer.push(arguments);}
gtag('js', new Date());
gtag('config', 'G-ZBTLXWG3QD');
</script>
<meta name="google-site-verification" content="ApapaNT3CEd0OdSE-X9Xy4xF3r_gjtWDR05XS6FANu4" />
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<title>◊|site-title|—Site Index</title>
<link rel="stylesheet" type="text/css" href="../site-style.css" />
<link rel="canonical" href="https://sanchom.github.io/site-index.html" />
<link rel="icon" type="image/png" sizes="16x16" href="assets/favicon/favicon-16x16.png" />
<link rel="icon" type="image/png" sizes="32x32" href="assets/favicon/favicon-32x32.png" />
</head>
<body>
<script>
(function(d, s, id){
var js, fjs = d.getElementsByTagName(s)[0];
if (d.getElementById(id)) {return;}
js = d.createElement(s); js.id = id;
js.src = "https://assets.gfycat.com/gfycat.js";
fjs.parentNode.insertBefore(js, fjs);
}(document, 'script', 'gfycat-js'));
</script>
<header>
<nav>
<div class="header">
<div class="left-header"></div>
<div class="center-header"><a href="index.html">Home</a></div>
<div class="right-header"></div>
</div>
</nav>
</header>
<div style="clear: both;"></div>
<h1>Site index</h1>
<ul>
◊(define exclude-from-list '(index.html))
◊(apply string-append (map (lambda (x)
(if (select 'original-date x)
(format "<li style=\"margin-bottom: 1rem; text-align: left;\"><a href=\"~a\">~a</a> (~a)</li>\n"
x (->html (processed-title (select-from-metas 'page-title x))) (make-nice-date (select 'original-date x)))
(format "<li style=\"margin-bottom: 1rem; text-align: left;\"><a href=\"~a\">~a</a></li>\n"
x (->html (processed-title (select-from-metas 'page-title x))))))
(remove* exclude-from-list pagelist)))
</ul>
</body>
</html>