diff options
| -rw-r--r-- | haunt.scm | 3 | ||||
| -rw-r--r-- | posts/currently-reading.xml | 2 | ||||
| -rw-r--r-- | posts/freebsd.md | 14 | ||||
| -rw-r--r-- | posts/read.xml | 2 | ||||
| -rw-r--r-- | posts/summer.md | 8 | ||||
| -rw-r--r-- | posts/watched.xml | 2 | ||||
| -rw-r--r-- | theme.scm | 32 |
7 files changed, 44 insertions, 19 deletions
@@ -14,8 +14,7 @@ (define post-prefix "post") (define (filter-now posts) - (posts/reverse-chronological - (filter (lambda (p) (member "now" (post-tags p))) posts))) + (filter (lambda (p) (member "now" (post-tags p))) posts)) (define (filter-not-now posts) (posts/reverse-chronological diff --git a/posts/currently-reading.xml b/posts/currently-reading.xml index 0ce0969..47abc3e 100644 --- a/posts/currently-reading.xml +++ b/posts/currently-reading.xml @@ -1,5 +1,5 @@ title: Currently Reading -tags: now +tags: now, feed --- <?xml version="1.0" encoding="UTF-8"?> <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" > diff --git a/posts/freebsd.md b/posts/freebsd.md new file mode 100644 index 0000000..6fd5f37 --- /dev/null +++ b/posts/freebsd.md @@ -0,0 +1,14 @@ +title: FreeBSD sysadmin +date: 2026-07-21 00:00 +tags: now +--- +I've been running a FreeBSD VPS. +It's hosting this website right now. + +Overall it's been a delight. +The OS is super intuitive. +Docker got tiring and I wanted a fresh challenge. +It also gives me new appreciation for NixOS. + +I've only scratched the surface. +I'd highly encourage anyone to experiment with BSD for servers.
\ No newline at end of file diff --git a/posts/read.xml b/posts/read.xml index 3451027..e2728c4 100644 --- a/posts/read.xml +++ b/posts/read.xml @@ -1,5 +1,5 @@ title: Recently Read -tags: now +tags: now, feed --- <?xml version="1.0" encoding="UTF-8"?> <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" > diff --git a/posts/summer.md b/posts/summer.md new file mode 100644 index 0000000..eeae1ed --- /dev/null +++ b/posts/summer.md @@ -0,0 +1,8 @@ +title: Enjoying the Summer +date: 2026-07-21 00:00 +tags: now +--- +Chicago summers are incredible! +Everybody is so happy. + +I'll be spending more time at the lake and going on long-distance bike rides.
\ No newline at end of file diff --git a/posts/watched.xml b/posts/watched.xml index bd9f375..127d031 100644 --- a/posts/watched.xml +++ b/posts/watched.xml @@ -1,5 +1,5 @@ title: Recently Watched -tags: now +tags: now, feed --- <?xml version='1.0' encoding='utf-8'?> <rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:letterboxd="https://letterboxd.com" xmlns:tmdb="https://themoviedb.org"> @@ -79,23 +79,27 @@ (theme #:name "hwebs-now" #:layout layout #:post-template - (lambda (post) - ;; TODO - (define (post-entries post) - ((sxpath '(rss channel item title *text*)) (post-sxml post))) - - (rss-items-template (post-entries post))) + (compose rss-items-template rss-items) #:collection-template (lambda (site title posts prefix) - `(,@(map (lambda (post) + `((p "My implementation of the " + (a (@ (href "https://nownownow.com/about")) "\"now page\" concept by Derek Sivers") + ".") + ,@(map (lambda (post) (define items (rss-items post)) - - `(section (h2 ,(post-ref post 'title)) - ,(rss-items-template - ;; not optimal, btw - (list-head items (min 5 (length items)))) - ;; TODO only show if there are more entries than max? - (a (@ (href ,(post-uri post site prefix))) "See more."))) + (if (member "feed" (post-tags post)) + ;; TODO use dates from the feed for these as well? + ;; TODO combine structure between the two types + `(section (h2 ,(post-ref post 'title)) + ,(rss-items-template + ;; not optimal, btw + (list-head items (min 5 (length items)))) + ;; TODO only show if there are more entries than max? + (a (@ (href ,(post-uri post site prefix))) "See more.")) + `(section (h2 ,(post-ref post 'title)) + ;; TODO fill in datetime correctly + ((time ,(date->string*(post-date post))) + ,(post-sxml post))))) posts))))) |