diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-07-05 12:26:16 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-05 12:26:16 +0200 |
| commit | 48ed3f20b99de1a201777e906ebb75672c6275dd (patch) | |
| tree | f898c03be0cb9718a61bef65635efe635667a88d /website | |
| parent | website: Allow builds without network access. (diff) | |
| download | guix-artwork-48ed3f20b99de1a201777e906ebb75672c6275dd.tar.gz | |
website: Pass the right directory name to 'git-predicate'.
* website/.guix.scm (this-directory): New variable.
(source): Pass it to 'local-file' and to 'git-predicate'.
Diffstat (limited to 'website')
| -rw-r--r-- | website/.guix.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/website/.guix.scm b/website/.guix.scm index 42fdeaa..8d99c65 100644 --- a/website/.guix.scm +++ b/website/.guix.scm @@ -1,5 +1,5 @@ ;;; GNU Guix web site -;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2017, 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of the GNU Guix web site. ;;; @@ -16,16 +16,20 @@ ;;; You should have received a copy of the GNU General Public License ;;; along with the GNU Guix web site. If not, see <http://www.gnu.org/licenses/>. -;; Run 'guix build -f guix.scm' to build the web site. +;; Run 'guix build -f .guix.scm' to build the web site. (use-modules (guix) (gnu) (guix modules) - (guix git-download)) + (guix git-download) + (ice-9 match)) + +(define this-directory + (dirname (current-filename))) (define source - (local-file "." "guix-web-site" + (local-file this-directory "guix-web-site" #:recursive? #t - #:select? (git-predicate "."))) + #:select? (git-predicate this-directory))) (define-syntax let-package (syntax-rules () |