futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: atop: Use new package format.

Browse Source 
* gnu/packages/admin.scm (atop)[arguments]: Rewrite using g-exps.
[inputs]: Remove input labels.
This commit is contained in:
Efraim Flashner 2022-05-17 12:29:08 +03:00
parent 2d229578bd
commit ef55192ef8
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 21 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
gnu/packages/admin.scm
View File

@ -4703,29 +4703,30 @@ Netgear devices.")
"0kjwgf94skbrndv1krlmsrq34smzi3iwk73fbsnyw787gvqx4j6a")))) "0kjwgf94skbrndv1krlmsrq34smzi3iwk73fbsnyw787gvqx4j6a"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no test suite (list
#:tests? #f ; no test suite
#:make-flags #:make-flags
(list (string-append "CC=" ,(cc-for-target)) #~(list (string-append "CC=" #$(cc-for-target))
(string-append "DESTDIR=" (assoc-ref %outputs "out")) (string-append "DESTDIR=" #$output)
(string-append "SYSDPATH=/etc/systemd/system") (string-append "SYSDPATH=/etc/systemd/system")
(string-append "PMPATHD=/etc/systemd/system-sleep") (string-append "PMPATHD=/etc/systemd/system-sleep")
;; Or else it tries to create /var/log/atop... ;; Or else it tries to create /var/log/atop...
(string-append "LOGPATH=")) (string-append "LOGPATH="))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) ; No ./configure script (delete 'configure) ; No ./configure script
(add-before 'build 'patch-build (add-before 'build 'patch-build
(lambda _ (lambda _
(substitute* "Makefile" (substitute* "Makefile"
;; Don't use /usr as a prefix ;; Don't use /usr as a prefix.
(("/usr") "") (("/usr") "")
;; Otherwise, it creates a blank configuration file as a "default". ;; Otherwise, it creates a blank configuration file as a "default".
(("touch.*DEFPATH)/atop") "") (("touch.*DEFPATH)/atop") "")
(("chmod.*DEFPATH)/atop") ""))))))) (("chmod.*DEFPATH)/atop") "")))))))
(inputs (inputs
`(("ncurses" ,ncurses) (list ncurses
("python" ,python-wrapper) ; for `atopgpud` python-wrapper ; for `atopgpud`
("zlib" ,zlib))) zlib))
(home-page "https://www.atoptool.nl/") (home-page "https://www.atoptool.nl/")
(synopsis "Linux performance monitoring console") (synopsis "Linux performance monitoring console")
(description "Atop is an ASCII full-screen performance monitor for Linux (description "Atop is an ASCII full-screen performance monitor for Linux