From 9503120f2cbfb05a782721eaa19f7297c069938d Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 23 Jan 2022 23:56:10 +0530 Subject: website: Add website. * build-aux/build-home-page.el, website/style.css: New files. * Makefile (EMACS): New variable. (website, website/index.html): New targets. --- build-aux/build-home-page.el | 53 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) create mode 100644 build-aux/build-home-page.el (limited to 'build-aux/build-home-page.el') diff --git a/build-aux/build-home-page.el b/build-aux/build-home-page.el new file mode 100644 index 0000000..2979a64 --- /dev/null +++ b/build-aux/build-home-page.el @@ -0,0 +1,53 @@ +;;; run64 --- SRFI-64 test runner +;;; Copyright © 2022 Arun Isaac +;;; +;;; This file is part of run64. +;;; +;;; run64 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. +;;; +;;; run64 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 run64. If not, see . + +;;; Commentary: + +;; This Emacs script generates the home page of the website from +;; README.org. + +;;; Code: + +(require 'ox-html) + +(setq make-backup-files nil + org-export-with-section-numbers nil + org-export-with-sub-superscripts nil + org-export-with-toc nil + org-html-head "" + org-html-head-include-default-style nil + org-html-head-include-scripts nil + org-html-postamble nil) + +(defun org-dblock-write:releases (params) + "Dynamically write releases block." + (call-process "git" nil t nil + "for-each-ref" "--sort=-taggerdate" + (let ((release-file "./releases/run64-%(refname:short).tar.lz")) + (format "--format=- %%(taggerdate:short) [[%s][%s]] [[%s.asc][GPG Signature]]" + release-file + (file-name-nondirectory release-file) + release-file)) + "refs/tags/v*") + ;; Fix tarball filenames. + (replace-string "run64-v" "run64-" nil nil nil t)) + +(defun build-website () + (with-current-buffer (find-file "README.org") + (org-update-all-dblocks) + (org-export-to-file 'html "website/index.html"))) -- cgit v1.2.3