This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch tex-team
in repository guix.

The following commit(s) were added to refs/heads/tex-team by this push:
     new b2e43f5f70 gnu: book-sparc: Use texlive-local-tree.
b2e43f5f70 is described below

commit b2e43f5f70d9f35713114bf2224dc5113f23a8d6
Author: Nicolas Goaziou <m...@nicolasgoaziou.fr>
AuthorDate: Tue Feb 25 19:04:07 2025 +0100

    gnu: book-sparc: Use texlive-local-tree.
    
    * gnu/packages/books.scm (book-sparc)[inputs]: Move TeX Live related inputs
    to...
    [native-inputs]: ... here, and wrap them within texlive-local-tree.
    
    Change-Id: I3430bc84ce35f4aa8f0537b512f472ef88f8e5e9
---
 gnu/packages/books.scm | 123 ++++++++++++++++++++++++-------------------------
 1 file changed, 61 insertions(+), 62 deletions(-)

diff --git a/gnu/packages/books.scm b/gnu/packages/books.scm
index b2bc2791f2..5e1a36bd18 100644
--- a/gnu/packages/books.scm
+++ b/gnu/packages/books.scm
@@ -63,69 +63,68 @@
            lilypond
            perl
            python-pygments
+           (texlive-local-tree
+            (list texlive-acronym
+                  texlive-adjustbox
+                  texlive-biblatex
+                  texlive-bibtex
+                  texlive-bibtexperllibs
+                  texlive-bigfoot
+                  texlive-chngcntr
+                  texlive-circuitikz
+                  texlive-collection-langcyrillic
+                  texlive-fancyvrb
+                  texlive-fontspec
+                  texlive-glossaries
+                  texlive-glossaries-english
+                  texlive-glossaries-extra
+                  texlive-koma-script
+                  texlive-lilyglyphs
+                  texlive-minted
+                  texlive-multirow
+                  texlive-pgf
+                  texlive-pgfplots
+                  texlive-subfiles
+                  texlive-svg
+                  texlive-t1utils
+                  texlive-textpos
+                  texlive-transparent
+                  texlive-trimspaces
+                  texlive-upquote
+                  texlive-xetex))
            which))
-    (inputs
-     (list font-liberation
-           git
-           texlive-acronym
-           texlive-adjustbox
-           texlive-biblatex
-           texlive-bibtex
-           texlive-bibtexperllibs
-           texlive-bigfoot
-           texlive-chngcntr
-           texlive-circuitikz
-           texlive-collection-langcyrillic
-           texlive-fancyvrb
-           texlive-fontspec
-           texlive-glossaries
-           texlive-glossaries-english
-           texlive-glossaries-extra
-           texlive-koma-script
-           texlive-lilyglyphs
-           texlive-minted
-           texlive-multirow
-           texlive-pgf
-           texlive-pgfplots
-           texlive-subfiles
-           texlive-svg
-           texlive-t1utils
-           texlive-textpos
-           texlive-transparent
-           texlive-trimspaces
-           texlive-upquote
-           texlive-xetex))
-   (arguments
-    (list #:tests? #f                   ; no tests
-          #:modules (append %default-gnu-imported-modules
-                            '((ice-9 regex)
-                              (srfi srfi-1)))
-          #:phases #~(modify-phases %standard-phases
-                       (add-before 'build 'configure-environment
-                         (lambda* (#:key inputs make-flags parallel-build?
-                                   #:allow-other-keys)
-                           (let* ((src (assoc-ref inputs "source"))
-                                  (rx  (make-regexp 
"/gnu/store/(.*)-book-sparc-.*"))
-                                  (src-hash (match:substring (regexp-exec rx 
src) 1))
-                                  (random-seed
-                                   (fold (lambda (ch prev)
-                                           (+ (char->integer ch)
-                                              prev))
-                                         0
-                                         (string->list src-hash))))
-                             (setenv "RANDOMSEED" (number->string random-seed))
-                             (setenv "REPRODUCIBILITY" "yes"))))
-                       (replace 'install
-                         (lambda _
-                           (let ((doc-dir (string-append #$output
-                                                         "/share/doc/sparc/")))
-                             (mkdir-p doc-dir)
-                             (copy-file "sparc.ru.pdf"
-                                        (string-append doc-dir
-                                                       "sparc.ru.pdf"))
-                             (copy-file "sparc.en.pdf"
-                                        (string-append doc-dir
-                                                       "sparc.en.pdf"))))))))
+    (inputs (list font-liberation git))
+    (arguments
+     (list #:tests? #f                  ; no tests
+           #:modules (append %default-gnu-imported-modules
+                             '((ice-9 regex)
+                               (srfi srfi-1)))
+           #:phases #~(modify-phases %standard-phases
+                        (add-before 'build 'configure-environment
+                          (lambda* (#:key inputs make-flags parallel-build?
+                                    #:allow-other-keys)
+                            (let* ((src (assoc-ref inputs "source"))
+                                   (rx  (make-regexp 
"/gnu/store/(.*)-book-sparc-.*"))
+                                   (src-hash (match:substring (regexp-exec rx 
src) 1))
+                                   (random-seed
+                                    (fold (lambda (ch prev)
+                                            (+ (char->integer ch)
+                                               prev))
+                                          0
+                                          (string->list src-hash))))
+                              (setenv "RANDOMSEED" (number->string 
random-seed))
+                              (setenv "REPRODUCIBILITY" "yes"))))
+                        (replace 'install
+                          (lambda _
+                            (let ((doc-dir (string-append #$output
+                                                          
"/share/doc/sparc/")))
+                              (mkdir-p doc-dir)
+                              (copy-file "sparc.ru.pdf"
+                                         (string-append doc-dir
+                                                        "sparc.ru.pdf"))
+                              (copy-file "sparc.en.pdf"
+                                         (string-append doc-dir
+                                                        "sparc.en.pdf"))))))))
     (home-page "https://github.com/artyom-poptsov/SPARC";)
     (synopsis "Book on combining art and technology")
     (description

Reply via email to