From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:46341) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dACYt-0004vj-4a for guix-patches@gnu.org; Mon, 15 May 2017 05:45:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dACYo-0007ac-6L for guix-patches@gnu.org; Mon, 15 May 2017 05:45:07 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:42824) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dACYo-0007aY-2P for guix-patches@gnu.org; Mon, 15 May 2017 05:45:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dACYn-0007Ha-SS for guix-patches@gnu.org; Mon, 15 May 2017 05:45:01 -0400 Subject: bug#26938: [PATCH] gnu: Add catdoc. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:46201) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dACYD-0004bd-H0 for guix-patches@gnu.org; Mon, 15 May 2017 05:44:26 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dACYA-00075E-DX for guix-patches@gnu.org; Mon, 15 May 2017 05:44:25 -0400 Received: from mail-out.m-online.net ([212.18.0.9]:59343) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dACYA-00074u-3c for guix-patches@gnu.org; Mon, 15 May 2017 05:44:22 -0400 Received: from frontend01.mail.m-online.net (unknown [192.168.8.182]) by mail-out.m-online.net (Postfix) with ESMTP id 3wRFz83QHxz1qqkL for ; Mon, 15 May 2017 11:44:20 +0200 (CEST) Received: from localhost (dynscan01.mnet-online.de [192.168.6.70]) by mail.m-online.net (Postfix) with ESMTP id 3wRFz81smSz3hjNC for ; Mon, 15 May 2017 11:44:20 +0200 (CEST) Received: from mail.mnet-online.de ([192.168.8.182]) by localhost (dynscan01.mail.m-online.net [192.168.6.70]) (amavisd-new, port 10024) with ESMTP id YEn7Ehc--NfJ for ; Mon, 15 May 2017 11:44:19 +0200 (CEST) Received: from hermia.goebel-consult.de (ppp-46-244-136-36.dynamic.mnet-online.de [46.244.136.36]) (using TLSv1 with cipher DHE-RSA-CAMELLIA256-SHA (256/256 bits)) (No client certificate requested) by mail.mnet-online.de (Postfix) with ESMTPS for ; Mon, 15 May 2017 11:44:19 +0200 (CEST) Received: from lenashee.goebel-consult.de (lenashee.goebel-consult.de [192.168.110.2]) by hermia.goebel-consult.de (Postfix) with ESMTP id 463D260373 for ; Mon, 15 May 2017 13:36:45 +0200 (CEST) From: Hartmut Goebel Date: Mon, 15 May 2017 11:44:18 +0200 Message-Id: <1494841458-12962-1-git-send-email-h.goebel@crazy-compilers.com> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26938@debbugs.gnu.org * gnu/packages/textutils.scm (catdoc): New variable. --- gnu/packages/textutils.scm | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) diff --git a/gnu/packages/textutils.scm b/gnu/packages/textutils.scm index dbd71c2..7945df3 100644 --- a/gnu/packages/textutils.scm +++ b/gnu/packages/textutils.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2016 Marius Bakke ;;; Copyright © 2017 Eric Bavier ;;; Copyright © 2017 Rene Saavedra +;;; Copyright © 2017 Hartmut Goebel ;;; ;;; This file is part of GNU Guix. ;;; @@ -368,6 +369,44 @@ to everybody, because they believe that everybody runs Windows and therefore runs Word\".") (license license:gpl2+))) +(define-public catdoc + (package + (name "catdoc") + (version "0.95") + (source (origin + (method url-fetch) + (uri (string-append "http://ftp.wagner.pp.ru/pub/catdoc/" + "catdoc-" version ".tar.gz")) + (sha256 + (base32 + "15h7v3bmwfk4z8r78xs5ih6vd0pskn0rj90xghvbzdjj0cc88jji")))) + (build-system gnu-build-system) + ;; TODO: Also build `wordview` which requires `tk` – make a separate + ;; package for this. + (arguments + '(#:tests? #f ; There are no tests + #:configure-flags '("--disable-wordview") + #:phases + (modify-phases %standard-phases + (add-before 'install 'fix-install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (mkdir-p (string-append out "/share/man/man1")))))))) + (home-page "http://www.wagner.pp.ru/~vitus/software/catdoc/") + (synopsis "MS-Word to TeX or plain text converter") + (description "@command{catdoc} extracts text from MS-Word files, trying to +preserve as many special printable characters as possible. catdoc supports +everything up to Word-97. Also supported are MS Write documents and RTF files. + +It doesn't even try to preserve fancy Word formatting, because Word users +usually don't care about document structure, and it is this very thing which +is important to LaTeX users. + +This package also provides @command{xls2csv}, which extracts data from Excel +spreadsheets and outputs it in comma-separated-value format, and +@command{catppt}, which extracts data from PowerPoint presentations.") + (license license:gpl2+))) + (define-public utfcpp (package (name "utfcpp") -- 2.7.4