diff options
| author | Arun Isaac | 2022-09-19 02:20:24 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-09-19 02:20:24 +0530 |
| commit | a92eadccca2150fd173cd60d7113ab8588d9f9ca (patch) | |
| tree | 75940d2f1443a2d30082f838ec34d8e9e7a93d88 | |
| parent | 84abb60abc0fdf509849a17e34d501bec62818e0 (diff) | |
| download | tissue-a92eadccca2150fd173cd60d7113ab8588d9f9ca.tar.gz tissue-a92eadccca2150fd173cd60d7113ab8588d9f9ca.tar.lz tissue-a92eadccca2150fd173cd60d7113ab8588d9f9ca.zip | |
guix.scm: Wrap tissue executable.
* guix.scm (tissue)[arguments]: Import target-guile-effective-version from (guix build guile-build-system). Add wrap phase.
| -rw-r--r-- | guix.scm | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/guix.scm b/guix.scm index a1764d0..9eedc33 100644 --- a/guix.scm +++ b/guix.scm @@ -33,10 +33,25 @@ #:select? (git-predicate %source-dir))) (build-system gnu-build-system) (arguments - `(#:make-flags (list (string-append "prefix=" %output)) - #:phases - (modify-phases %standard-phases - (delete 'configure)))) + (list #:make-flags #~(list (string-append "prefix=" #$output)) + #:modules `(((guix build guile-build-system) + #:select (target-guile-effective-version)) + ,@%gnu-build-system-modules) + #:phases + (with-imported-modules '((guix build guile-build-system)) + #~(modify-phases %standard-phases + (delete 'configure) + (add-after 'install 'wrap + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (effective-version (target-guile-effective-version))) + (wrap-program (string-append out "/bin/tissue") + `("GUILE_LOAD_PATH" prefix + (,(string-append out "/share/guile/site/" effective-version) + ,(getenv "GUILE_LOAD_PATH"))) + `("GUILE_LOAD_COMPILED_PATH" prefix + (,(string-append out "/lib/guile/" effective-version "/site-ccache") + ,(getenv "GUILE_LOAD_COMPILED_PATH"))))))))))) (home-page "https://tissue.systemreboot.net") (synopsis "Text based issue tracker") (description "tissue is a text based issue tracker.") |