[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] gnu: Add unetbootin.
From: |
Jan Nieuwenhuizen |
Subject: |
[PATCH] gnu: Add unetbootin. |
Date: |
Sat, 14 Jan 2017 18:26:00 +0100 |
Hi,
Needed this to flash BIOS (ugh).
Greetings,
Jan
>From 5aa1cad5c06dc62f477318f0a40aaf9608672b3b Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <address@hidden>
Date: Sat, 14 Jan 2017 18:23:57 +0100
Subject: [PATCH] gnu: Add unetbootin.
* gnu/packages/disk.scm (unetbootin): New variable.
---
gnu/packages/disk.scm | 41 ++++++++++++++++++++++++++++++++++++++++-
1 file changed, 40 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index a4bb0be13..71595bf3c 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -4,7 +4,7 @@
;;; Copyright © 2015 Mark H Weaver <address@hidden>
;;; Copyright © 2016 Tobias Geerinckx-Rice <address@hidden>
;;; Copyright © 2016 Efraim Flashner <address@hidden>
-;;; Copyright © 2016 Jan Nieuwenhuizen <address@hidden>
+;;; Copyright © 2016,2017 Jan Nieuwenhuizen <address@hidden>
;;; Copyright © 2016 Roel Janssen <address@hidden>
;;; Copyright © 2016 Marius Bakke <address@hidden>
;;;
@@ -45,6 +45,7 @@
#:use-module (gnu packages readline)
#:use-module (gnu packages guile)
#:use-module (gnu packages compression)
+ #:use-module (gnu packages qt)
#:use-module (gnu packages xml))
(define-public parted
@@ -329,3 +330,41 @@ project to detect and manipulate partition tables.
Optional file system tools
permit managing file systems not included in libparted.")
;; The home page says GPLv2, but the source code says GPLv2+.
(license license:gpl2+)))
+
+(define-public unetbootin
+ (package
+ (name "unetbootin")
+ (version "625")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
"https://github.com/unetbootin/unetbootin/archive/"
+ version ".tar.gz"))
+ (file-name (string-append name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "18857mq8a5wwacwb9a6nzm06znzw6md27rbqb72b1kzcpdf2cqqw"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; no tests exist
+ #:phases
+ (modify-phases %standard-phases
+ (replace 'configure
+ (lambda* (#:key make-flags #:allow-other-keys)
+ (chdir "src/unetbootin")
+ (system* "lupdate" "unetbootin.pro")
+ (system* "lrelease" "unetbootin.pro")
+ (system* "qmake")))
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin")))
+ (mkdir-p bin)
+ (copy-file "unetbootin"
+ (string-append bin "/unetbootin"))))))))
+ (inputs
+ `(("qt-4" ,qt-4)))
+ (home-page "https://unetbootin.github.io/")
+ (synopsis "Create bootable live USB images")
+ (description
+ "UNetbootin creates bootable Live USB images.")
+ (license license:gpl2+)))
--
2.11.0
--
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.nl
- [PATCH] gnu: Add unetbootin.,
Jan Nieuwenhuizen <=