[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
28/37: gnu: Replace texlive-latex-mflogo with texlive-mflogo.
From: |
guix-commits |
Subject: |
28/37: gnu: Replace texlive-latex-mflogo with texlive-mflogo. |
Date: |
Wed, 23 Dec 2020 06:31:45 -0500 (EST) |
rekado pushed a commit to branch core-updates
in repository guix.
commit 4c1de416b2ea419f883410bd56c156ba97c5ca06
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Oct 27 23:24:58 2020 +0100
gnu: Replace texlive-latex-mflogo with texlive-mflogo.
* gnu/packages/tex.scm (texlive-latex-mflogo): Deprecate in favor of...
(texlive-mflogo): ...this new variable.
---
gnu/packages/tex.scm | 92 +++++++++++++++++++++++++++++++++++++++++-----------
1 file changed, 73 insertions(+), 19 deletions(-)
diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm
index 210f169..7af5073 100644
--- a/gnu/packages/tex.scm
+++ b/gnu/packages/tex.scm
@@ -999,27 +999,81 @@ class), line and circle fonts (for use in the picture
environment) and LaTeX
symbol fonts.")
(license license:lppl1.2+)))
-(define-public texlive-latex-mflogo
- (package
- (name "texlive-latex-mflogo")
- (version (number->string %texlive-revision))
- (source
- (origin
- (method svn-fetch)
- (uri (texlive-ref "latex" "mflogo"))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "15i2ib6nvhf31g1b92c6njf7n0g29znlq7hbfp9ii7qabhcwwvrj"))))
- (build-system texlive-build-system)
- (arguments '(#:tex-directory "latex/mflogo"))
- (home-page "http://www.ctan.org/pkg/mflogo")
- (synopsis "LaTeX support for Metafont logo fonts")
- (description
- "This package provides LaTeX and font definition files to access the
+(define-public texlive-mflogo
+ (let ((template (simple-texlive-package
+ "texlive-mflogo"
+ (list "/doc/latex/mflogo/"
+ "/source/latex/mflogo/"
+ "/fonts/source/public/mflogo/logosl8.mf")
+ (base32
+ "1vb4mg7fh4k54g7nqwiw3qm4iir8whpfnspis76l4sddzar1amh7"))))
+ (package
+ (inherit template)
+ (arguments
+ (substitute-keyword-arguments (package-arguments template)
+ ((#:modules _ '())
+ '((guix build texlive-build-system)
+ (guix build utils)
+ (srfi srfi-1)
+ (srfi srfi-26)))
+ ((#:tex-directory _ #t)
+ "latex/mflogo")
+ ((#:phases phases '())
+ `(modify-phases ,phases
+ (add-after 'unpack 'chdir
+ (lambda _
+ (chdir "source/latex/mflogo") #t))
+ (add-after 'build 'build-font-metrics
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((root "../../..")
+ (mf (assoc-ref inputs "texlive-metafont"))
+ (kl (assoc-ref inputs "texlive-knuth-lib")))
+ ;; Tell mf where to find mf.base
+ (setenv "MFBASES"
+ (string-append mf "/share/texmf-dist/web2c"))
+ ;; Tell mf where to look for source files
+ (setenv "MFINPUTS"
+ (string-append root ":"
+ mf "/share/texmf-dist/metafont/base:"
+ kl
"/share/texmf-dist/fonts/source/public/knuth-lib:"
+ root "/fonts/source/public/mflogo/"))
+ (for-each (lambda (font)
+ (format #t "building font ~a\n" font)
+ (invoke "mf" "-progname=mf"
+ "-output-directory=build"
+ (string-append "\\"
+ "mode:=ljfour; "
+ "mag:=1; "
+ "scrollmode; "
+ "input " (basename
font))))
+ (find-files (string-append root
+
"/fonts/source/public/mflogo/")
+ "\\.mf$")))
+ #t))
+ (add-before 'install 'install-fonts
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (tfm (string-append
+ out
"/share/texmf-dist/fonts/tfm/public/mflogo")))
+ (for-each (lambda (file)
+ (install-file file tfm)
+ (delete-file file))
+ (find-files "build" "\\.tfm"))
+ #t)))))))
+ (native-inputs
+ `(("texlive-bin" ,texlive-bin)
+ ("texlive-metafont" ,texlive-metafont)
+ ("texlive-knuth-lib" ,texlive-knuth-lib)))
+ (home-page "http://www.ctan.org/pkg/mflogo")
+ (synopsis "LaTeX support for Metafont logo fonts")
+ (description
+ "This package provides LaTeX and font definition files to access the
Knuthian mflogo fonts described in The Metafontbook and to typeset Metafont
logos in LaTeX documents.")
- (license license:lppl)))
+ (license license:lppl))))
+
+(define-public texlive-latex-mflogo
+ (deprecated-package "texlive-latex-mflogo" texlive-mflogo))
(define-public texlive-mflogo-font
(package
- 17/37: gnu: lilypond: Remove obsolete build phase., (continued)
- 17/37: gnu: lilypond: Remove obsolete build phase., guix-commits, 2020/12/23
- 16/37: gnu: texlive-amsfonts: Only create tfm files for Euler fonts., guix-commits, 2020/12/23
- 19/37: gnu: Replace texlive-generic-pdftex with texlive-pdftex., guix-commits, 2020/12/23
- 20/37: gnu: teximpatient: Use new name for texlive-pdftex., guix-commits, 2020/12/23
- 22/37: gnu: chez-sockets: Use new name of texlive-pdftex., guix-commits, 2020/12/23
- 24/37: gnu: Replace texlive-fonts-knuth-lib with texlive-knuth-lib., guix-commits, 2020/12/23
- 26/37: gnu: python-ipython-documentation: Use new name for texlive-pdftex., guix-commits, 2020/12/23
- 35/37: gnu: Replace texlive-latex-hyperref with texlive-hyperref., guix-commits, 2020/12/23
- 34/37: gnu: Replace texlive-latex-fontspec with texlive-fontspec., guix-commits, 2020/12/23
- 37/37: gnu: Replace texlive-latex-pdfx with texlive-pdfx., guix-commits, 2020/12/23
- 28/37: gnu: Replace texlive-latex-mflogo with texlive-mflogo.,
guix-commits <=
- 04/37: gnu: Replace texlive-latex-psnfss with texlive-psnfss., guix-commits, 2020/12/23
- 18/37: gnu: lilypond: Use new name of texlive-lh., guix-commits, 2020/12/23
- 23/37: gnu: chez-web: Use new names of TeX Live packages., guix-commits, 2020/12/23
- 29/37: gnu: Replace texlive-latex-amscls with texlive-amscls., guix-commits, 2020/12/23
- 30/37: gnu: texlive-base: Update reference to texlive-amscls., guix-commits, 2020/12/23
- 27/37: gnu: python-pypandoc: Do not set HOME., guix-commits, 2020/12/23
- 31/37: gnu: texlive-base: Update reference to texlive-psnfss., guix-commits, 2020/12/23
- 32/37: gnu: Replace texlive-latex-babel with texlive-babel., guix-commits, 2020/12/23
- 33/37: gnu: texlive-base: Update reference to texlive-babel., guix-commits, 2020/12/23
- 36/37: gnu: texlive-latex-pdfx: Use simple-texlive-package., guix-commits, 2020/12/23