Browse Source

Stuff

master
Silas Vedder 2 years ago
parent
commit
9b6ff8e420
  1. 0
      README.org
  2. 155
      guix.scm

0
README.org

155
guix.scm

@ -2,6 +2,7 @@
(guix packages) (guix packages)
((guix licenses) #:prefix license:) ((guix licenses) #:prefix license:)
(guix download) (guix download)
(guix git-download)
(guix build-system gnu) (guix build-system gnu)
(gnu packages) (gnu packages)
(gnu packages autotools) (gnu packages autotools)
@ -10,75 +11,85 @@
(gnu packages pkg-config) (gnu packages pkg-config)
(gnu packages texinfo)) (gnu packages texinfo))
(package (define-public bible-tools
(name "bible-tools") (package
(version "1.0") (name "bible-tools")
(source "./bible-tools-1.0.tar.gz") (version "1.0")
(build-system gnu-build-system) (source
(arguments (origin
`(#:modules (method git-fetch)
((ice-9 match) (uri (git-reference
(ice-9 ftw) (url "https://git.silasvedder.xyz/silasfox/bible-tools.git")
,@%gnu-build-system-modules) (commit "8b23959fed8d15ba074a354b85c42cc587d9c0a2")))
#:phases (file-name "bible-tools-1.0-checkout")
(modify-phases (sha256 (base32 "119l6fbj7x0rs0jnczjhkyqmiiwbx2b944985qykgmdb557p5bhf"))))
%standard-phases (build-system gnu-build-system)
(add-after (arguments
'install `(#:modules
'hall-wrap-binaries ((ice-9 match)
(lambda* (#:key inputs outputs #:allow-other-keys) (ice-9 ftw)
(let* ((compiled-dir ,@%gnu-build-system-modules)
(lambda (out version) #:phases
(string-append (modify-phases
out %standard-phases
"/lib/guile/" (add-after
version 'install
"/site-ccache"))) 'hall-wrap-binaries
(uncompiled-dir (lambda* (#:key inputs outputs #:allow-other-keys)
(lambda (out version) (let* ((compiled-dir
(string-append (lambda (out version)
out (string-append
"/share/guile/site" out
(if (string-null? version) "" "/") "/lib/guile/"
version))) version
(dep-path "/site-ccache")))
(lambda (env modules path) (uncompiled-dir
(list env (lambda (out version)
":" (string-append
'prefix out
(cons modules "/share/guile/site"
(map (lambda (input) (if (string-null? version) "" "/")
(string-append version)))
(assoc-ref inputs input) (dep-path
path)) (lambda (env modules path)
,''()))))) (list env
(out (assoc-ref outputs "out")) ":"
(bin (string-append out "/bin/")) 'prefix
(site (uncompiled-dir out ""))) (cons modules
(match (scandir site) (map (lambda (input)
(("." ".." version) (string-append
(for-each (assoc-ref inputs input)
(lambda (file) path))
(wrap-program ,''())))))
(string-append bin file) (out (assoc-ref outputs "out"))
(dep-path (bin (string-append out "/bin/"))
"GUILE_LOAD_PATH" (site (uncompiled-dir out "")))
(uncompiled-dir out version) (match (scandir site)
(uncompiled-dir "" version)) (("." ".." version)
(dep-path (for-each
"GUILE_LOAD_COMPILED_PATH" (lambda (file)
(compiled-dir out version) (wrap-program
(compiled-dir "" version)))) (string-append bin file)
,''("bible2latex" "count-words")) (dep-path
#t)))))))) "GUILE_LOAD_PATH"
(native-inputs (uncompiled-dir out version)
`(("autoconf" ,autoconf) (uncompiled-dir "" version))
("automake" ,automake) (dep-path
("pkg-config" ,pkg-config) "GUILE_LOAD_COMPILED_PATH"
("texinfo" ,texinfo))) (compiled-dir out version)
(inputs `(("guile" ,guile-3.0))) (compiled-dir "" version))))
(propagated-inputs `()) ,''("bible2latex" "count-words"))
(synopsis "") #t))))))))
(description "") (native-inputs
(home-page "") `(("autoconf" ,autoconf)
(license license:gpl3+)) ("automake" ,automake)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(inputs `(("guile" ,guile-3.0)))
(propagated-inputs `())
(synopsis "")
(description "")
(home-page "")
(license license:gpl3+)))
bible-tools

Loading…
Cancel
Save