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

guix.scm updated

master
Silas Vedder 2 years ago
parent
c113750973
commit
2f6284499a
1 changed files with 68 additions and 58 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 126
      guix.scm

126
guix.scm
Unescape View File

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

Write Preview
Loading…
Cancel
Save