me/guix
Archived
1
0
Fork 0
Code Activity

gnu: dehydrated: Use G-expressions.

Browse source 
* gnu/packages/tls.scm (dehydrated)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-10-23 02:00:00 +02:00
parent 019be3f652
commit 4f5e87f751
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 41 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

81
gnu/packages/tls.scm
View file

@ -1123,53 +1123,54 @@ coding footprint.")
(base32 "0rvxgxfk0filzw2dr14xwmiic1pwj82b615wydmg818xwdx7mxfx")))) (base32 "0rvxgxfk0filzw2dr14xwmiic1pwj82b615wydmg818xwdx7mxfx"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(arguments (arguments
`(#:modules ((guix build utils) (list
#:modules '((guix build utils)
(srfi srfi-26)) (srfi srfi-26))
#:builder #:builder
(begin #~(begin
(use-modules (guix build utils) (use-modules (guix build utils)
(srfi srfi-26)) (srfi srfi-26))
(let* ((source (assoc-ref %build-inputs "source")) (let* ((source (assoc-ref %build-inputs "source"))
(gzip (search-input-file %build-inputs "bin/gzip")) (gzip (search-input-file %build-inputs "bin/gzip"))
(out (assoc-ref %outputs "out")) (bin (string-append #$output "/bin"))
(bin (string-append out "/bin")) (doc (string-append #$output "/share/doc/"
(doc (string-append out "/share/doc/" ,name "-" ,version)) #$name "-" #$version))
(man (string-append out "/share/man")) (man (string-append #$output "/share/man"))
(bash (in-vicinity (assoc-ref %build-inputs "bash") "bin"))) (bash (in-vicinity (assoc-ref %build-inputs "bash") "bin")))
(chdir source) (chdir source)
(copy-recursively "docs" doc) (copy-recursively "docs" doc)
(install-file "LICENSE" doc) (install-file "LICENSE" doc)
(mkdir-p man) (mkdir-p man)
(rename-file (string-append doc "/man") (rename-file (string-append doc "/man")
(string-append man "/man1")) (string-append man "/man1"))
(for-each (cut invoke gzip "-9" <>) (for-each (cut invoke gzip "-9" <>)
(find-files man ".*")) (find-files man ".*"))
(install-file "dehydrated" bin) (install-file "dehydrated" bin)
(with-directory-excursion bin (with-directory-excursion bin
(patch-shebang "dehydrated" (list bash)) (patch-shebang "dehydrated" (list bash))
;; Do not try to write to the store. ;; Do not try to write to the store.
(substitute* "dehydrated" (substitute* "dehydrated"
(("SCRIPTDIR=\"\\$.*\"") "SCRIPTDIR=~/.dehydrated")) (("SCRIPTDIR=\"\\$.*\"") "SCRIPTDIR=~/.dehydrated"))
(setenv "PATH" bash) (setenv "PATH" bash)
(wrap-program "dehydrated" (wrap-program "dehydrated"
`("PATH" ":" prefix `("PATH" ":" prefix
,(map (lambda (dir) ,(map (lambda (dir)
(string-append dir "/bin")) (string-append dir "/bin"))
(map (lambda (input) (map (lambda (input)
(assoc-ref %build-inputs input)) (assoc-ref %build-inputs input))
'("coreutils" '("coreutils"
"curl" "curl"
"diffutils" "diffutils"
"gawk" "gawk"
"grep" "grep"
"openssl" "openssl"
"sed")))))))))) "sed"))))))))))
(inputs (inputs
(list bash (list bash
coreutils coreutils