amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

doc: build.scm: Handle (current-source-directory) being #f.

Browse source 
Since this seems to be the case when the devel manual is being built on
bayfront.

* doc/build.scm: Use the current working directory as a fallback
if (current-source-directory) is #f, and log the value of root.

Change-Id: Ic43fd05a4a0822d9efb935069850f0a8cadd80aa
This commit is contained in:
Christopher Baines 2025-05-12 15:54:52 +01:00 • committed by Ludovic Courtès
parent f492b57306
commit 10527dac08
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
doc/build.scm
View file

@ -1475,7 +1475,9 @@ by 'html-identifier-indexes'."
(let* ((root (canonicalize-path
(string-append (current-source-directory) "/..")))
(string-append (or (current-source-directory)
(string-append (getcwd) "/doc"))
"/..")))
(commit date (latest-commit+date root))
(version (or (getenv "GUIX_MANUAL_VERSION")
(string-take commit 7)))
@ -1522,7 +1524,8 @@ by 'html-identifier-indexes'."
(merge-index-alists guix-split-node-indexes guile-split-node-indexes))
(format (current-error-port)
"building manual from work tree around commit ~a, ~a~%"
"building manual from work tree (~a) around commit ~a, ~a~%"
root
commit
(let* ((time (make-time time-utc 0 date))
(date (time-utc->date time)))