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'.
This commit is contained in:
Ludovic Courtès 2020-10-16 22:04:33 +02:00
parent a1b88219e8
commit 3cd1a7ac51
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -946,7 +946,12 @@ (define (latest-commit+date directory)
(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 @@ (define (latest-commit+date directory)
(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))