diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2023-08-05 18:34:56 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2023-08-05 18:34:56 -0400 |
| commit | 9e38628123fe106cda7f5845ce53fa0cd4ea25c0 (patch) | |
| tree | ffdfcb22fe57a7dcfa54aa795bef505d8a039016 /haunt | |
| parent | 9e9cdf183580f29756292748433c28cf23c0b147 (diff) | |
[pages] Implement changelog
Diffstat (limited to 'haunt')
| -rw-r--r-- | haunt/pages/about.sxml | 4 | ||||
| -rw-r--r-- | haunt/pages/changelog.sxml | 31 |
2 files changed, 34 insertions, 1 deletions
diff --git a/haunt/pages/about.sxml b/haunt/pages/about.sxml index 8d59ea8..bac23e1 100644 --- a/haunt/pages/about.sxml +++ b/haunt/pages/about.sxml @@ -55,4 +55,6 @@ received it. SDF has discontinued mail service on that domain. As such, " (section (h4 ,(hyperlink "/blogroll" "Blogroll")) (p "A noncomprehensive list of the blogs I follow.")) (section (h4 ,(hyperlink "/bookmark" "Bookmarks")) - (p "Collection of some things that I especially enjoyed reading."))))) + (p "Collection of some things that I especially enjoyed reading.")) + (section (h4 ,(hyperlink "/pages/changelog.html" "Changelog")) + (p "A record of any notable user-facing changes made to this website."))))) diff --git a/haunt/pages/changelog.sxml b/haunt/pages/changelog.sxml new file mode 100644 index 0000000..db47c13 --- /dev/null +++ b/haunt/pages/changelog.sxml @@ -0,0 +1,31 @@ +;;; -*- scheme -*- + +;;; Copyright © 2019 - 2021 Jakob L. Kreuze <zerodaysfordays@sdf.org> +;;; +;;; This program is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program. If not, see +;;; <http://www.gnu.org/licenses/>. + +(use-modules (ice-9 match) + (ice-9 rdelim) + (jakob theme) + (jakob utils sxml) + (sxml simple)) + +(theme + #:title "Changelog" + #:content (cadr (call-with-input-file "pages/changelog.html" + (lambda (port) + (read-line port) + (rewrite-absolute-urls-as-relative + (xml->sxml port)))))) |