futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

doc: Remove 'build.scm' from the source of the manual.

Browse Source 
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
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
doc/build.scm
View File

@ -946,7 +946,12 @@ commit date (an integer)."
(let* ((root (canonicalize-path (let* ((root (canonicalize-path
(string-append (current-source-directory) "/.."))) (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) (format (current-error-port)
"building manual from work tree around commit ~a, ~a~%" "building manual from work tree around commit ~a, ~a~%"
commit commit
@ -954,7 +959,7 @@ commit date (an integer)."
(date (time-utc->date time))) (date (time-utc->date time)))
(date->string date "~e ~B ~Y"))) (date->string date "~e ~B ~Y")))
(pdf+html-manual (local-file root "guix" #:recursive? #t (pdf+html-manual (local-file root "guix" #:recursive? #t
#:select? (git-predicate root)) #:select? select?)
#:version (or (getenv "GUIX_MANUAL_VERSION") #:version (or (getenv "GUIX_MANUAL_VERSION")
(string-take commit 7)) (string-take commit 7))
#:date date)) #:date date))