You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 lines
4.1 KiB
85 lines
4.1 KiB
(use-modules (guix packages) |
|
((guix licenses) |
|
#:prefix license:) |
|
(guix download) |
|
(guix git-download) |
|
(guix build-system gnu) |
|
(gnu packages) |
|
(gnu packages autotools) |
|
(gnu packages guile) |
|
(gnu packages guile-xyz) |
|
(gnu packages pkg-config) |
|
(gnu packages texinfo)) |
|
|
|
(define-public bible-tools |
|
(package |
|
(name "bible-tools") |
|
(version "1.0") |
|
(source (origin |
|
(method git-fetch) |
|
(uri (git-reference |
|
(url |
|
"https://git.silasvedder.xyz/silasfox/bible-tools.git") |
|
(commit "5d0dbd6"))) |
|
(file-name "bible-tools-1.0-checkout") |
|
(sha256 |
|
(base32 |
|
"1x03fzal7vsc7j4bbsphs3v6fsa6m0wkcjzk7a56nn0by3a397dw")))) |
|
(build-system gnu-build-system) |
|
(arguments |
|
`(#:modules ((ice-9 match) |
|
(ice-9 ftw) |
|
,@%gnu-build-system-modules) |
|
#:phases (modify-phases %standard-phases |
|
(add-after 'install 'hall-wrap-binaries |
|
(lambda* (#:key inputs outputs #:allow-other-keys) |
|
(let* ((compiled-dir (lambda (out version) |
|
(string-append out "/lib/guile/" |
|
version |
|
"/site-ccache"))) |
|
(uncompiled-dir (lambda (out version) |
|
(string-append out |
|
"/share/guile/site" |
|
(if (string-null? version) "" |
|
"/") version))) |
|
(dep-path (lambda (env modules path) |
|
(list env ":" |
|
'prefix |
|
(cons modules |
|
(map (lambda (input) |
|
(string-append (assoc-ref |
|
inputs |
|
input) |
|
path)) |
|
,''()))))) |
|
(out (assoc-ref outputs "out")) |
|
(bin (string-append out "/bin/")) |
|
(site (uncompiled-dir out ""))) |
|
(match (scandir site) |
|
(("." ".." version) |
|
(for-each (lambda (file) |
|
(wrap-program (string-append bin file) |
|
(dep-path |
|
"GUILE_LOAD_PATH" |
|
(uncompiled-dir out |
|
version) |
|
(uncompiled-dir "" |
|
version)) |
|
(dep-path |
|
"GUILE_LOAD_COMPILED_PATH" |
|
(compiled-dir out |
|
version) |
|
(compiled-dir "" version)))) |
|
,''("bible2latex" "count-words")) #t)))))))) |
|
(native-inputs `(("autoconf" ,autoconf) |
|
("automake" ,automake) |
|
("pkg-config" ,pkg-config) |
|
("texinfo" ,texinfo))) |
|
(inputs `(("guile" ,guile-3.0))) |
|
(propagated-inputs `()) |
|
(synopsis "") |
|
(description "") |
|
(home-page "") |
|
(license license:gpl3+))) |
|
|
|
bible-tools
|
|
|