ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 06:42:14 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ploticus: Refresh package style.

Browse source 
* gnu/packages/plotutils.scm (ploticus): Apply G-expressions to refresh
package style.

Change-Id: Iabf465a9bd4e02c1087b117533dbbf0b4c1a3f14
This commit is contained in:
Sharlatan Hellseher 2024-04-13 13:43:44 +01:00
parent d1146d8ecb
commit 238e4ec73e
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 27 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
gnu/packages/plotutils.scm
View file

@ -310,41 +310,35 @@ (define-public ploticus
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Install binaries in the right place. ;; Install binaries in the right place.
'(begin #~(begin
(substitute* "src/Makefile" (substitute* "src/Makefile"
(("INSTALLBIN =.*$") (("INSTALLBIN =.*$")
(string-append "INSTALLBIN = $(out)/bin"))) (string-append "INSTALLBIN = $(out)/bin")))))))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f (list
#:phases #:tests? #f ; no tests
(modify-phases %standard-phases #:phases
(replace 'configure (lambda _ (chdir "src"))) #~(modify-phases %standard-phases
(add-before 'install 'make-target-directories (replace 'configure (lambda _ (chdir "src")))
(lambda* (#:key outputs #:allow-other-keys) (add-before 'install 'make-target-directories
(let ((out (assoc-ref outputs "out"))) (lambda _
(mkdir-p (string-append out "/bin")) (mkdir-p (string-append #$output "/bin"))))
#t))) (add-after 'install 'install-prefabs
(add-after 'install 'install-prefabs (lambda _
(lambda* (#:key outputs #:allow-other-keys) (let* ((out #$output)
(let* ((out (assoc-ref outputs "out")) (dir (string-append out "/share/ploticus/prefabs"))
(dir (string-append out (bin (string-append out "/bin")))
"/share/ploticus/prefabs")) (mkdir-p dir)
(bin (string-append out "/bin"))) ;; Install "prefabs".
(mkdir-p dir) (for-each
(lambda (file)
;; Install "prefabs". (let ((target (string-append dir "/" (basename file))))
(for-each (lambda (file) (copy-file file target)))
(let ((target (find-files "../prefabs" "."))
(string-append dir "/" ;; Allow them to be found.
(basename file)))) (wrap-program (string-append bin "/pl")
(copy-file file target))) `("PLOTICUS_PREFABS" ":" = (,dir)))))))))
(find-files "../prefabs" "."))
;; Allow them to be found.
(wrap-program (string-append bin "/pl")
`("PLOTICUS_PREFABS" ":" = (,dir)))))))))
(inputs (inputs
(list libpng libx11 zlib)) (list libpng libx11 zlib))
(home-page "https://ploticus.sourceforge.net/") (home-page "https://ploticus.sourceforge.net/")