diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-05-12 15:54:52 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-06-16 17:15:40 +0200 |
| commit | 10527dac08bd129ecff6f963aec47f43ee632b6a (patch) | |
| tree | 24cd01419a200ccd4fe1f55767dbfe05d4d3b050 | |
| parent | f492b5730697a02da8b9578009cafee17b97e4c2 (diff) | |
doc: build.scm: Handle (current-source-directory) being #f.
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
| -rw-r--r-- | doc/build.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/doc/build.scm b/doc/build.scm index f773082318..7238c17a68 100644 --- a/doc/build.scm +++ b/doc/build.scm @@ -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))) |