diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-10-16 22:04:33 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-10-17 22:40:17 +0200 |
| commit | 3cd1a7ac51c73ce636c3c36b3f790829c8374e04 (patch) | |
| tree | 811b9f7dd38557217259fad5626e6bb73d706669 | |
| parent | a1b88219e8c18297cf27373a186d7adb9886f165 (diff) | |
| download | guix-3cd1a7ac51c73ce636c3c36b3f790829c8374e04.tar guix-3cd1a7ac51c73ce636c3c36b3f790829c8374e04.tar.gz | |
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'.
| -rw-r--r-- | doc/build.scm | 9 |
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)) |