diff options
Diffstat (limited to 'examples/hello-git.scm')
| -rw-r--r-- | examples/hello-git.scm | 55 |
1 files changed, 24 insertions, 31 deletions
diff --git a/examples/hello-git.scm b/examples/hello-git.scm index f6df99c..6468452 100644 --- a/examples/hello-git.scm +++ b/examples/hello-git.scm @@ -1,6 +1,7 @@ ;;; hello-git.scm -- job specification test for hello git repository ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> +;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; ;;; This file is part of Cuirass. ;;; @@ -17,37 +18,29 @@ ;;; You should have received a copy of the GNU General Public License ;;; along with Cuirass. If not, see <http://www.gnu.org/licenses/>. -(use-modules (srfi srfi-1)) - -(define (local-file file) - ;; In the common case jobs will be defined relative to the repository. - ;; However for testing purpose use local gnu-system.scm instead. - (string-append (dirname (current-filename)) "/" file)) - -(define (url->file-name url) - (string-trim - (string-map (lambda (c) (if (memq c (string->list ":/")) #\- c)) url) - #\-)) - -(define vc - ;; where your version-control checkouts live - (string-append (getenv "HOME") "/src")) -(define guix-checkout (string-append vc "/guix")) - ;; building GNU hello from git is too much work -;; (define hello-checkout (string-append vc "/hello")) -;; (define hello-git "http://git.savannah.gnu.org/r/hello.git") +(define cuirass-git "https://git.savannah.gnu.org/git/guix/guix-cuirass.git") ;; ... so let's track cuirass' git -(define cuirass-checkout (string-append vc "/cuirass")) -(define cuirass-git "https://notabug.org/mthl/cuirass") -;;(define cuirass-git "https://gitlab.com/janneke/cuirass.git") -(list - `((#:name . ,(url->file-name cuirass-checkout)) - (#:url . ,cuirass-git) - (#:branch . "master") - (#:no-compile? . #t) - (#:load-path . ,guix-checkout) - (#:proc . guix-jobs) - (#:file . ,(local-file "guix-track-git.scm")) - (#:arguments (name . "cuirass") (url . ,cuirass-git)))) +;; This builds the Guix Cuirass package with its source replaced by the last +;; commit of Cuirass' git repository. +(let ((top-srcdir (canonicalize-path + (string-append (dirname (current-filename)) "/..")))) + (list + `((#:name . "cuirass") + (#:load-path-inputs . ("guix")) + (#:package-path-inputs . ()) + (#:proc-input . "cuirass") + (#:proc-file . "examples/guix-track-git.scm") + (#:proc . guix-jobs) + (#:proc-args (name . "cuirass") (url . ,cuirass-git)) + (#:inputs . (((#:name . "guix") + (#:url . "git://git.savannah.gnu.org/guix.git") + (#:load-path . ".") + (#:branch . "master") + (#:no-compile? . #t)) + ((#:name . "cuirass") + (#:url . ,(string-append "file://" top-srcdir)) + (#:load-path . ".") + (#:branch . "master") + (#:no-compile? . #t))))))) |