>From a7fcab4e6ea2e61c4a18520a1a462250a503eba7 Mon Sep 17 00:00:00 2001 From: Raghav Gururajan Date: Tue, 21 Apr 2020 16:20:27 -0400 Subject: [PATCH 2/2] gnu: Add eject. * gnu/packages/disk.scm (eject): New variable. --- gnu/packages/disk.scm | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index 573cc88c34..8b2a432e9c 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -66,6 +66,7 @@ #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages samba) + #:use-module (gnu packages scsi) #:use-module (gnu packages sphinx) #:use-module (gnu packages sqlite) #:use-module (gnu packages swig) @@ -86,6 +87,41 @@ #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages)) +(define-public eject + (package + (name "eject") + (version "2019.08.22") + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://git.code.sf.net/p/eject/git") + (commit "12a22e"))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1dxj0zn32l8k16j5innh8y4snambx1b702ny37114drddqcqac6h")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; No target + #:make-flags + (list + (string-append "PREFIX=" (assoc-ref %outputs "out"))))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("gettext" ,gettext-minimal))) + (inputs + `(("lvm2" ,lvm2) + ("sg3-utils" ,sg3-utils))) + (synopsis "Utility for Removable Media") + (description "Eject allows removable media (typically a CD-ROM, floppy disk, +tape, or JAZ or ZIP disk) to be ejected under software control. The command can +also control some multi-disc CD-ROM changers, the auto-eject feature supported +by some devices, and close the disc tray of some CD-ROM drives. ") + (home-page "http://eject.sourceforge.net") + (license license:gpl2+))) + (define-public udevil (package (name "udevil") -- 2.26.1