diff options
| -rw-r--r-- | gn/packages/gemini.scm | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/gn/packages/gemini.scm b/gn/packages/gemini.scm index 865e873..ff2dcd6 100644 --- a/gn/packages/gemini.scm +++ b/gn/packages/gemini.scm @@ -32,7 +32,7 @@ ,@(package-native-inputs guix:skribilo)))))) (define-public tissue - (let ((commit "17d101b2f97edc8574528d5f05dd952921b67027") + (let ((commit "b1543397a66cced4e3ea92ead469a91f4b55b15f") (revision "0")) (package (name "tissue") @@ -45,18 +45,34 @@ (file-name (git-file-name name version)) (sha256 (base32 - "0g2f4y6x8wam5367cfpd00nm0swnk3b33rgwcs3rl0cxn2hvj610")))) + "196v0pchpv453z592d82hck4zv8wc6frl7f3sxrph1kgw9mipr1m")))) (build-system gnu-build-system) (arguments `(#:make-flags (list (string-append "prefix=" %output) "GUILE_AUTO_COMPILE=0") + #:modules (((guix build guile-build-system) + #:select (target-guile-effective-version)) + ,@%gnu-build-system-modules) + #:imported-modules ((guix build guile-build-system) + ,@%gnu-build-system-modules) #:phases (modify-phases %standard-phases (replace 'configure (lambda* (#:key inputs #:allow-other-keys) (substitute* (list "bin/tissue" "tissue/issue.scm" "tissue/web.scm") (("\"git\"") - (string-append "\"" (assoc-ref inputs "git-minimal") "/bin/git\"")))))))) + (string-append "\"" (assoc-ref inputs "git-minimal") "/bin/git\""))))) + (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")))))))))) (inputs (list git-minimal guile-3.0)) (propagated-inputs (list skribilo-with-gemtext-reader)) |