[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: gnu: xorriso: Build gui frontend.
From: |
guix-commits |
Subject: |
branch master updated: gnu: xorriso: Build gui frontend. |
Date: |
Fri, 10 Apr 2020 06:50:21 -0400 |
This is an automated email from the git hooks/post-receive script.
efraim pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new d90286e gnu: xorriso: Build gui frontend.
d90286e is described below
commit d90286ed5467bb7a0d50aabf252cf7fda78e97dc
Author: Efraim Flashner <address@hidden>
AuthorDate: Tue Mar 24 16:49:54 2020 +0200
gnu: xorriso: Build gui frontend.
* gnu/packages/cdrom.scm (xorriso)[outputs]: Add gui.
[arguments]: Add custom phase to install gui files to separate output
and wrap the binary.
[inputs]: Add tk.
---
gnu/packages/cdrom.scm | 20 +++++++++++++++++++-
1 file changed, 19 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index f893ec9..a2f1121 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -3,7 +3,7 @@
;;; Copyright © 2013, 2014 Andreas Enge <address@hidden>
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <address@hidden>
;;; Copyright © 2015 Paul van der Walt <address@hidden>
-;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <address@hidden>
+;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner
<address@hidden>
;;; Copyright © 2016 Alex Kost <address@hidden>
;;; Copyright © 2016 Marius Bakke <address@hidden>
;;; Copyright © 2017 John Darrington <address@hidden>
@@ -66,6 +66,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages image)
#:use-module (gnu packages photo)
+ #:use-module (gnu packages tcl)
#:use-module (gnu packages video)
#:use-module (gnu packages wget)
#:use-module (gnu packages xiph))
@@ -156,6 +157,7 @@ libcdio.")
(package
(name "xorriso")
(version "1.5.2")
+ (outputs '("out" "gui"))
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/xorriso/xorriso-"
@@ -172,10 +174,26 @@ libcdio.")
(let* ((out (assoc-ref outputs "out"))
(out-bin (string-append out "/bin")))
(install-file "frontend/grub-mkrescue-sed.sh" out-bin)
+ #t)))
+ (add-after 'install 'move-gui-to-separate-output
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (gui (assoc-ref outputs "gui")))
+ (for-each
+ (lambda (file)
+ (mkdir-p (string-append gui (dirname file)))
+ (rename-file (string-append out file)
+ (string-append gui file)))
+ (list "/bin/xorriso-tcltk"
+ "/share/info/xorriso-tcltk.info"
+ "/share/man/man1/xorriso-tcltk.1"))
+ (wrap-program (string-append gui "/bin/xorriso-tcltk")
+ `("PATH" ":" prefix (,(string-append out "/bin"))))
#t))))))
(inputs
`(("acl" ,acl)
("readline" ,readline)
+ ("tk" ,tk)
("zlib" ,zlib)))
(home-page "https://www.gnu.org/software/xorriso/")
(synopsis "Create, manipulate, burn ISO-9660 file systems")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: gnu: xorriso: Build gui frontend.,
guix-commits <=