me
/
guix
Archived
1
0
Fork 0
Code

gnu: ploticus: Refresh package style. 

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

Change-Id: Iabf465a9bd4e02c1087b117533dbbf0b4c1a3f14
master
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

32
gnu/packages/plotutils.scm
View File

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