From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jan Nieuwenhuizen Subject: [PATCH] gnu: Add unetbootin. Date: Sat, 14 Jan 2017 18:26:00 +0100 Message-ID: <871sw5ft93.fsf@gnu.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34852) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cSS5u-0008NY-OG for guix-devel@gnu.org; Sat, 14 Jan 2017 12:26:23 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cSS5r-0001DX-8R for guix-devel@gnu.org; Sat, 14 Jan 2017 12:26:22 -0500 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org --=-=-= Content-Type: text/plain Hi, Needed this to flash BIOS (ugh). Greetings, Jan --=-=-= Content-Type: text/x-patch; charset=utf-8 Content-Disposition: inline; filename=0001-gnu-Add-unetbootin.patch Content-Transfer-Encoding: quoted-printable >From 5aa1cad5c06dc62f477318f0a40aaf9608672b3b Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen 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 =C2=A9 2015 Mark H Weaver ;;; Copyright =C2=A9 2016 Tobias Geerinckx-Rice ;;; Copyright =C2=A9 2016 Efraim Flashner -;;; Copyright =C2=A9 2016 Jan Nieuwenhuizen +;;; Copyright =C2=A9 2016,2017 Jan Nieuwenhuizen ;;; Copyright =C2=A9 2016 Roel Janssen ;;; Copyright =C2=A9 2016 Marius Bakke ;;; @@ -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)) =20 (define-public parted @@ -329,3 +330,41 @@ project to detect and manipulate partition tables. Op= tional 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/unetbooti= n/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+))) --=20 2.11.0 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable --=20 Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar=C2=AE http://AvatarAcademy.nl= =20=20 --=-=-=--