summaryrefslogtreecommitdiff
path: root/doc/build.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-10-16 22:04:33 +0200
committerLudovic Courtès <ludo@gnu.org>2020-10-17 22:40:17 +0200
commit3cd1a7ac51c73ce636c3c36b3f790829c8374e04 (patch)
tree811b9f7dd38557217259fad5626e6bb73d706669 /doc/build.scm
parenta1b88219e8c18297cf27373a186d7adb9886f165 (diff)
doc: Remove 'build.scm' from the source of the manual.
That way we no longer have to rebuild the whole manual when fiddling with 'build.scm'. * doc/build.scm <top level>: Define 'select?' and pass it to 'pdf+html-manual'.
Diffstat (limited to 'doc/build.scm')
-rw-r--r--doc/build.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/doc/build.scm b/doc/build.scm
index 97f4ab6b83..26ff577d5d 100644
--- a/doc/build.scm
+++ b/doc/build.scm
@@ -946,7 +946,12 @@ commit date (an integer)."
(let* ((root (canonicalize-path
(string-append (current-source-directory) "/..")))
- (commit date (latest-commit+date root)))
+ (commit date (latest-commit+date root))
+ (select? (let ((vcs? (git-predicate root)))
+ (lambda (file stat)
+ (and (vcs? file stat)
+ ;; Filter out this file.
+ (not (string=? (basename file) "build.scm")))))))
(format (current-error-port)
"building manual from work tree around commit ~a, ~a~%"
commit
@@ -954,7 +959,7 @@ commit date (an integer)."
(date (time-utc->date time)))
(date->string date "~e ~B ~Y")))
(pdf+html-manual (local-file root "guix" #:recursive? #t
- #:select? (git-predicate root))
+ #:select? select?)
#:version (or (getenv "GUIX_MANUAL_VERSION")
(string-take commit 7))
#:date date))