[PATCH] gnu: Add detox.

[PATCH] gnu: Add detox.

[Eric Bavier]

[-- Attachment #1.1: Type: text/plain, Size: 1 bytes --]



[-- Attachment #1.2: Type: text/html, Size: 27 bytes --]

[-- Attachment #2: 0001-gnu-Add-detox.patch --]
[-- Type: text/x-patch, Size: 2125 bytes --]

From f6c03d2532c61a7de2a0875b730db21521e2f45c Mon Sep 17 00:00:00 2001
From: Eric Bavier <bavier@member.fsf.org>
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

Re: [PATCH] gnu: Add detox.

[Ludovic Courtès]

Eric Bavier <ericbavier@gmail.com> skribis:

> +    (inputs
> +     `(("flex" ,flex)
> +       ("popt" ,popt)))

Flex should be a native input, and I think popt too (it’s a program used
at build time, right?).

> +    (synopsis "Clean up filenames")

“file names”.

Thanks,
Ludo’.

Re: [PATCH] gnu: Add detox.

[Eric Bavier]

Ludovic Courtès writes:

> Eric Bavier <ericbavier@gmail.com> skribis:
>
>> +    (inputs
>> +     `(("flex" ,flex)
>> +       ("popt" ,popt)))
>
> Flex should be a native input, and I think popt too (it’s a program used
> at build time, right?).

Both flex and popt are used in this case for their runtime libraries
(libfl and libpopt).

-- 
Eric Bavier

Re: [PATCH] gnu: Add detox.

[Ludovic Courtès]

Eric Bavier <ericbavier@gmail.com> skribis:

> Ludovic Courtès writes:
>
>> Eric Bavier <ericbavier@gmail.com> skribis:
>>
>>> +    (inputs
>>> +     `(("flex" ,flex)
>>> +       ("popt" ,popt)))
>>
>> Flex should be a native input, and I think popt too (it’s a program used
>> at build time, right?).
>
> Both flex and popt are used in this case for their runtime libraries
> (libfl and libpopt).

Ah OK.  Then OK to push, possibly with the above sentence as a comment.

Thanks!

Ludo’.