contrib/packages/guix: use texinfo-5.2 for some packages. Start backporting Texlive...
authorng0 <ng0@infotropique.org>
Tue, 26 Sep 2017 12:22:58 +0000 (12:22 +0000)
committerng0 <ng0@infotropique.org>
Tue, 26 Sep 2017 12:22:58 +0000 (12:22 +0000)
contrib/packages/guix/gnunet-doc.scm
contrib/packages/guix/guix-env.scm
contrib/packages/guix/packages/gnunet/packages/texlive.scm [new file with mode: 0644]

index 9b3293a17f2386c0f004b9747384619e7b11805a..d12de10a23f8040419431054c475553ae943e500 100644 (file)
@@ -64,6 +64,7 @@
  (gnu packages video)
  (gnu packages web)
  (gnu packages xiph)
+ ;;(gnunet packages texlive) ;GNUnet module including texlive-2012 WIP
  ((guix licenses) #:prefix license:))
 
 (define %source-dir (string-append (current-source-directory)
          ("bluez" ,bluez) ; for optional bluetooth feature
          ("glib" ,glib)
          ;;("texlive-minimal" ,texlive-minimal) ; optional.
-         ("texlive" ,texlive)
+         ("texlive" ,texlive) ;TODO: Stabilize Texlive-2012 package
          ("libogg" ,libogg)))
       (native-inputs
        `(("pkg-config" ,pkg-config)
index 6946fee57019331200686abef07870689dce26b2..1182eb08da05fafe60d2744e5b70e2919d3e860b 100644 (file)
          ("autoconf" ,autoconf)
          ("automake" ,automake)
          ("gnu-gettext" ,gnu-gettext)
-         ("texinfo" ,texinfo)
+         ("texinfo" ,texinfo-5.2) ; Debian stable.
          ("libtool" ,libtool)))
       ;; TODO:  To make use of out:debug, which carries the symbols,
       ;; this file needs to fixed.
diff --git a/contrib/packages/guix/packages/gnunet/packages/texlive.scm b/contrib/packages/guix/packages/gnunet/packages/texlive.scm
new file mode 100644 (file)
index 0000000..65430d6
--- /dev/null
@@ -0,0 +1,182 @@
+;;; This file is part of GNUnet.
+;;; Copyright (C) 2017 GNUnet e.V.
+;;;
+;;; GNUnet is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published
+;;; by the Free Software Foundation; either version 3, or (at your
+;;; option) any later version.
+;;;
+;;; GNUnet is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNUnet; see the file COPYING.  If not, write to the
+;;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;;; Boston, MA 02110-1301, USA.
+
+;; Initially based on Guix commit eb0119efde826590a13973ab928c173780a7f257
+
+(define-module (gnunet packages texlive)
+  #:use-module ((guix licenses)
+                #:renamer (symbol-prefix-proc 'license:))
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages ghostscript)
+  #:use-module (gnu packages icu4c)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages pdf)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages compression))
+
+(define texlive-extra-src
+  (origin
+    (method url-fetch)
+    (uri "http://ftp.math.utah.edu/pub/tex/historic/systems/texlive/2012/texlive-20120701-extra.tar.xz")
+    ;;(uri "ftp://tug.org/historic/systems/texlive/2012/texlive-20120701-extra.tar.xz")
+    (sha256 (base32
+             "0cb8fnv4x281gy5ka779f00ssdmdpjj4x3pkh9j9vq45hrwg3522"))))
+
+(define texlive-texmf-src
+  (origin
+    (method url-fetch)
+    (uri "http://ftp.math.utah.edu/pub/tex/historic/systems/texlive/2012/texlive-20120701-texmf.tar.xz")
+    ;;(uri "ftp://tug.org/historic/systems/texlive/2012/texlive-20120701-texmf.tar.xz")
+    (sha256 (base32
+             "1fn1dg9k7pnh8a80j23zfkbrfnqyc4c2w4ss30dpkqj490nxsywq"))))
+
+;; Note that right now this does not include security fixes!
+;; FIXME: Needs more fixes, currently this fails building!
+
+(define-public texlive
+  (package
+    (name "texlive")
+    (version "2012")
+    (source (origin
+              (method url-fetch)
+              (uri "http://ftp.math.utah.edu/pub/tex/historic/systems/texlive/2012/texlive-20120701-source.tar.xz")
+              ;;(uri "ftp://tug.org/historic/systems/texlive/2012/texlive-20120701-source.tar.xz")
+              (sha256 (base32
+                       "10bcrdfsqnc6y3gqcb8ndnjy07i5kz63as39irbq4gmcbmyn2rln"))))
+    (build-system gnu-build-system)
+    (inputs `(("texlive-extra-src" ,texlive-extra-src)
+              ("texlive-texmf-src" ,texlive-texmf-src)
+              ("fontconfig" ,fontconfig)
+              ("freetype" ,freetype)
+              ("icu4c" ,icu4c)
+              ("ghostscript" ,ghostscript)
+              ("libpng" ,libpng)
+              ("perl" ,perl)
+              ("poppler" ,poppler)
+              ("pkg-config" ,pkg-config)
+              ;; FIXME: Add interpreters csh, fontforge and ruby,
+              ;; once they are available.
+              ("python" ,python)
+              ("teckit" ,teckit)
+              ("t1lib" ,t1lib)
+              ("zlib" ,zlib)
+              ("zziplib" ,zziplib)))
+    (outputs '("out" "data"))
+    (arguments
+     `(#:out-of-source? #t
+       #:configure-flags
+       `("--disable-native-texlive-build"
+         ;; Although the texmf and texmf-dist data is taken from
+         ;; texlive-texmf, setting datarootdir is still useful:
+         ;; "make install" creates symbolic links to scripts in this place.
+         ,(string-append "--datarootdir=" (assoc-ref %outputs "data"))
+         ,(string-append "--infodir=" (assoc-ref %outputs "out") "/share/info")
+         ,(string-append "--mandir=" (assoc-ref %outputs "out") "/share/man")
+         "--without-x" ; FIXME: Drop as soon as X is available.
+         "--with-system-freetype2"
+         ;; "--with-system-gd"
+         ;; "--with-system-graphite"
+         "--with-system-icu"
+         "--with-system-libgs"
+         "--with-system-libpng"
+         "--with-system-poppler"
+         "--with-system-t1lib"
+         "--with-system-teckit"
+         "--with-system-xpdf"
+         "--with-system-zlib"
+         "--with-system-zziplib")
+       #:phases
+       (alist-replace
+        'configure
+        (lambda* (#:key outputs #:allow-other-keys #:rest args)
+          (let ((configure (assoc-ref %standard-phases 'configure)))
+            (substitute* "utils/psutils/Makefile.in"
+              (("/usr/bin/env perl") (which "perl")))
+            (apply configure args)))
+        (alist-cons-after
+         'install 'postinst
+         (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
+           (let ((texlive-extra (assoc-ref inputs "texlive-extra-src"))
+                 (texlive-texmf (assoc-ref inputs "texlive-texmf-src"))
+                 (out (assoc-ref outputs "out"))
+                 (data (assoc-ref outputs "data"))
+                 (unpack (assoc-ref %standard-phases 'unpack))
+                 (patch-source-shebangs
+                  (assoc-ref %standard-phases 'patch-source-shebangs)))
+             ;; Create symbolic links for the latex variants and their
+             ;; man pages.
+             (with-directory-excursion (string-append out "/bin/")
+               (for-each symlink
+                         '("pdftex" "pdftex"   "xetex"   "luatex")
+                         '("latex"  "pdflatex" "xelatex" "lualatex")))
+             (with-directory-excursion (string-append out "/share/man/man1/")
+               (symlink "luatex.1" "lualatex.1"))
+             ;; Delete texmf and texmf-dist from "data", since they
+             ;; will be reinstalled from texlive-texmf.
+             (system* "rm" "-r" (string-append data "/texmf"))
+             (system* "rm" "-r" (string-append data "/texmf-dist"))
+             ;; Unpack texlive-extra and install tlpkg.
+             (mkdir "texlive-extra")
+             (with-directory-excursion "texlive-extra"
+               (apply unpack (list #:source texlive-extra))
+               (apply patch-source-shebangs (list #:source texlive-extra))
+               (system* "mv" "tlpkg" data)
+               (chdir ".."))
+             ;; Unpack and install texlive-texmf.
+             (mkdir "texlive-texmf")
+             (with-directory-excursion "texlive-texmf"
+               (apply unpack (list #:source texlive-texmf))
+               (apply patch-source-shebangs (list #:source texlive-texmf))
+               ;; Register "data" for kpathsea in texmf.cnf.
+               (substitute* "texmf/web2c/texmf.cnf"
+                 (("TEXMFROOT = \\$SELFAUTOPARENT")
+                  (string-append "TEXMFROOT = " data)))
+               (system* "mv" "texmf" data)
+               (system* "mv" "texmf-dist" data)
+               (chdir ".."))
+             ;; texmf.cnf must also be placed in "out", since kpsewhich does
+             ;; not know about "data" until it has found this file.
+             (mkdir (string-append out "/share/texmf"))
+             (mkdir (string-append out "/share/texmf/web2c"))
+             (copy-file (string-append data "/texmf/web2c/texmf.cnf")
+                        (string-append out "/share/texmf/web2c/texmf.cnf"))))
+         (alist-cons-after 'patch-shebangs 'texconfig
+                           (lambda* (#:key outputs #:allow-other-keys)
+                             (let ((out (assoc-ref outputs "out")))
+                               ;; Configure the texlive system; inspired from
+                               ;; http://slackbuilds.org/repository/13.37/office/texlive/
+                               (setenv "PATH" (string-append (getenv "PATH") ":" out "/bin"))
+                               (system* "updmap-sys" "--nohash" "--syncwithtrees")
+                               (system* "mktexlsr")
+                               (system* "fmtutil-sys" "--all")))
+                           %standard-phases)))))
+    (synopsis "Tex Live, a package of the TeX typesetting system")
+    (description
+     "TeX Live provides a comprehensive TeX document production system.
+It includes all the major TeX-related programs, macro packages, and fonts
+that are free software, including support for many languages around the
+world.")
+    (license (license:fsf-free "http://tug.org/texlive/copying.html"))
+    (home-page "http://www.tug.org/texlive/")))