From 5910a17327006beb2b24a2f565a1944e0a39fd7d Mon Sep 17 00:00:00 2001 From: Jakob L. Kreuze Date: Tue, 30 Apr 2019 20:39:02 -0400 Subject: Refactor aliases into a distinct module --- custom/alias.scm | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 custom/alias.scm (limited to 'custom') diff --git a/custom/alias.scm b/custom/alias.scm new file mode 100644 index 0000000..fde03c7 --- /dev/null +++ b/custom/alias.scm @@ -0,0 +1,34 @@ +;;; Copyright © 2019 Jakob L. Kreuze +;;; +;;; 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 +;;; . + +(define-module (custom alias) + #:use-module (haunt html) + #:use-module (haunt page) + #:export (article-alias)) + +(define (article-alias alias target) + "Create a page named ALIAS that redirects to TARGET." + (make-page (string-append alias "/index.html") + `((doctype "html") + (html + (head + (title ,target) + (link (@ (rel "canonical") (href ,target))) + (meta (@ (name "robots") (content "noindex"))) + (meta (@ (charset "utf-8"))) + (meta (@ (http-equiv "refresh") + (content ,(string-append "0; " target))))))) + sxml->html)) -- cgit v1.3