silasfox/bible-tools
1
0
Fork 0
Code Issues Pull Requests Projects Releases 1 Wiki Activity

guix.scm updated

Browse Source
This commit is contained in:
Silas Vedder 2022-10-14 15:25:29 +02:00
parent c113750973
commit 2f6284499a
1 changed files with 68 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
guix.scm
View File

@ -15,41 +15,50 @@
(package (package
(name "bible-tools") (name "bible-tools")
(version "1.0") (version "1.0")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url (url "https://git.silasvedder.xyz/silasfox/bible-tools.git")
"https://git.silasvedder.xyz/silasfox/bible-tools.git")
(commit "5d0dbd6"))) (commit "5d0dbd6")))
(file-name "bible-tools-1.0-checkout") (file-name "bible-tools-1.0-checkout")
(sha256 (sha256 (base32 "1x03fzal7vsc7j4bbsphs3v6fsa6m0wkcjzk7a56nn0by3a397dw"))))
(base32
"1x03fzal7vsc7j4bbsphs3v6fsa6m0wkcjzk7a56nn0by3a397dw"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((ice-9 match) `(#:modules
((ice-9 match)
(ice-9 ftw) (ice-9 ftw)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:phases (modify-phases %standard-phases #:phases
(add-after 'install 'hall-wrap-binaries (modify-phases
%standard-phases
(add-after
'install
'hall-wrap-binaries
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((compiled-dir (lambda (out version) (let* ((compiled-dir
(string-append out "/lib/guile/" (lambda (out version)
(string-append
out
"/lib/guile/"
version version
"/site-ccache"))) "/site-ccache")))
(uncompiled-dir (lambda (out version) (uncompiled-dir
(string-append out (lambda (out version)
(string-append
out
"/share/guile/site" "/share/guile/site"
(if (string-null? version) "" (if (string-null? version) "" "/")
"/") version))) version)))
(dep-path (lambda (env modules path) (dep-path
(list env ":" (lambda (env modules path)
(list env
":"
'prefix 'prefix
(cons modules (cons modules
(map (lambda (input) (map (lambda (input)
(string-append (assoc-ref (string-append
inputs (assoc-ref inputs input)
input)
path)) path))
,''()))))) ,''())))))
(out (assoc-ref outputs "out")) (out (assoc-ref outputs "out"))
@ -57,21 +66,22 @@
(site (uncompiled-dir out ""))) (site (uncompiled-dir out "")))
(match (scandir site) (match (scandir site)
(("." ".." version) (("." ".." version)
(for-each (lambda (file) (for-each
(wrap-program (string-append bin file) (lambda (file)
(wrap-program
(string-append bin file)
(dep-path (dep-path
"GUILE_LOAD_PATH" "GUILE_LOAD_PATH"
(uncompiled-dir out (uncompiled-dir out version)
version) (uncompiled-dir "" version))
(uncompiled-dir ""
version))
(dep-path (dep-path
"GUILE_LOAD_COMPILED_PATH" "GUILE_LOAD_COMPILED_PATH"
(compiled-dir out (compiled-dir out version)
version)
(compiled-dir "" version)))) (compiled-dir "" version))))
,''("bible2latex" "count-words")) #t)))))))) ,''("bible-app" "word-counter" "bible2latex"))
(native-inputs `(("autoconf" ,autoconf) #t))))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake) ("automake" ,automake)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))