be470cd13aaefa4cc6b6747d08da8b8597c64081
[~bandali/bndl.org] / haunt.scm
1 (use-modules (haunt asset)
2 (haunt builder blog)
3 (haunt builder atom)
4 (haunt builder assets)
5 (haunt html)
6 (haunt page)
7 (haunt post)
8 (haunt reader commonmark)
9 (haunt site)
10 (haunt utils)
11 (ice-9 match)
12 (srfi srfi-19))
13
14 (define (stylesheet name)
15 `(link (@ (rel "stylesheet")
16 (href ,(string-append "/" name ".css")))))
17
18 (define* (base-layout site body #:key title)
19 `((doctype "html")
20 (html
21 (head
22 (meta (@ (charset "utf-8")))
23 (title ,(if title (string-append title " — " (site-title site))
24 "Amin Bandali’s Personal Site"))
25 ,(stylesheet "reset")
26 ,(stylesheet "style"))
27 (body
28 (main ,body)
29 (footer
30 (p
31 "Copyright 2016–2019 Amin Bandali. See "
32 (a (@ (href "license.html")) "license.html")
33 " for license conditions. Please copy and share."))))))
34
35 (define (bandali-post-template post)
36 `((header
37 (h1 ,(post-ref post 'title))
38 (address "By "
39 (a (@ (href "/"))
40 ,(post-ref post 'author))
41 " <" ,(post-ref post 'email) ">")
42 (p (@ (class "date"))
43 ,(date->string (post-date post) "~B ~d, ~Y")))
44 ,(post-sxml post)))
45
46 (define (bandali-collection-template site title posts prefix)
47 (define (post-uri post)
48 (string-append (or prefix "") "/"
49 (site-post-slug site post) ".html"))
50
51 `((h3 ,title)
52 (ul
53 ,@(map (lambda (post)
54 `(li
55 (a (@ (href ,(post-uri post)))
56 ,(post-ref post 'title))
57 " — " ,(date->string (post-date post) "~B ~d, ~Y")))
58 posts))))
59
60 (define bandali-theme
61 (theme #:name "bandali"
62 #:layout
63 (lambda (site title body)
64 (base-layout site body
65 #:title title))
66 #:post-template bandali-post-template
67 #:collection-template bandali-collection-template))
68
69 (define (index-material site posts)
70 `(div
71 (h1 (@ (style "font-size: 0;"))
72 "Amin Bandali")
73 (p (@ (style "margin-top: 0;"))
74 "Hi, I’m "
75 (a (@ (href "images/bandali-with-rms.jpg")
76 (title ,(string-append
77 "photo of bandali with rms wearing a "
78 "“pay cash don’t be tracked” pin")))
79 "Amin Bandali")
80 ". I’m a graduate student at "
81 (a (@ (href "https://watform.uwaterloo.ca"))
82 "WatForm")
83 " at University of Waterloo, supervised by "
84 (a (@ (href "https://cs.uwaterloo.ca/~nday/"))
85 "Dr. Nancy Day")
86 ". The main goal of my research is improving "
87 (strong "software and systems reliability")
88 " through application of " (em "formal methods") ".")
89 (p "My research at WatForm focuses on formal logic, model "
90 "checking, and verification. I’m also interested in "
91 "programming languages, theorem provers, and their "
92 "type systems. You may wish to view my academic "
93 (a (@ (href "bandali-cv.html")) "curriculum vitae") ".")
94 (p (@ (class "notice"))
95 (strong "SE 212 students: ")
96 "see " (a (@ (href "se212-f19/")) "here") " for slides and "
97 "other material from the tutorials.")
98 (p "On the side, I dabble in "
99 (a (@ (href "https://leanprover.github.io")) "Lean")
100 " and enjoy "
101 (a (@ (href "https://stallman.org/articles/on-hacking.html"))
102 "hacking")
103 " on "
104 (a (@ (href "https://www.gnu.org/software/emacs/manual/elisp.html"))
105 "Elisp")
106 ". I’m a "
107 (a (@ (href "https://www.gnu.org/philosophy/free-sw.html"))
108 "Free Software")
109 " activist and FSF "
110 (a (@ (href "https://www.fsf.org/associate/")) "supporter")
111 ", and a GNU "
112 (a (@ (href "https://www.gnu.org/people/#bandali"))
113 "maintainer")
114 " and "
115 (a (@ (href "https://www.gnu.org/people/webmeisters.html#bandali"))
116 "webmaster")
117 ". I co-host the "
118 (a (@ (href "https://emacsel.com")) "Emacs.el")
119 " podcast with "
120 (a (@ (href "https://www.pygopar.com"))
121 "Daniel Gopar") ", and organize "
122 (a (@ (href "https://emacsconf.org")) "EmacsConf") " with help"
123 " from many wonderful people. I am also a member of the"
124 " Systems Committee for the "
125 (a (@ (href "https://csclub.uwaterloo.ca")
126 (title ,(string-append
127 "Computer Science Club of the "
128 "University of Waterloo"))) "CSC")
129 ".")
130 (p "See my " (a (@ (href "contact.html")) "contact") " page for "
131 "how to best reach me.")
132 (h2 (@ (id "papers")) "Papers")
133 (dl
134 (dt "A Comparison of the Declarative Modelling Languages B, DASH,
135 and TLA" (sup "+")
136 (span (@ (class "plinks"))
137 " [ "
138 (a (@ (href "papers/modre2018-declarative.pdf"))
139 "pdf")
140 " | "
141 (a (@ (href "papers/modre2018-declarative.bib"))
142 "bib")
143 " ]"))
144 (dd "Ali Abbassi, "
145 (a (@ (href "https://bandali.eu.org")) "Amin Bandali") ", "
146 (a (@ (href "https://cs.uwaterloo.ca/~nday/"))
147 "Nancy A. Day")
148 ", and Jose Serna"
149 (br)
150 (em "2018 IEEE 8th International Model-Driven Requirements"
151 " Engineering Workshop (MoDRE)")
152 (br)
153 "Copyright © 2018 IEEE. All Rights Reserved. Sadly."))
154 (h2 (@ (id "talks")) "Talks")
155 (dl
156 (dt
157 "The Magic of Specifications and Type Systems"
158 (span (@ (class "plinks"))
159 " [ "
160 (a (@ (href "talks/cucsc-2017-slides.pdf")
161 (title ,(string-append
162 "presented at the Canadian Undergraduate"
163 " Computer Science Conference 2017,\n"
164 "University of Toronto, Canada,"
165 "June 15–17, 2017")))
166 "slides")
167 " | "
168 (a (@ (href "talks/eecs4080-poster.pdf")
169 (title ,(string-append
170 "presented at the Lassonde Undergraduate"
171 " Summer Student Research Conference,\n"
172 "York University, Toronto, Canada,"
173 "August 15, 2017")))
174 "poster")
175 " ]"))
176 (dd (a (@ (href "https://bandali.eu.org")) "Amin Bandali") ", "
177 (a (@ (href "https://github.com/cipher1024"))
178 "Simon Hudon")
179 ", "
180 (a (@ (href "http://www.cse.yorku.ca/~jonathan/"))
181 "Jonathan S. Ostroff")))
182 (h2 (@ (id "projects")) "Projects")
183 (p "Below are a number of free software projects I have worked "
184 "on:")
185 (dl
186 (dt (a (@ (href "https://git.sr.ht/~bandali/george-mode"))
187 "george-mode"))
188 (dd "Emacs major mode for editing George files")
189 (dt (a (@ (href "https://git.uwaterloo.ca/bandali/alloy-catalyst"))
190 "alloy-catalyst"))
191 (dd "Framework for performance analysis of Alloy models")
192 (dt (a (@ (href "https://github.com/unitb/unitb-web"))
193 "unitb-web"))
194 (dd "Web interface for Unit-B")
195 (dt (a (@ (href "https://github.com/unitb/tex2png-hs"))
196 "tex2png-hs"))
197 (dd "Library and CLI for converting TeX and LaTeX to PNG "
198 "images"))
199 (h2 (@ (id "notes")) "Notes")
200 (ul
201 ,@(map
202 (lambda (post)
203 (define (post-uri post)
204 (string-append "/"
205 (site-post-slug site post) ".html"))
206 `(li
207 (a (@ (href ,(post-uri post)))
208 ,(post-ref post 'title))
209 " — " ,(date->string (post-date post) "~B ~d, ~Y")))
210 (take-up-to 10 (posts/reverse-chronological posts))))))
211
212 (define (index-page site posts)
213 (make-page
214 "index.html"
215 (base-layout site (index-material site posts))
216 sxml->html))
217
218 (define my-domain "bandali.eu.org")
219
220 (site #:title "Amin Bandali"
221 #:domain my-domain
222 #:default-metadata
223 '((author . "Amin Bandali")
224 (email . "bandali@gnu.org")
225 (domain . my-domain))
226 #:readers (list commonmark-reader)
227 #:builders (list (blog #:theme bandali-theme
228 #:collections
229 `(("Notes" "notes.html"
230 ,posts/reverse-chronological)))
231 index-page
232 (atom-feed)
233 (atom-feeds-by-tag)
234 (static-directory "static" "")))