(address . guix-patches@gnu.org)
From a7fcab4e6ea2e61c4a18520a1a462250a503eba7 Mon Sep 17 00:00:00 2001
From: Raghav Gururajan <raghavgururajan@disroot.org>
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(+)
Toggle diff (56 lines)
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