Re: [PATCH] Add antiword.

[taylanbayirli@gmail.com (Taylan Ulrich Bayırlı/Kammer)]

Ricardo Wurmus <rekado@elephly.net> writes:

> Hi Guix,
>
> I’m not sure about the description, nor about the mention of
> “Microsoft”.  If you have better ideas for the description and synopsis
> please comment.
>
> ~~ Ricardo

The last part (about where the name comes from) might not be strictly
necessary, but it's funny and a statement, so no opinion on it. :-)

Otherwise seems fine to me.  We also mention e.g. Nintendo in the
synopsis and description of some emulators.  It's just what it is.  
Certainly not an encouragement to use MS Word, I'd say.

Taylan

> From a29993c7c079708aa0006a33333af34b25bab99c Mon Sep 17 00:00:00 2001
> From: Ricardo Wurmus <rekado@elephly.net>
> Date: Thu, 28 Apr 2016 08:11:05 +0200
> Subject: [PATCH] gnu: Add antiword.
>
> * gnu/packages/textutils.scm (antiword): New variable.
> ---
>  gnu/packages/textutils.scm | 36 ++++++++++++++++++++++++++++++++++++
>  1 file changed, 36 insertions(+)
>
> diff --git a/gnu/packages/textutils.scm b/gnu/packages/textutils.scm
> index 71cf25b..e4caf8e 100644
> --- a/gnu/packages/textutils.scm
> +++ b/gnu/packages/textutils.scm
> @@ -292,3 +292,39 @@ as existing hashing techniques, with provably negligible risk of collisions.")
>  characteristic of this library is that different character encoding for every
>  regular expression object can be specified.")
>      (license license:bsd-2)))
> +
> +(define-public antiword
> +  (package
> +    (name "antiword")
> +    (version "0.37")
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append "http://www.winfield.demon.nl/linux"
> +                                  "/antiword-" version ".tar.gz"))
> +              (sha256
> +               (base32
> +                "1b7mi1l20jhj09kyh0bq14qzz8vdhhyf35gzwsq43mn6rc7h0b4f"))))
> +    (build-system gnu-build-system)
> +    (arguments
> +     `(#:tests? #f ; There are no tests
> +       #:make-flags
> +       (list "-f" "Makefile.Linux"
> +             (string-append "GLOBAL_INSTALL_DIR="
> +                            (assoc-ref %outputs "out") "/bin")
> +             (string-append "GLOBAL_RESOURCES_DIR="
> +                            (assoc-ref %outputs "out") "/share/antiword"))
> +       #:phases
> +       (modify-phases %standard-phases
> +         (delete 'configure)
> +         (replace 'install
> +           (lambda* (#:key make-flags #:allow-other-keys)
> +             (zero? (apply system* "make" `("global_install" ,@make-flags))))))))
> +    (home-page "http://www.winfield.demon.nl/")
> +    (synopsis "Microsoft Word document reader")
> +    (description "Antiword is an application for displaying Microsoft Word
> +documents.  It can also convert the document to PostScript or XML.  Only
> +documents made by MS Word version 2 and version 6 or later are supported.  The
> +name comes from: \"The antidote against people who send Microsoft(R) Word
> +files to everybody, because they believe that everybody runs Windows(R) and
> +therefore runs Word\".")
> +    (license license:gpl2+)))