1 files changed, 0 insertions, 48 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index 59a313ea08..deefce2e26 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -1526,53 +1526,6 @@ the entries in MANIFEST."
                     `((type . profile-hook)
                       (hook . manual-database))))
 
-(define (texlive-configuration manifest)
-  "Return a derivation that builds a TeXlive configuration for the entries in
-MANIFEST."
-  (define entry->texlive-input
-    (match-lambda
-      (($ <manifest-entry> name version output thing deps)
-       (if (string-prefix? "texlive-" name)
-           (cons (gexp-input thing output)
-                 (append-map entry->texlive-input deps))
-           '()))))
-  (define build
-    (with-imported-modules '((guix build utils)
-                             (guix build union))
-      #~(begin
-          (use-modules (guix build utils)
-                       (guix build union))
-
-          ;; Build a modifiable union of all texlive inputs.  We do this so
-          ;; that TeX live can resolve the parent and grandparent directories
-          ;; correctly.  There might be a more elegant way to accomplish this.
-          (union-build #$output
-                       '#$(append-map entry->texlive-input
-                                      (manifest-entries manifest))
-                       #:create-all-directories? #t
-                       #:log-port (%make-void-port "w"))
-          (let ((texmf.cnf (string-append
-                            #$output
-                            "/share/texmf-dist/web2c/texmf.cnf")))
-            (when (file-exists? texmf.cnf)
-              (substitute* texmf.cnf
-                (("^TEXMFROOT = .*")
-                 (string-append "TEXMFROOT = " #$output "/share\n"))
-                (("^TEXMF = .*")
-                 "TEXMF = $TEXMFROOT/share/texmf-dist\n"))))
-          #t)))
-
-    (with-monad %store-monad
-      (if (any (cut string-prefix? "texlive-" <>)
-               (map manifest-entry-name (manifest-entries manifest)))
-          (gexp->derivation "texlive-configuration" build
-                            #:substitutable? #f
-                            #:local-build? #t
-                            #:properties
-                            `((type . profile-hook)
-                              (hook . texlive-configuration)))
-          (return #f))))
-
 (define %default-profile-hooks
   ;; This is the list of derivation-returning procedures that are called by
   ;; default when making a non-empty profile.
@@ -1584,7 +1537,6 @@ MANIFEST."
         glib-schemas
         gtk-icon-themes
         gtk-im-modules
-        texlive-configuration
         xdg-desktop-database
         xdg-mime-database))