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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 3cd1a7ac51c73ce636c3c36b3f790829c8374e04
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Oct 16 22:04:33 2020 +0200

    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'.
---
 doc/build.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/doc/build.scm b/doc/build.scm
index 97f4ab6..26ff577 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))