diff options
Diffstat (limited to 'build-aux')
| -rw-r--r-- | build-aux/build-website.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/build-aux/build-website.el b/build-aux/build-website.el index f29662f..f8b8454 100644 --- a/build-aux/build-website.el +++ b/build-aux/build-website.el @@ -28,5 +28,24 @@ 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/guile-email-%(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 "guile-email-v" "guile-email-" nil nil nil t) + ;; Delete the v0.1.0 release line since we don't have a copy of the + ;; release tarball. + (search-forward "guile-email-0.1.0.tar.lz") + (beginning-of-line) + (kill-line)) + (with-current-buffer (find-file "README.org") + (org-update-all-dblocks) (org-export-to-file 'html "website/index.html")) |