From f6c03d2532c61a7de2a0875b730db21521e2f45c Mon Sep 17 00:00:00 2001 From: Eric Bavier Date: Tue, 12 Aug 2014 01:30:27 -0500 Subject: [PATCH] gnu: Add detox. * gnu/packages/admin.scm (detox): New variable. --- gnu/packages/admin.scm | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 4efdf27..06277f1 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -46,6 +46,7 @@ #:use-module (gnu packages flex) #:use-module (gnu packages glib) #:use-module (gnu packages pkg-config) + #:use-module (gnu packages popt) #:use-module (gnu packages texinfo) #:use-module (gnu packages groff) #:use-module (gnu packages pciutils) @@ -909,3 +910,31 @@ perceived performance characteristics, and by systems programmers to expose the classes of bugs which only or more frequently manifest themselves when the system is under heavy load.") (license gpl2+))) + +(define-public detox + (package + (name "detox") + (version "1.2.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/detox/detox-" + version ".tar.bz2")) + (sha256 + (base32 + "1y6vvjqsg54kl49cry73jbfhr04s7wjs779vrr9zrq6kww7dkymb")))) + (build-system gnu-build-system) + (inputs + `(("flex" ,flex) + ("popt" ,popt))) + (arguments + `(#:configure-flags `(,(string-append "--with-popt=" + (assoc-ref %build-inputs "popt"))) + #:tests? #f)) ;no 'check' target + (home-page "http://detox.sourceforge.net") + (synopsis "Clean up filenames") + (description + "Detox is a program that renames files to make them easier to work with +under Unix and related operating systems. Spaces and various other unsafe +characters (such as \"$\") get replaced with \"_\". ISO 8859-1 (Latin-1) +characters can be replaced as well, as can UTF-8 characters.") + (license bsd-3))) -- 1.7.9.5