gnu/packages/libreoffice.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014 John Darrington <jmd@gnu.org>
   3 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
   4 ;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
   5 ;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
   6 ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
   7 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   8 ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
   9 ;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org>
  10 ;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com>
  11 ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
  12 ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
  13 ;;; Copyright © 2018 Jonathan Brielmaier <jonathan.brielmaier@web.de>
  14 ;;;
  15 ;;; This file is part of GNU Guix.
  16 ;;;
  17 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  18 ;;; under the terms of the GNU General Public License as published by
  19 ;;; the Free Software Foundation; either version 3 of the License, or (at
  20 ;;; your option) any later version.
  21 ;;;
  22 ;;; GNU Guix is distributed in the hope that it will be useful, but
  23 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  24 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 ;;; GNU General Public License for more details.
  26 ;;;
  27 ;;; You should have received a copy of the GNU General Public License
  28 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  29
  30 (define-module (gnu packages libreoffice)
  31   #:use-module (guix build-system glib-or-gtk)
  32   #:use-module (guix build-system gnu)
  33   #:use-module (guix build-system trivial)
  34   #:use-module (guix download)
  35   #:use-module ((guix licenses)
  36                 #:select (gpl2+ lgpl2.1+ lgpl3+ mpl1.1 mpl2.0
  37                           non-copyleft x11-style bsd-3))
  38   #:use-module (guix packages)
  39   #:use-module (guix utils)
  40   #:use-module (ice-9 match)
  41   #:use-module (gnu packages)
  42   #:use-module (gnu packages autotools)
  43   #:use-module (gnu packages base)
  44   #:use-module (gnu packages bison)
  45   #:use-module (gnu packages boost)
  46   #:use-module (gnu packages check)
  47   #:use-module (gnu packages compression)
  48   #:use-module (gnu packages cups)
  49   #:use-module (gnu packages curl)
  50   #:use-module (gnu packages cyrus-sasl)
  51   #:use-module (gnu packages databases)
  52   #:use-module (gnu packages documentation)
  53   #:use-module (gnu packages flex)
  54   #:use-module (gnu packages fontutils)
  55   #:use-module (gnu packages ghostscript)
  56   #:use-module (gnu packages gl)
  57   #:use-module (gnu packages glib)
  58   #:use-module (gnu packages gnome)
  59   #:use-module (gnu packages gperf)
  60   #:use-module (gnu packages gnupg)
  61   #:use-module (gnu packages gnuzilla)
  62   #:use-module (gnu packages gstreamer)
  63   #:use-module (gnu packages gtk)
  64   #:use-module (gnu packages icu4c)
  65   #:use-module (gnu packages image)
  66   #:use-module (gnu packages java)
  67   #:use-module (gnu packages linux)
  68   #:use-module (gnu packages maths)
  69   #:use-module (gnu packages openldap)
  70   #:use-module (gnu packages pdf)
  71   #:use-module (gnu packages perl)
  72   #:use-module (gnu packages pkg-config)
  73   #:use-module (gnu packages python)
  74   #:use-module (gnu packages rdf)
  75   #:use-module (gnu packages scanner)
  76   #:use-module (gnu packages tls)
  77   #:use-module (gnu packages version-control)
  78   #:use-module (gnu packages xml)
  79   #:use-module (gnu packages xorg))
  80
  81 (define-public ixion
  82   (package
  83     (name "ixion")
  84     (version "0.14.1")
  85     (source
  86      (origin
  87        (method url-fetch)
  88        (uri (string-append "http://kohei.us/files/ixion/src/libixion-"
  89                            version ".tar.xz"))
  90        (sha256
  91         (base32
  92          "14gdd6div4l22vnz3jn2qjxgjly98ck6p8c1v7386c41rx7kilba"))))
  93     (build-system gnu-build-system)
  94     (native-inputs
  95      `(("pkg-config" ,pkg-config)))
  96     (inputs
  97      `(("mdds" ,mdds)
  98        ("python" ,python)))
  99     (home-page "https://gitlab.com/ixion/ixion")
 100     (synopsis "General purpose formula parser and interpreter")
 101     (description "Ixion is a library for calculating the results of formula
 102 expressions stored in multiple named targets, or \"cells\".  The cells can
 103 be referenced from each other, and the library takes care of resolving
 104 their dependencies automatically upon calculation.")
 105     (license mpl2.0)))
 106
 107 (define-public orcus
 108   (package
 109     (name "orcus")
 110     (version "0.14.1")
 111     (source
 112      (origin
 113        (method url-fetch)
 114        (uri (string-append "http://kohei.us/files/" name "/src/lib"
 115                            name "-" version ".tar.xz"))
 116        (sha256
 117         (base32
 118          "1ays13a1x15j81dsrq0d3697v1bbqd3bfz3ajn6kb9d61y2drlgj"))))
 119     (build-system gnu-build-system)
 120     (native-inputs
 121      `(("pkg-config" ,pkg-config)))
 122     (inputs
 123      `(("ixion" ,ixion)
 124        ("mdds" ,mdds)
 125        ("python" ,python)
 126        ("zlib" ,zlib)))
 127     (home-page "https://gitlab.com/orcus/orcus")
 128     (synopsis "File import filter library for spreadsheet documents")
 129     (description "Orcus is a library that provides a collection of standalone
 130 file processing filters.  It is currently focused on providing filters for
 131 spreadsheet documents.  The library includes import filters for
 132 Microsoft Excel 2007 XML, Microsoft Excel 2003 XML, Open Document Spreadsheet,
 133 Plain Text, Gnumeric XML, Generic XML.  It also includes low-level parsers for
 134 CSV, CSS and XML.")
 135     (license mpl2.0)))
 136
 137 (define-public librevenge
 138   (package
 139     (name "librevenge")
 140     (version "0.0.4")
 141     (source
 142      (origin
 143       (method url-fetch)
 144       (uri (string-append "mirror://sourceforge/libwpd/" name "/" name "-"
 145                           version "/" name "-" version ".tar.xz"))
 146       (sha256 (base32
 147                "1cj76cz4mqcy2mgv9l5xlc95bypyk8zbq0ls9cswqrs2y0lhfgwk"))))
 148     (build-system gnu-build-system)
 149     (native-inputs
 150      `(("cppunit" ,cppunit)
 151        ("doxygen" ,doxygen)
 152        ("pkg-config" ,pkg-config)))
 153     (inputs
 154      `(("zlib" ,zlib)))
 155     (propagated-inputs                  ; Referenced by .la files
 156      `(("boost" ,boost)))
 157     (arguments
 158      ;; avoid triggering configure errors by simple inclusion of boost headers
 159      `(#:configure-flags '("--disable-werror"
 160                            ;; Avoid undefined library references
 161                            "LDFLAGS=-lboost_system")))
 162     (home-page "https://sourceforge.net/p/libwpd/wiki/librevenge/")
 163     (synopsis "Document importer for office suites")
 164     (description "Librevenge is a base library for writing document import
 165 filters.  It has interfaces for text documents, vector graphics,
 166 spreadsheets and presentations.")
 167     (license (list mpl2.0 lgpl2.1+))))            ;dual licensed
 168
 169 (define-public libwpd
 170   (package
 171     (name "libwpd")
 172     (version "0.10.2")
 173     (source
 174      (origin
 175       (method url-fetch)
 176       (uri (string-append "mirror://sourceforge/" name "/" name "/"
 177                           name "-" version "/" name "-" version ".tar.xz"))
 178       (sha256 (base32
 179                "0436gnidx45a9vx114hhh216jrh57mqb9zyssyjfadagmyz6hgrj"))))
 180     (build-system gnu-build-system)
 181     (native-inputs
 182      `(("doxygen" ,doxygen)
 183        ("pkg-config" ,pkg-config)))
 184     (propagated-inputs
 185      `(("librevenge" ,librevenge))) ; in Requires field of .pkg
 186     (inputs
 187      `(("zlib" ,zlib)))
 188     (home-page "http://libwpd.sourceforge.net/")
 189     (synopsis "Library for importing WordPerfect documents")
 190     (description "Libwpd is a C++ library designed to help process
 191 WordPerfect documents.  It is most commonly used to import such documents
 192 into other word processors.")
 193     (license (list mpl2.0 lgpl2.1+))))            ;dual licensed
 194
 195 (define-public libe-book
 196   (package
 197     (name "libe-book")
 198     (version "0.1.3")
 199     (source
 200       (origin
 201         (method url-fetch)
 202         (uri (string-append "mirror://sourceforge/libebook/libe-book-"
 203                             version "/libe-book-" version ".tar.xz"))
 204         (sha256
 205           (base32
 206             "1yg1vws1wggzhjw672bpgh2x541g5i9wryf67g51m0r79zrqz3by"))))
 207     (build-system gnu-build-system)
 208     (native-inputs
 209      `(("cppunit" ,cppunit)
 210        ("gperf" ,gperf)
 211        ("pkg-config" ,pkg-config)))
 212     (propagated-inputs ; in Requires or Requires.private field of .pkg
 213      `(("icu4c" ,icu4c)
 214        ("liblangtag" ,liblangtag)
 215        ("librevenge" ,librevenge)
 216        ("libxml2" ,libxml2)))
 217     (inputs
 218       `(("boost" ,boost)))
 219     (arguments
 220      ;; avoid triggering configure errors by simple inclusion of boost headers
 221      `(#:configure-flags '("--disable-werror")))
 222     (home-page "http://libebook.sourceforge.net")
 223     (synopsis "Library for import of reflowable e-book formats")
 224     (description "Libe-book is a library and a set of tools for reading and
 225 converting various reflowable e-book formats.  Currently supported are:
 226 Broad Band eBook, eReader .pdb, FictionBook v. 2 (including zipped files),
 227 PalmDoc Ebook, Plucker .pdb, QiOO (mobile format, for java-enabled
 228 cellphones), TCR (simple compressed text format), TealDoc, zTXT,
 229 ZVR (simple compressed text format).")
 230     (license mpl2.0)))
 231
 232 (define-public libepubgen
 233   (package
 234     (name "libepubgen")
 235     (version "0.1.1")
 236     (source
 237      (origin
 238        (method url-fetch)
 239        (uri (string-append "mirror://sourceforge/libepubgen/libepubgen-"
 240                            version "/libepubgen-" version ".tar.xz"))
 241        (sha256
 242         (base32
 243          "1b8mc9zzrqypj1v9zdy3ybc48pw0rfr06cyi7n6grvybjjwq9q03"))))
 244     (build-system gnu-build-system)
 245     (native-inputs
 246      `(("cppunit" ,cppunit)
 247        ("pkg-config" ,pkg-config)))
 248     (inputs
 249      `(("libxml2" ,libxml2)
 250        ("boost" ,boost)))
 251     (propagated-inputs         ; in Requires field of .pkg
 252      `(("librevenge" ,librevenge)))
 253     (home-page "https://sourceforge.net/projects/libepubgen/")
 254     (synopsis "EPUB generator library for librevenge")
 255     (description "libepubgen is an EPUB generator for librevenge.  It supports
 256 librevenge's text document interface and--currently in a very limited
 257 way--presentation and vector drawing interfaces.")
 258     (license mpl2.0)))
 259
 260 (define-public libwpg
 261   (package
 262     (name "libwpg")
 263     (version "0.3.2")
 264     (source
 265      (origin
 266       (method url-fetch)
 267       (uri (string-append "mirror://sourceforge/" name "/" name "/"
 268                           name "-" version "/" name "-" version ".tar.xz"))
 269       (sha256 (base32
 270                "0cwc5zkp210c661l0bvk6q21jg9ak5g8gmy578w5fgfnjymz3yjp"))))
 271     (build-system gnu-build-system)
 272     (native-inputs
 273      `(("doxygen" ,doxygen)
 274        ("pkg-config" ,pkg-config)))
 275     (propagated-inputs
 276      `(("libwpd" ,libwpd))) ; in Requires field of .pkg
 277     (inputs
 278      `(("perl" ,perl)
 279        ("zlib" ,zlib)))
 280     (home-page "http://libwpg.sourceforge.net/")
 281     (synopsis "Library and tools for the WordPerfect Graphics format")
 282     (description "The libwpg project provides a library and tools for
 283 working with graphics in the WPG (WordPerfect Graphics) format.")
 284     (license (list mpl2.0 lgpl2.1+))))            ;dual licensed
 285
 286 (define-public libcmis
 287   (package
 288     (name "libcmis")
 289     (version "0.5.1")
 290     (source
 291      (origin
 292       (method url-fetch)
 293       (uri (string-append "https://github.com/tdf/libcmis/releases/download/v"
 294                           version "/libcmis-" version ".tar.gz"))
 295       (sha256
 296        (base32
 297         "03kvl8ywsv5qrxblf0m6955mmvl5q2zpb6vj51vs7ayvxhidzjva"))))
 298     (build-system gnu-build-system)
 299     (native-inputs
 300      `(("cppunit" ,cppunit)
 301        ("pkg-config" ,pkg-config)))
 302     (propagated-inputs ; in Requires field of .pkg
 303      `(("curl" ,curl)
 304        ("libxml2" ,libxml2)))
 305     (inputs
 306      `(("boost" ,boost)
 307        ("cyrus-sasl" ,cyrus-sasl)
 308        ("openssl" ,openssl)))
 309     (arguments
 310      `(#:configure-flags
 311         (list
 312           ;; FIXME: Man pages generation requires docbook-to-man; reenable
 313           ;; it once this is available.
 314           "--without-man"
 315           ;; avoid triggering configure errors by simple inclusion of
 316           ;; boost headers
 317           "--disable-werror"
 318           ;; During configure, the boost headers are found, but linking
 319           ;; fails without the following flag.
 320           (string-append "--with-boost="
 321                          (assoc-ref %build-inputs "boost")))
 322         #:phases (modify-phases %standard-phases
 323                    (add-before 'build 'fix-boost-include
 324                      (lambda _
 325                        ;; This library moved in Boost and the compatibility
 326                        ;; redirect is no longer available since version 1.68.0.
 327                        (substitute* "src/libcmis/xml-utils.cxx"
 328                          (("boost/uuid/sha1.hpp")
 329                           "boost/uuid/detail/sha1.hpp"))
 330                        #t)))))
 331     (home-page "https://github.com/tdf/libcmis")
 332     (synopsis "CMIS client library")
 333     (description "LibCMIS is a C++ client library for the CMIS interface.  It
 334 allows C++ applications to connect to any ECM behaving as a CMIS server such
 335 as Alfresco or Nuxeo.")
 336     (license (list mpl1.1 gpl2+ lgpl2.1+)))) ; triple license
 337
 338 (define-public libabw
 339   (package
 340     (name "libabw")
 341     (version "0.1.2")
 342     (source
 343      (origin
 344       (method url-fetch)
 345       (uri (string-append "https://dev-www.libreoffice.org/src/" name "/"
 346                           name "-" version ".tar.xz"))
 347       (sha256 (base32
 348                "11949iscdb99f2jplxjd39282jxcrf2fw0sqbh5dl7gqb96r8whb"))))
 349     (build-system gnu-build-system)
 350     (native-inputs
 351      `(("doxygen" ,doxygen)
 352        ("gperf" ,gperf)
 353        ("perl" ,perl)
 354        ("pkg-config" ,pkg-config)))
 355     (propagated-inputs ; in Requires or Requires.private field of .pkg
 356      `(("librevenge" ,librevenge)
 357        ("libxml2" ,libxml2)))
 358     (inputs
 359      `(("boost" ,boost)))
 360     (arguments
 361      ;; avoid triggering configure errors by simple inclusion of boost headers
 362      `(#:configure-flags '("--disable-werror")))
 363     (home-page "https://wiki.documentfoundation.org/DLP/Libraries/libabw")
 364     (synopsis "Library for parsing the AbiWord format")
 365     (description "Libabw is a library that parses the file format of
 366 AbiWord documents.")
 367     (license mpl2.0)))
 368
 369 (define-public libcdr
 370   (package
 371     (name "libcdr")
 372     (version "0.1.4")
 373     (source
 374      (origin
 375       (method url-fetch)
 376       (uri (string-append "http://dev-www.libreoffice.org/src/" name "/"
 377                           name "-" version ".tar.xz"))
 378       (sha256 (base32
 379                "0vd6likgk51j46llybkx4wq3674xzrhp0k82220pkx9x1aqfi9z7"))))
 380     (build-system gnu-build-system)
 381     (native-inputs
 382      `(("cppunit" ,cppunit)
 383        ("doxygen" ,doxygen)
 384        ("pkg-config" ,pkg-config)))
 385     (propagated-inputs ; in Requires or Requires.private field of .pkg
 386      `(("icu4c" ,icu4c)
 387        ("lcms" ,lcms)
 388        ("librevenge" ,librevenge)
 389        ("zlib" ,zlib)))
 390     (inputs
 391      `(("boost" ,boost)))
 392     (arguments
 393      ;; avoid triggering a build failure due to warnings
 394      `(#:configure-flags '("--disable-werror")))
 395     (home-page "https://wiki.documentfoundation.org/DLP/Libraries/libcdr")
 396     (synopsis "Library for parsing the CorelDRAW format")
 397     (description "Libcdr is a library that parses the file format of
 398 CorelDRAW documents of all versions.")
 399     (license mpl2.0)))
 400
 401 (define-public libetonyek
 402   (package
 403     (name "libetonyek")
 404     (version "0.1.8")
 405     (source
 406      (origin
 407       (method url-fetch)
 408       (uri (string-append "http://dev-www.libreoffice.org/src/" name "/"
 409                           name "-" version ".tar.xz"))
 410       (sha256 (base32
 411                "0bfq9rwm040xhh7b3v0gsdavwvnrz4hkwnhpggarxk70mr3j7jcx"))))
 412     (build-system gnu-build-system)
 413     (arguments
 414      `(#:configure-flags '("--with-mdds=1.4")
 415        #:phases (modify-phases %standard-phases
 416                   (add-before 'configure 'support-mdds-1.4
 417                     (lambda _
 418                       ;; This package already works fine with mdds 1.4, but the
 419                       ;; configure check is too strict.  Taken from upstream.
 420                       (substitute* "configure"
 421                         (("mdds=1\\.2") "mdds=1.4")
 422                         (("mdds=\"1\\.2\"") "mdds=\"1.4\""))
 423                       #t)))))
 424     (native-inputs
 425      `(("cppunit" ,cppunit)
 426        ("doxygen" ,doxygen)
 427        ("glm" ,glm)
 428        ("gperf" ,gperf)
 429        ("liblangtag" ,liblangtag)
 430        ("mdds" ,mdds)
 431        ("pkg-config" ,pkg-config)))
 432     (propagated-inputs ; in Requires or Requires.private field of .pkg
 433      `(("librevenge" ,librevenge)
 434        ("libxml2" ,libxml2)))
 435     (inputs
 436      `(("boost" ,boost)))
 437     (home-page "https://wiki.documentfoundation.org/DLP/Libraries/libetonyek")
 438     (synopsis "Library for parsing the Apple Keynote format")
 439     (description "Libetonyek is a library that parses the file format of
 440 Apple Keynote documents.  It currently supports Keynote versions 2 to 5.")
 441     (license mpl2.0)))
 442
 443 (define-public liblangtag
 444   (package
 445     (name "liblangtag")
 446     (version "0.6.2")
 447     (source
 448       (origin
 449         (method url-fetch)
 450         (uri (string-append "https://bitbucket.org/tagoh/liblangtag/downloads/"
 451                             name "-" version ".tar.bz2"))
 452         (sha256
 453          (base32
 454           "0bnm4hllr8cfrybm8rw7b8n0nlhzhnv73bkg1bxk452g6a82f96n"))))
 455     (build-system gnu-build-system)
 456     (native-inputs
 457      `(("libtool" ,libtool)
 458        ("pkg-config" ,pkg-config)))
 459     (inputs
 460      `(("libxml2" ,libxml2)))
 461     ;; As of December 2017, tagoh.bitbucket.org redirects to a hosting advert.
 462     (home-page "https://bitbucket.org/tagoh/liblangtag")
 463     (synopsis "Library to access tags for identifying languages")
 464     (description "Liblangtag implements an interface to work with tags
 465 for identifying languages as described in RFC 5646.  It supports the
 466 extensions described in RFC6067 and RFC6497, and Extension T for
 467 language/locale identifiers as described in the Unicode CLDR
 468 standard 21.0.2.")
 469     (license (list lgpl3+ mpl2.0)))) ; dual license
 470
 471 (define-public libexttextcat
 472   (package
 473     (name "libexttextcat")
 474     (version "3.4.5")
 475     (source
 476      (origin
 477       (method url-fetch)
 478       (uri (string-append "http://dev-www.libreoffice.org/src/" name "/"
 479                           name "-" version ".tar.xz"))
 480       (sha256 (base32
 481                "1j6sjwkyhqvsgyw938bxxfwkzzi1mahk66g5342lv6j89jfvrz8k"))))
 482     (build-system gnu-build-system)
 483     (home-page "https://www.freedesktop.org/wiki/Software/libexttextcat/")
 484     (synopsis "Text Categorization library")
 485     (description "Libexttextcat is an N-Gram-Based Text Categorization
 486 library primarily intended for language guessing.")
 487     (license (non-copyleft "file://LICENSE"
 488                            "See LICENSE in the distribution."))))
 489
 490 (define-public libfreehand
 491   (package
 492     (name "libfreehand")
 493     (version "0.1.2")
 494     (source
 495      (origin
 496       (method url-fetch)
 497       (uri (string-append "http://dev-www.libreoffice.org/src/" name "/"
 498                           name "-" version ".tar.xz"))
 499       (sha256 (base32
 500                "1b1lvqh68rwij1yvmxy02hsmh7i74ma5767mk8mg5nx6chajshhf"))))
 501     (build-system gnu-build-system)
 502     (native-inputs
 503      `(("cppunit" ,cppunit)
 504        ("doxygen" ,doxygen)
 505        ("gperf" ,gperf)
 506        ("perl" ,perl)
 507        ("pkg-config" ,pkg-config)))
 508     (inputs
 509      `(("icu4c" ,icu4c)
 510        ("lcms" ,lcms)))
 511     (propagated-inputs ; in Requires or Requires.private field of .pkg
 512      `(("librevenge" ,librevenge)
 513        ("zlib" ,zlib)))
 514     (home-page "https://wiki.documentfoundation.org/DLP/Libraries/libfreehand")
 515     (synopsis "Library for parsing the FreeHand format")
 516     (description "Libfreehand is a library that parses the file format of
 517 Aldus/Macromedia/Adobe FreeHand documents.")
 518     (license mpl2.0)))
 519
 520 (define-public libmspub
 521   (package
 522     (name "libmspub")
 523     (version "0.1.4")
 524     (source
 525      (origin
 526       (method url-fetch)
 527       (uri (string-append "https://dev-www.libreoffice.org/src/" name "/"
 528                           name "-" version ".tar.xz"))
 529       (sha256 (base32
 530                "1fhkn013gzg59f4z7rldpbi0nj7lgdqzxanspsqa6axvmahw2dpg"))))
 531     (build-system gnu-build-system)
 532     (native-inputs
 533      `(("doxygen" ,doxygen)
 534        ("pkg-config" ,pkg-config)))
 535     (propagated-inputs ; in Requires or Requires.private field of .pkg
 536      `(("icu4c" ,icu4c)
 537        ("librevenge" ,librevenge)
 538        ("zlib" ,zlib)))
 539     (inputs
 540      `(("boost" ,boost)))
 541     (home-page "https://wiki.documentfoundation.org/DLP/Libraries/libmspub")
 542     (synopsis "Library for parsing the Microsoft Publisher format")
 543     (description "Libmspub is a library that parses the file format of
 544 Microsoft Publisher documents of all versions.")
 545     (license mpl2.0)))
 546
 547 (define-public libnumbertext
 548   (package
 549     (name "libnumbertext")
 550     (version "1.0")
 551     (source
 552      (origin
 553        (method url-fetch)
 554        (uri (string-append "https://github.com/numbertext/" name
 555                            "/archive/" version ".tar.gz"))
 556        (sha256
 557         (base32
 558          "0wnsn4911fdd2na8jxkcvmk04a6xw6qlviic9w4qwg9fcym6866v"))
 559        (file-name (string-append name "-" version ".tar.gz"))))
 560     (build-system gnu-build-system)
 561     (arguments
 562      `(#:configure-flags '("--disable-static")))
 563     (native-inputs
 564      `(("autoconf" ,autoconf)
 565        ("automake" ,automake)
 566        ("libtool" ,libtool)
 567        ("pkg-config" ,pkg-config)))
 568     (home-page "https://github.com/Numbertext/libnumbertext")
 569     (synopsis "Language-neutral @code{NUMBERTEXT} and @code{MONEYTEXT} functions")
 570     (description
 571      "The libnumbertext library provides language-neutral @code{NUMBERTEXT}
 572 and @code{MONEYTEXT} functions for LibreOffice Calc, available for C++ and
 573 Java.")
 574     (license (list lgpl3+ bsd-3))))
 575
 576 (define-public libpagemaker
 577   (package
 578     (name "libpagemaker")
 579     (version "0.0.4")
 580     (source
 581      (origin
 582       (method url-fetch)
 583       (uri (string-append "https://dev-www.libreoffice.org/src/" name "/"
 584                           name "-" version ".tar.xz"))
 585       (sha256 (base32
 586                "17ai8ajffr0ixxmmcv3k5vgjlcsix38ldb4fw2arild70pbsrbb6"))))
 587     (build-system gnu-build-system)
 588     (native-inputs
 589      `(("doxygen" ,doxygen)
 590        ("pkg-config" ,pkg-config)))
 591     (propagated-inputs ; in Requires field of .pkg
 592      `(("librevenge" ,librevenge)))
 593     (inputs
 594      `(("boost" ,boost)
 595        ("zlib" ,zlib)))
 596     (home-page "https://wiki.documentfoundation.org/DLP/Libraries/libpagemaker")
 597     (synopsis "Library for parsing the PageMaker format")
 598     (description "Libpagemaker is a library that parses the file format of
 599 Aldus/Adobe PageMaker documents.  Currently it only understands documents
 600 created by PageMaker version 6.x and 7.")
 601     (license mpl2.0)))
 602
 603 (define-public libvisio
 604   (package
 605     (name "libvisio")
 606     (version "0.1.6")
 607     (source
 608      (origin
 609       (method url-fetch)
 610       (uri (string-append "http://dev-www.libreoffice.org/src/" name "/"
 611                           name "-" version ".tar.xz"))
 612       (sha256 (base32
 613                "1yahpfl13qk6178irv8jn5ppxdn7isafqisyqsdw0lqxcz9h447y"))))
 614     (build-system gnu-build-system)
 615     (native-inputs
 616      `(("cppunit" ,cppunit)
 617        ("doxygen" ,doxygen)
 618        ("gperf" ,gperf)
 619        ("perl" ,perl)
 620        ("pkg-config" ,pkg-config)))
 621     (propagated-inputs ; in Requires or Requires.private field of .pkg
 622      `(("icu4c" ,icu4c)
 623        ("librevenge" ,librevenge)
 624        ("libxml2" ,libxml2)))
 625     (inputs
 626      `(("boost" ,boost)))
 627     (home-page "https://wiki.documentfoundation.org/DLP/Libraries/libvisio")
 628     (synopsis "Library for parsing the Microsoft Visio format")
 629     (description "Libvisio is a library that parses the file format of
 630 Microsoft Visio documents of all versions.")
 631     (license mpl2.0)))
 632
 633 (define-public libodfgen
 634   (package
 635     (name "libodfgen")
 636     (version "0.1.7")
 637     (source
 638      (origin
 639       (method url-fetch)
 640       (uri (string-append "mirror://sourceforge/libwpd/" name "/"
 641                           name "-" version "/" name "-" version ".tar.xz"))
 642       (sha256 (base32
 643                "0cdq48wlpp8m0qmndybv64r0m4vh0qsqx69cn6ms533cjlgljgij"))))
 644     (build-system gnu-build-system)
 645     (native-inputs
 646      `(("doxygen" ,doxygen)
 647        ("pkg-config" ,pkg-config)))
 648     (propagated-inputs ; in Requires field of .pkg
 649      `(("librevenge" ,librevenge)))
 650     (inputs
 651      `(("boost" ,boost)
 652        ("zlib" ,zlib)))
 653     (arguments
 654      ;; avoid triggering configure errors by simple inclusion of boost headers
 655      `(#:configure-flags '("--disable-werror")))
 656     (home-page "https://sourceforge.net/p/libwpd/wiki/libodfgen/")
 657     (synopsis "ODF (Open Document Format) library")
 658     (description "Libodfgen is a library for generating documents in the
 659 Open Document Format (ODF).  It provides generator implementations for all
 660 document interfaces supported by librevenge:
 661 text documents, vector drawings, presentations and spreadsheets.")
 662     (license (list mpl2.0 lgpl2.1+)))) ; dual license
 663
 664 (define-public libmwaw
 665   (package
 666     (name "libmwaw")
 667     (version "0.3.14")
 668     (source
 669      (origin
 670       (method url-fetch)
 671       (uri (string-append "mirror://sourceforge/" name "/" name "/" name "-"
 672                           version "/" name "-" version ".tar.xz"))
 673       (sha256 (base32
 674                "1s9wyf8pyh3fbazq2d2b6fgi7s7bid60viw2xbdkmn2ywlfbza5c"))))
 675     (build-system gnu-build-system)
 676     (native-inputs
 677      `(("doxygen" ,doxygen)
 678        ("pkg-config" ,pkg-config)))
 679     (propagated-inputs                  ; in Requires field of .pkg
 680      `(("librevenge" ,librevenge)))
 681     (inputs
 682      `(("boost" ,boost)
 683        ("zlib" ,zlib)))
 684     (home-page "https://sourceforge.net/p/libmwaw/wiki/Home/")
 685     (synopsis "Import library for some old Macintosh text documents")
 686     (description "Libmwaw contains some import filters for old Macintosh
 687 text documents (MacWrite, ClarisWorks, ... ) and for some graphics and
 688 spreadsheet documents.")
 689     (license (list mpl2.0 lgpl2.1+))))  ; dual license
 690
 691 (define-public libstaroffice
 692   (package
 693     (name "libstaroffice")
 694     (version "0.0.6")
 695     (source
 696      (origin
 697        (method url-fetch)
 698        (uri (string-append "https://github.com/fosnola/libstaroffice/releases/download/"
 699                            version "/libstaroffice-" version ".tar.xz"))
 700        (sha256 (base32
 701                 "1i0ykl0c94lc1qzb5mbyf9jr7qw8p38ja424whmhgrllh7ny203b"))))
 702     (build-system gnu-build-system)
 703     (inputs
 704      `(("librevenge" ,librevenge)
 705        ("zlib" ,zlib)))
 706     (native-inputs
 707      `(("pkg-config" ,pkg-config)))
 708     (home-page "https://github.com/fosnola/libstaroffice")
 709     (synopsis "Provides LibreOffice support for old StarOffice documents")
 710     (description "@code{libstaroffice} is an import filter for the document formats
 711 from the old StarOffice (.sdc, .sdw, ...).")
 712     (license (list mpl2.0 lgpl2.1+)))) ; dual license
 713
 714 (define-public libwps
 715   (package
 716     (name "libwps")
 717     (version "0.4.10")
 718     (source
 719      (origin
 720       (method url-fetch)
 721       (uri (string-append "mirror://sourceforge/" name "/" name "/"
 722                           name "-" version "/" name "-" version ".tar.xz"))
 723       (sha256 (base32
 724                "1ji9zd4wxmas03g8jyx0ih0amrqfazm5874a2v9rd7va50sf088l"))))
 725     (build-system gnu-build-system)
 726     (native-inputs
 727      `(("doxygen" ,doxygen)
 728        ("pkg-config" ,pkg-config)))
 729     (propagated-inputs                  ; in Requires field of .pkg
 730      `(("librevenge" ,librevenge)))
 731     (inputs
 732      `(("boost" ,boost)
 733        ("zlib" ,zlib)))
 734     (home-page "http://libwps.sourceforge.net/")
 735     (synopsis "Import library for Microsoft Works text documents")
 736     (description "Libwps is a library for importing files in the Microsoft
 737 Works word processor file format.")
 738     (license (list mpl2.0 lgpl2.1+))))  ; dual license
 739
 740 (define-public libzmf
 741   (package
 742    (name "libzmf")
 743    (version "0.0.2")
 744    (source
 745     (origin
 746       (method url-fetch)
 747       (uri (string-append "http://dev-www.libreoffice.org/src/libzmf/libzmf-"
 748                           version ".tar.xz"))
 749       (sha256 (base32
 750                "08mg5kmkjrmqrd8j5rkzw9vdqlvibhb1ynp6bmfxnzq5rcq1l197"))))
 751    (build-system gnu-build-system)
 752    (arguments
 753     ;; A harmless 'sign-compare' error pops up on i686 so disable '-Werror'.
 754     '(#:configure-flags '("--disable-werror")))
 755    (inputs
 756     `(("boost" ,boost)
 757       ("icu4c" ,icu4c)
 758       ("libpng" ,libpng)
 759       ("librevenge" ,librevenge)
 760       ("zlib" ,zlib)))
 761     (native-inputs
 762      `(("cppunit" ,cppunit)
 763        ("doxygen" ,doxygen)
 764        ("pkg-config" ,pkg-config)))
 765     (home-page "https://wiki.documentfoundation.org/DLP/Libraries/libzmf")
 766     (synopsis "Parses file format of Zoner Callisto/Draw documents")
 767     (description "Libzmf is a library that parses the file format of Zoner
 768 Callisto/Draw documents.  Currently it only understands documents created by
 769 Zoner Draw version 4 and 5.")
 770     (license mpl2.0)))
 771
 772 (define-public hunspell
 773   (package
 774     (name "hunspell")
 775     (version "1.6.2")
 776     (source
 777      (origin
 778       (method url-fetch)
 779       (uri (string-append "https://github.com/hunspell/hunspell/archive/v"
 780                           version ".tar.gz"))
 781       (sha256 (base32
 782                "1i7lsv2cm0713ia3j5wjkcrhpfp3lqpjpwp4d3v18n7ycaqcxn9w"))
 783       (file-name (string-append name "-" version ".tar.gz"))))
 784     (build-system gnu-build-system)
 785     (native-inputs
 786      `(("autoconf" ,autoconf)
 787        ("automake" ,automake)
 788        ("libtool" ,libtool)))
 789     (inputs
 790      `(("perl" ,perl)))
 791     (native-search-paths (list (search-path-specification
 792                                 (variable "DICPATH")
 793                                 (files '("share/hunspell")))))
 794     (home-page "https://hunspell.github.io/")
 795     (synopsis "Spell checker")
 796     (description "Hunspell is a spell checker and morphological analyzer
 797 library and program designed for languages with rich morphology and complex
 798 word compounding or character encoding.")
 799     ;; Triple license, including "mpl1.1 or later".
 800     (license (list mpl1.1 gpl2+ lgpl2.1+))))
 801
 802 (define (dicollecte-french-dictionary variant synopsis)
 803   ;; Return a French dictionary package from dicollecte.org, for the given
 804   ;; VARIANT.
 805   (package
 806     (name (match variant
 807             ("classique" "hunspell-dict-fr")
 808             (_ (string-append "hunspell-dict-fr-" variant))))
 809     (version "6.2")
 810     (source (origin
 811               (uri (string-append
 812                     "http://www.dicollecte.org/download/fr/hunspell-french-dictionaries-v"
 813                     version ".zip"))
 814               (method url-fetch)
 815               (sha256
 816                (base32
 817                 "139hfrn5p87sl8hqmgkf6sgvnxrk2mm8vd8xsm8sm98qjnwlg0f9"))))
 818     (build-system trivial-build-system)
 819     (native-inputs `(("unzip" ,unzip)))
 820     (arguments
 821      `(#:modules ((guix build utils))
 822        #:builder (begin
 823                    (use-modules (guix build utils)
 824                                 (srfi srfi-26))
 825
 826                    (let* ((out      (assoc-ref %outputs "out"))
 827                           (hunspell (string-append out "/share/hunspell"))
 828                           (myspell  (string-append out "/share/myspell"))
 829                           (doc      (string-append out "/share/doc/"
 830                                                    ,name))
 831                           (unzip    (assoc-ref %build-inputs "unzip")))
 832                      (invoke (string-append unzip "/bin/unzip")
 833                              (assoc-ref %build-inputs "source"))
 834                      (for-each (cut install-file <> hunspell)
 835                                (find-files "."
 836                                            ,(string-append variant
 837                                                            "\\.(dic|aff)$")))
 838                      (mkdir-p myspell)
 839                      (symlink hunspell (string-append myspell "/dicts"))
 840                      (for-each (cut install-file <> doc)
 841                                (find-files "." "\\.(txt|org|md)$"))
 842                      #t))))
 843     (synopsis synopsis)
 844     (description
 845      "This package provides a dictionary for the Hunspell spell-checking
 846 library.")
 847     (home-page "https://www.dicollecte.org/home.php?prj=fr")
 848     (license mpl2.0)))
 849
 850 (define-syntax define-french-dictionary
 851   (syntax-rules (synopsis)
 852     ((_ name variant (synopsis text))
 853      (define-public name
 854        (dicollecte-french-dictionary variant text)))))
 855
 856 (define-french-dictionary hunspell-dict-fr-classique
 857   "classique"
 858   ;; TRANSLATORS: In French, this is "Français classique".
 859   (synopsis "Hunspell dictionary for ``classic'' French (recommended)"))
 860
 861 (define-french-dictionary hunspell-dict-fr-moderne
 862   "moderne"
 863   ;; TRANSLATORS: In French, this is "Français moderne".
 864   (synopsis "Hunspell dictionary for ``modern'' French"))
 865
 866 (define-french-dictionary hunspell-dict-fr-réforme-1990
 867   "reforme1990"
 868   (synopsis "Hunspell dictionary for the post @dfn{1990 réforme} French"))
 869
 870 (define-french-dictionary hunspell-dict-fr-toutes-variantes
 871   "toutesvariantes"
 872   (synopsis "Hunspell dictionary for all variants of French"))
 873
 874 (define-public hyphen
 875   (package
 876     (name "hyphen")
 877     (version "2.8.8")
 878     (source
 879      (origin
 880       (method url-fetch)
 881       (uri (string-append "mirror://sourceforge/hunspell/Hyphen/"
 882                           (version-major+minor version) "/"
 883                           name "-" version ".tar.gz"))
 884       (sha256 (base32
 885                "01ap9pr6zzzbp4ky0vy7i1983fwyqy27pl0ld55s30fdxka3ciih"))))
 886     (build-system gnu-build-system)
 887     (inputs
 888      `(("perl" ,perl)))
 889     (home-page "http://hunspell.sourceforge.net/")
 890     (synopsis "Hyphenation library")
 891     (description "Hyphen is a hyphenation library using TeX hyphenation
 892 patterns, which are pre-processed by a perl script.")
 893     ;; triple license, including "mpl1.1 or later"
 894     (license (list mpl1.1 mpl2.0 gpl2+ lgpl2.1+))))
 895
 896 (define-public mythes
 897   (package
 898     (name "mythes")
 899     (version "1.2.4")
 900     (source
 901      (origin
 902       (method url-fetch)
 903       (uri (string-append "mirror://sourceforge/hunspell/MyThes/" version "/"
 904                           name "-" version ".tar.gz"))
 905       (sha256 (base32
 906                "0prh19wy1c74kmzkkavm9qslk99gz8h8wmjvwzjc6lf8v2az708y"))))
 907     (build-system gnu-build-system)
 908     (native-inputs
 909      `(("pkg-config" ,pkg-config)))
 910     (inputs
 911      `(("hunspell" ,hunspell)
 912        ("perl" ,perl)))
 913     (home-page "http://hunspell.sourceforge.net/")
 914     (synopsis "Thesaurus")
 915     (description "MyThes is a simple thesaurus that uses a structured text
 916 data file and an index file with binary search to look up words and phrases
 917 and to return information on pronunciations, meanings and synonyms.")
 918     (license (non-copyleft "file://COPYING"
 919                            "See COPYING in the distribution."))))
 920
 921 (define-public libqxp
 922   (package
 923     (name "libqxp")
 924     (version "0.0.1")
 925     (source (origin
 926               (method url-fetch)
 927               (uri (string-append "https://dev-www.libreoffice.org/src/libqxp/"
 928                                   "libqxp-" version ".tar.xz"))
 929               (sha256
 930                (base32
 931                 "0wswz49y0lqwqw2nj9j7jaj5ag88hapcz8czgkxax57zhihpy9cc"))))
 932     (build-system gnu-build-system)
 933     (inputs
 934      `(("boost" ,boost)
 935        ("icu4c" ,icu4c)
 936        ("zlib" ,zlib)))
 937     (native-inputs
 938      `(("cppunit" ,cppunit)
 939        ("pkg-config" ,pkg-config)))
 940     (propagated-inputs
 941      `(("librevenge" ,librevenge))) ; mentioned in Requires field
 942     (home-page "https://www.libreoffice.org")
 943     (synopsis "Library and tools for the QuarkXPress file format")
 944     (description "libqxp is a library and a set of tools for reading and
 945 converting QuarkXPress file format.  It supports versions 3.1 to 4.1.")
 946     (license mpl2.0)))
 947
 948 (define-public libreoffice
 949   (package
 950     (name "libreoffice")
 951     (version "6.1.3.2")
 952     (source
 953      (origin
 954        (method url-fetch)
 955        (uri
 956         (string-append
 957          "https://download.documentfoundation.org/libreoffice/src/"
 958          (version-prefix version 3) "/libreoffice-" version ".tar.xz"))
 959        (sha256
 960         (base32
 961          "0i4gf3qi16fg7dxq2l4vhkwh4f5lx7xd1ilpzcw26vccqkv3hvyl"))
 962        (patches
 963         (append (list (origin
 964                         ;; Support newer versions of Orcus and MDDS.  These patches
 965                         ;; are taken from upstream, but we use the patches from Arch
 966                         ;; because they are adapted for the release tarball.
 967                         ;; Note: remove the related substitutions below when these
 968                         ;; are no longer needed.
 969                         (method url-fetch)
 970                         (uri (string-append "https://git.archlinux.org/svntogit"
 971                                             "/packages.git/plain/trunk/"
 972                                             "0001-Update-orcus-to-0.14.0.patch?&id="
 973                                             "4002fa927f2a143bd2ec008a0c400b2ce9f2c8a7"))
 974                         (file-name "libreoffice-orcus.patch")
 975                         (sha256
 976                          (base32
 977                           "0v1knblrmfzkb4g9pm5mdnrmjib59bznvca1ygbwlap2ln1h4mk0")))
 978                       (origin
 979                         (method url-fetch)
 980                         (uri (string-append "https://git.archlinux.org/svntogit"
 981                                             "/packages.git/plain/trunk/"
 982                                             "0001-Update-mdds-to-1.4.1.patch?&id="
 983                                             "4002fa927f2a143bd2ec008a0c400b2ce9f2c8a7"))
 984                         (file-name "libreoffice-mdds.patch")
 985                         (sha256
 986                          (base32
 987                           "0apbmammmp4pk473xiv5vk50r4c5gjvqzf9jkficksvz58q6114f"))))
 988                 (search-patches "libreoffice-icu.patch"
 989                                 "libreoffice-glm.patch")))))
 990     (build-system glib-or-gtk-build-system)
 991     (native-inputs
 992      `(("bison" ,bison)
 993        ("cppunit" ,cppunit-1.14)
 994        ("flex" ,flex)
 995        ("pkg-config" ,pkg-config)
 996        ("python" ,python-wrapper)
 997        ("which" ,which)))
 998     (inputs
 999      `(("bluez" ,bluez)
1000        ("boost" ,boost)
1001        ("clucene" ,clucene)
1002        ("cups" ,cups)
1003        ("dbus-glib" ,dbus-glib)
1004        ("fontconfig" ,fontconfig)
1005        ("gconf" ,gconf)
1006        ("glew" ,glew)
1007        ("glm" ,glm)
1008        ("gperf" ,gperf)
1009        ("gpgme" ,gpgme)
1010        ("graphite2" ,graphite2)
1011        ("gst-plugins-base" ,gst-plugins-base)
1012        ("gtk+" ,gtk+)
1013        ("harfbuzz" ,harfbuzz)
1014        ("hunspell" ,hunspell)
1015        ("hyphen" ,hyphen)
1016        ("libabw" ,libabw)
1017        ("libcdr" ,libcdr)
1018        ("libcmis" ,libcmis)
1019        ("libjpeg-turbo" ,libjpeg-turbo)
1020        ("libe-book" ,libe-book)
1021        ("libepubgen" ,libepubgen)
1022        ("libetonyek" ,libetonyek)
1023        ("libexttextcat" ,libexttextcat)
1024        ("libfreehand" ,libfreehand)
1025        ("liblangtag" ,liblangtag)
1026        ;; XXX: Perhaps this should be propagated from xmlsec.
1027        ("libltdl" ,libltdl)
1028        ("libmspub" ,libmspub)
1029        ("libmwaw" ,libmwaw)
1030        ("libnumbertext" ,libnumbertext)
1031        ("libodfgen" ,libodfgen)
1032        ("libpagemaker" ,libpagemaker)
1033        ("libqxp" ,libqxp)
1034        ("libstaroffice" ,libstaroffice)
1035        ("libvisio" ,libvisio)
1036        ("libwpg" ,libwpg)
1037        ("libwps" ,libwps)
1038        ("libxrandr" ,libxrandr)
1039        ("libxrender" ,libxrender)
1040        ("libxslt" ,libxslt)
1041        ("libxt" ,libxt)
1042        ("libzmf" ,libzmf)
1043        ("lpsolve" ,lpsolve)
1044        ("mdds" ,mdds)
1045        ("mythes" ,mythes)
1046        ("neon" ,neon)
1047        ("nspr" ,nspr)
1048        ("nss" ,nss)
1049        ("openldap" ,openldap)
1050        ("openssl" ,openssl)
1051        ("orcus" ,orcus)
1052        ("perl" ,perl)
1053        ("perl-archive-zip" ,perl-archive-zip)
1054        ("poppler" ,poppler)
1055        ("postgresql" ,postgresql)
1056        ("python" ,python)
1057        ("python-lxml" ,python-lxml)
1058        ("redland" ,redland)
1059        ("sane-backends" ,sane-backends)
1060        ("unixodbc" ,unixodbc)
1061        ("unzip" ,unzip)
1062        ("vigra" ,vigra)
1063        ("xmlsec" ,xmlsec-nss)
1064        ("zip" ,zip)))
1065     (arguments
1066      `(#:tests? #f ; Building the tests already fails.
1067        #:make-flags '("build-nocheck") ; Do not build unit tests, which fails.
1068        #:phases
1069          (modify-phases %standard-phases
1070            (add-before 'configure 'prepare-src
1071              (lambda* (#:key inputs #:allow-other-keys)
1072                (substitute*
1073                    (list "sysui/CustomTarget_share.mk"
1074                          "solenv/gbuild/gbuild.mk"
1075                          "solenv/gbuild/platform/unxgcc.mk")
1076                  (("/bin/sh") (which "sh")))
1077
1078                ;; XXX: Adjust the checks for MDDS and liborcus to avoid having
1079                ;; to re-bootstrap the whole thing.  Remove this with the related
1080                ;; patches above.
1081                (substitute* "configure"
1082                  (("mdds-1.2 >= 1.2.3") "mdds-1.4 >= 1.4.1")
1083                  (("liborcus-0.13 >= 0.13.3") "liborcus-0.14 >= 0.14.0"))
1084
1085                ;; GPGME++ headers are installed in a gpgme++ subdirectory, but
1086                ;; files in "xmlsecurity/source/gpg/" and elsewhere expect to
1087                ;; find them on the include path without a prefix.
1088                (substitute* '("xmlsecurity/Library_xsec_xmlsec.mk"
1089                               "comphelper/Library_comphelper.mk")
1090                  (("\\$\\$\\(INCLUDE\\)")
1091                   (string-append "$$(INCLUDE) -I"
1092                                  (assoc-ref inputs "gpgme")
1093                                  "/include/gpgme++")))
1094
1095                #t))
1096            (add-after 'install 'bin-and-desktop-install
1097              ;; Create 'soffice' and 'libreoffice' symlinks to the executable
1098              ;; script.
1099              (lambda* (#:key outputs #:allow-other-keys)
1100                (let ((out (assoc-ref outputs "out")))
1101                  (define (symlink-output src dst)
1102                    (mkdir-p (dirname (string-append out dst)))
1103                    (symlink (string-append out src) (string-append out dst)))
1104                  (define (install src dst)
1105                    (let ((dst (string-append out dst)))
1106                      (mkdir-p (dirname dst))
1107                      (copy-file src dst)))
1108                  (define (install-desktop-file app)
1109                    (let ((src (string-append "/lib/libreoffice/share/xdg/"
1110                                              app ".desktop"))
1111                          (dst (string-append "/share/applications/libreoffice-"
1112                                              app ".desktop")))
1113                      (substitute* (string-append out src)
1114                        (("Exec=libreoffice[0-9]+\\.[0-9]+ ")
1115                         (string-append "Exec=" out "/bin/libreoffice "))
1116                        (("Icon=libreoffice.*")
1117                         (string-append "Icon=" app "\n"))
1118                        (("LibreOffice [0-9]+\\.[0-9]+")
1119                         "LibreOffice"))
1120                      (symlink-output src dst)))
1121                  (define (install-appdata app)
1122                    (install-file (string-append
1123                                     "sysui/desktop/appstream-appdata/"
1124                                     "libreoffice-" app ".appdata.xml")
1125                                    (string-append out "/share/appdata")))
1126                  (symlink-output "/lib/libreoffice/program/soffice"
1127                                  "/bin/soffice")
1128                  (symlink-output "/lib/libreoffice/program/soffice"
1129                                  "/bin/libreoffice")
1130                  (install "workdir/CustomTarget/sysui/share/libreoffice/openoffice.keys"
1131                           "/share/mime-info/libreoffice.keys")
1132                  (install "workdir/CustomTarget/sysui/share/libreoffice/openoffice.mime"
1133                           "/share/mime-info/libreoffice.mime")
1134                  (install
1135                   "workdir/CustomTarget/sysui/share/libreoffice/openoffice.org.xml"
1136                   "/share/mime/packages/libreoffice.xml")
1137                  (for-each install-desktop-file
1138                            '("base" "calc" "draw" "impress" "writer"
1139                              "math" "startcenter"))
1140                  (for-each install-appdata
1141                            '("base" "calc" "draw" "impress" "writer"))
1142                  (mkdir-p (string-append out "/share/icons/hicolor"))
1143                  (copy-recursively "sysui/desktop/icons/hicolor"
1144                                    (string-append out "/share/icons/hicolor")))
1145                #t)))
1146        #:configure-flags
1147         (list
1148           "--enable-release-build"
1149           "--enable-verbose"
1150           ;; Avoid using all cpu cores by default
1151           (format #f "--with-parallelism=~d" (parallel-job-count))
1152           "--disable-fetch-external" ; disable downloads
1153           "--with-system-libs" ; enable all --with-system-* flags
1154           (string-append "--with-boost-libdir="
1155                          (assoc-ref %build-inputs "boost") "/lib")
1156           ;; Avoid undefined symbols required by boost::spirit
1157           "LDFLAGS=-lboost_system"
1158           ;; Avoid a dependency on ucpp.
1159           "--with-idlc-cpp=cpp"
1160           ;; The fonts require an external tarball (crosextrafonts).
1161           ;; They should not be needed when system fonts are available.
1162           "--without-fonts"
1163           ;; With java, the build fails since sac.jar is missing.
1164           "--without-java"
1165           ;; FIXME: Enable once the corresponding inputs are packaged.
1166           "--without-system-npapi-headers"
1167           "--disable-coinmp"
1168           "--disable-firebird-sdbc" ; embedded firebird
1169           "--disable-gltf"
1170           ;; XXX: PDFium support requires fetching an external tarball and
1171           ;; patching the build scripts to work with GCC5.  Try enabling this
1172           ;; when our default compiler is >=GCC 6.
1173           "--disable-pdfium"
1174           "--disable-gtk" ; disable use of GTK+ 2
1175           "--without-doxygen")))
1176     (home-page "https://www.libreoffice.org/")
1177     (synopsis "Office suite")
1178     (description "LibreOffice is a comprehensive office suite.  It contains
1179 a number of components: Writer, a word processor; Calc, a spreadsheet
1180 application; Impress, a presentation engine; Draw, a drawing and
1181 flowcharting application; Base, a database and database frontend;
1182 Math for editing mathematics.")
1183     (license mpl2.0)))