me
/
guix
Archived
1
0
Fork 0
Code

gnu: chrony: Use G-expressions. 

* gnu/packages/ntp.scm (chrony)[arguments]:
Rewrite as G-expressions.
master
Tobias Geerinckx-Rice 2023-08-06 02:00:00 +02:00
parent 1b60c48c27
commit 8b40e1ea15
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 25 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/ntp.scm
View File

@ -57,15 +57,17 @@
(base32 "123h2a9rpc6wbvnysvhl5pmckvynzrnqay7l00i18azrvbk0gyza")))) (base32 "123h2a9rpc6wbvnysvhl5pmckvynzrnqay7l00i18azrvbk0gyza"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((srfi srfi-26) (list
#:modules
'((srfi srfi-26)
(guix build utils) (guix build utils)
(guix build gnu-build-system)) (guix build gnu-build-system))
#:configure-flags #:configure-flags
(list "--enable-scfilter" #~(list "--enable-scfilter"
"--with-sendmail=sendmail" "--with-sendmail=sendmail"
"--with-user=chrony") "--with-user=chrony")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'stay-inside-out (add-after 'unpack 'stay-inside-out
;; Simply setting CHRONYVARDIR to something nonsensical at install ;; Simply setting CHRONYVARDIR to something nonsensical at install
;; time would result in nonsense file names in man pages. ;; time would result in nonsense file names in man pages.
@ -73,12 +75,13 @@
(substitute* "Makefile.in" (substitute* "Makefile.in"
(("mkdir -p \\$\\(DESTDIR\\)\\$\\(CHRONYVARDIR\\)") ":")))) (("mkdir -p \\$\\(DESTDIR\\)\\$\\(CHRONYVARDIR\\)") ":"))))
(add-after 'install 'install-more-documentation (add-after 'install 'install-more-documentation
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((doc (string-append #$output "/share/doc/"
(doc (string-append out "/share/doc/" ,name "-" ,version))) #$name "-" #$version)))
(for-each (cut install-file <> doc) (for-each (cut install-file <> doc)
(list "README" "FAQ")) (list "README" "FAQ"))
(copy-recursively "examples" (string-append doc "/examples")))))))) (copy-recursively "examples"
(string-append doc "/examples"))))))))
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(inputs (inputs