aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorArun Isaac2023-01-06 18:19:08 +0000
committerArun Isaac2023-01-06 18:20:40 +0000
commitfc283e904b427b60b10dbd91754794f0b683276c (patch)
tree7e1065f77ab9615acb2d8fa201facae69922ed99 /build-aux
parent9800f660222878bb79bad55f45bf22e68f8aee46 (diff)
downloadguile-email-fc283e904b427b60b10dbd91754794f0b683276c.tar.gz
guile-email-fc283e904b427b60b10dbd91754794f0b683276c.tar.lz
guile-email-fc283e904b427b60b10dbd91754794f0b683276c.zip
build-aux: Use --contains to exclude v0.1.0 release.
* build-aux/build-website.el (org-dblock-write:releases): Use the --contains argument of git for-each-ref to exclude the v0.1.0 release.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/build-website.el15
1 files changed, 7 insertions, 8 deletions
diff --git a/build-aux/build-website.el b/build-aux/build-website.el
index f8b8454..13c1835 100644
--- a/build-aux/build-website.el
+++ b/build-aux/build-website.el
@@ -1,5 +1,5 @@
;;; guile-email --- Guile email parser
-;;; Copyright © 2019, 2020, 2021 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2019, 2020, 2021, 2023 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of guile-email.
;;;
@@ -31,7 +31,11 @@
(defun org-dblock-write:releases (params)
"Dynamically write releases block."
(call-process "git" nil t nil
- "for-each-ref" "--sort=-taggerdate"
+ "for-each-ref"
+ "--sort=-taggerdate"
+ ;; Exclude the v0.1.0 release since we don't have a
+ ;; copy of the tarball.
+ "--contains=v0.2.0"
(let ((release-file "./releases/guile-email-%(refname:short).tar.lz"))
(format "--format=- %%(taggerdate:short) [[%s][%s]] [[%s.asc][GPG Signature]]"
release-file
@@ -39,12 +43,7 @@
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))
+ (replace-string "guile-email-v" "guile-email-" nil nil nil t))
(with-current-buffer (find-file "README.org")
(org-update-all-dblocks)