ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 05:39:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Replace texlive-metafont-base with texlive-metafont.

Browse source 
* gnu/packages/tex.scm (texlive-metafont-base): Deprecate this variable in
favor of...
(texlive-metafont): ...this new variable.
(texlive-cm, texlive-fonts-knuth-lib, texlive-fonts-latex, texlive-amsfonts,
texlive-etex, texlive-base, texlive-fonts-ec, texlive-fonts-rsfs): Adjust
references to texlive-metafont-base.
This commit is contained in:
Ricardo Wurmus 2020-10-26 20:52:01 +01:00
parent e760a15d35
commit 0ac4c0ca40
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 19 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
gnu/packages/tex.scm
View file

@ -551,9 +551,9 @@ (define-public texlive-tex-ini-files
(define-public texlive-generic-tex-ini-files (define-public texlive-generic-tex-ini-files
(deprecated-package "texlive-generic-tex-ini-files" texlive-tex-ini-files)) (deprecated-package "texlive-generic-tex-ini-files" texlive-tex-ini-files))
(define-public texlive-metafont-base (define-public texlive-metafont
(package (package
(name "texlive-metafont-base") (name "texlive-metafont")
(version (number->string %texlive-revision)) (version (number->string %texlive-revision))
(source (origin (source (origin
(method svn-fetch) (method svn-fetch)
@ -605,6 +605,9 @@ (define-public texlive-metafont-base
build fonts using the Metafont system.") build fonts using the Metafont system.")
(license license:knuth))) (license license:knuth)))
(define-public texlive-metafont-base
(deprecated-package "texlive-metafont-base" texlive-metafont))
(define-public texlive-fontinst (define-public texlive-fontinst
(let ((template (simple-texlive-package (let ((template (simple-texlive-package
"texlive-fontinst" "texlive-fontinst"
@ -736,7 +739,7 @@ (define-public texlive-cm
`(modify-phases ,phases `(modify-phases ,phases
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((mf (assoc-ref inputs "texlive-metafont-base"))) (let ((mf (assoc-ref inputs "texlive-metafont")))
;; Tell mf where to find mf.base ;; Tell mf where to find mf.base
(setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c")) (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
;; Tell mf where to look for source files ;; Tell mf where to look for source files
@ -780,7 +783,7 @@ (define-public texlive-cm
#t))))))) #t)))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)
("texlive-metafont-base" ,texlive-metafont-base))) ("texlive-metafont" ,texlive-metafont)))
(home-page "https://www.ctan.org/pkg/cm") (home-page "https://www.ctan.org/pkg/cm")
(synopsis "Computer Modern fonts for TeX") (synopsis "Computer Modern fonts for TeX")
(description "This package provides the Computer Modern fonts by Donald (description "This package provides the Computer Modern fonts by Donald
@ -882,7 +885,7 @@ (define-public texlive-fonts-knuth-lib
(delete 'configure) (delete 'configure)
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((mf (assoc-ref inputs "texlive-metafont-base"))) (let ((mf (assoc-ref inputs "texlive-metafont")))
;; Tell mf where to find mf.base ;; Tell mf where to find mf.base
(setenv "MFBASES" (setenv "MFBASES"
(string-append mf "/share/texmf-dist/web2c")) (string-append mf "/share/texmf-dist/web2c"))
@ -916,7 +919,7 @@ (define-public texlive-fonts-knuth-lib
#t)))))) #t))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)
("texlive-metafont-base" ,texlive-metafont-base))) ("texlive-metafont" ,texlive-metafont)))
(home-page "https://www.ctan.org/pkg/knuth-lib") (home-page "https://www.ctan.org/pkg/knuth-lib")
(synopsis "Small library of METAFONT sources") (synopsis "Small library of METAFONT sources")
(description "This is a collection of core TeX and METAFONT macro files (description "This is a collection of core TeX and METAFONT macro files
@ -951,7 +954,7 @@ (define-public texlive-fonts-latex
(delete 'configure) (delete 'configure)
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((mf (assoc-ref inputs "texlive-metafont-base"))) (let ((mf (assoc-ref inputs "texlive-metafont")))
;; Tell mf where to find mf.base ;; Tell mf where to find mf.base
(setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c")) (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
;; Tell mf where to look for source files ;; Tell mf where to look for source files
@ -990,7 +993,7 @@ (define-public texlive-fonts-latex
#t)))))) #t))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)
("texlive-metafont-base" ,texlive-metafont-base) ("texlive-metafont" ,texlive-metafont)
("texlive-cm" ,texlive-cm))) ("texlive-cm" ,texlive-cm)))
(home-page "https://www.ctan.org/pkg/latex-fonts") (home-page "https://www.ctan.org/pkg/latex-fonts")
(synopsis "Collection of fonts used in LaTeX distributions") (synopsis "Collection of fonts used in LaTeX distributions")
@ -1176,7 +1179,7 @@ (define-public texlive-amsfonts
(native-inputs (native-inputs
`(("texlive-union" ,(texlive-union (list texlive-tex-fontinst-base `(("texlive-union" ,(texlive-union (list texlive-tex-fontinst-base
texlive-cm texlive-cm
texlive-metafont-base))))) texlive-metafont)))))
(home-page "https://www.ctan.org/pkg/amsfonts") (home-page "https://www.ctan.org/pkg/amsfonts")
(synopsis "TeX fonts from the American Mathematical Society") (synopsis "TeX fonts from the American Mathematical Society")
(description (description
@ -1240,7 +1243,7 @@ (define-public texlive-etex
;; Build tfm font. ;; Build tfm font.
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((mf (assoc-ref inputs "texlive-metafont-base"))) (let ((mf (assoc-ref inputs "texlive-metafont")))
;; Tell mf where to find mf.base ;; Tell mf where to find mf.base
(setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c")) (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
;; Tell mf where to look for source files ;; Tell mf where to look for source files
@ -1266,7 +1269,7 @@ (define-public texlive-etex
#t)))))) #t))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)
("texlive-metafont-base" ,texlive-metafont-base) ("texlive-metafont" ,texlive-metafont)
("texlive-cm" ,texlive-cm))) ("texlive-cm" ,texlive-cm)))
(home-page "https://www.ctan.org/pkg/etex") (home-page "https://www.ctan.org/pkg/etex")
(synopsis "Extended version of TeX") (synopsis "Extended version of TeX")
@ -3463,7 +3466,7 @@ (define-public texlive-base
texlive-cm texlive-cm
texlive-cm-super ; to avoid bitmap fonts texlive-cm-super ; to avoid bitmap fonts
texlive-fonts-latex texlive-fonts-latex
texlive-metafont-base texlive-metafont
texlive-latex-base texlive-latex-base
;; LaTeX packages from the "required" set. ;; LaTeX packages from the "required" set.
texlive-latex-amsmath texlive-latex-amsmath
@ -4773,7 +4776,7 @@ (define-public texlive-fonts-ec
(delete 'configure) (delete 'configure)
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((mf (assoc-ref inputs "texlive-metafont-base"))) (let ((mf (assoc-ref inputs "texlive-metafont")))
;; Tell mf where to find mf.base ;; Tell mf where to find mf.base
(setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c")) (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
;; Tell mf where to look for source files ;; Tell mf where to look for source files
@ -4808,7 +4811,7 @@ (define-public texlive-fonts-ec
#t)))))) #t))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)
("texlive-metafont-base" ,texlive-metafont-base) ("texlive-metafont" ,texlive-metafont)
("texlive-cm" ,texlive-cm))) ("texlive-cm" ,texlive-cm)))
(home-page "https://www.ctan.org/pkg/ec") (home-page "https://www.ctan.org/pkg/ec")
(synopsis "Computer modern fonts in T1 and TS1 encodings") (synopsis "Computer modern fonts in T1 and TS1 encodings")
@ -4990,7 +4993,7 @@ (define-public texlive-fonts-rsfs
(delete 'configure) (delete 'configure)
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((mf (assoc-ref inputs "texlive-metafont-base"))) (let ((mf (assoc-ref inputs "texlive-metafont")))
;; Tell mf where to find mf.base ;; Tell mf where to find mf.base
(setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c")) (setenv "MFBASES" (string-append mf "/share/texmf-dist/web2c"))
;; Tell mf where to look for source files ;; Tell mf where to look for source files
@ -5025,7 +5028,7 @@ (define-public texlive-fonts-rsfs
#t)))))) #t))))))
(native-inputs (native-inputs
`(("texlive-bin" ,texlive-bin) `(("texlive-bin" ,texlive-bin)
("texlive-metafont-base" ,texlive-metafont-base) ("texlive-metafont" ,texlive-metafont)
("texlive-cm" ,texlive-cm))) ("texlive-cm" ,texlive-cm)))
(home-page "https://www.ctan.org/pkg/rsfs") (home-page "https://www.ctan.org/pkg/rsfs")
(synopsis "Ralph Smith's Formal Script font") (synopsis "Ralph Smith's Formal Script font")