75 lines
2.6 KiB
Scheme
75 lines
2.6 KiB
Scheme
|
(use-modules
|
||
|
|
(gnu packages)
|
||
|
|
(gnu packages autotools)
|
||
|
|
(gnu packages guile)
|
||
|
|
(gnu packages guile-xyz)
|
||
|
|
(gnu packages pkg-config)
|
||
|
|
(gnu packages texinfo)
|
||
|
|
(guix build-system gnu)
|
||
|
|
(guix download)
|
||
|
|
(guix gexp)
|
||
|
|
((guix licenses) #:prefix license:)
|
||
|
|
(guix packages)
|
||
|
|
(srfi srfi-1))
|
||
|
|
|
||
|
|
(package
|
||
|
|
(name "msg")
|
||
|
|
(version "0.1")
|
||
|
|
(source
|
||
|
|
(local-file
|
||
|
|
(dirname (current-filename))
|
||
|
|
#:recursive?
|
||
|
|
#t
|
||
|
|
#:select?
|
||
|
|
(lambda (file stat)
|
||
|
|
(not (any (lambda (my-string) (string-contains file my-string))
|
||
|
|
(list ".git" ".dir-locals.el" "guix.scm"))))))
|
||
|
|
(build-system gnu-build-system)
|
||
|
|
(arguments
|
||
|
|
(list #:modules
|
||
|
|
`(((guix build guile-build-system)
|
||
|
|
#:select
|
||
|
|
(target-guile-effective-version))
|
||
|
|
,@%gnu-build-system-modules)
|
||
|
|
#:phases
|
||
|
|
(with-imported-modules
|
||
|
|
`((guix build guile-build-system) ,@%gnu-build-system-modules)
|
||
|
|
(gexp (modify-phases
|
||
|
|
%standard-phases
|
||
|
|
(add-after
|
||
|
|
'install
|
||
|
|
'hall-wrap-binaries
|
||
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
||
|
|
(let* ((version (target-guile-effective-version))
|
||
|
|
(site-ccache
|
||
|
|
(string-append "/lib/guile/" version "/site-ccache"))
|
||
|
|
(site (string-append "/share/guile/site/" version))
|
||
|
|
(dep-path
|
||
|
|
(lambda (env path)
|
||
|
|
(list env
|
||
|
|
":"
|
||
|
|
'prefix
|
||
|
|
(cons (string-append (ungexp output) path)
|
||
|
|
(map (lambda (input)
|
||
|
|
(string-append
|
||
|
|
(assoc-ref inputs input)
|
||
|
|
path))
|
||
|
|
(list))))))
|
||
|
|
(bin (string-append (ungexp output) "/bin/")))
|
||
|
|
(for-each
|
||
|
|
(lambda (file)
|
||
|
|
(wrap-program
|
||
|
|
(string-append bin file)
|
||
|
|
(dep-path "GUILE_LOAD_PATH" site)
|
||
|
|
(dep-path "GUILE_LOAD_COMPILED_PATH" site-ccache)
|
||
|
|
(dep-path "GUILE_EXTENSIONS_PATH" "/lib")))
|
||
|
|
(list "msg"))))))))))
|
||
|
|
(native-inputs (list autoconf automake pkg-config texinfo))
|
||
|
|
(inputs (list guile-3.0))
|
||
|
|
(propagated-inputs (list))
|
||
|
|
(synopsis "")
|
||
|
|
(description "")
|
||
|
|
(home-page "")
|
||
|
|
(license license:agpl3+))
|
||
|
|
|