TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: Replace texlive-latex-mflogo with texlive-mflogo.

Browse source 
* gnu/packages/tex.scm (texlive-latex-mflogo): Deprecate in favor of...
(texlive-mflogo): ...this new variable.
This commit is contained in:
Ricardo Wurmus 2020-10-27 23:24:58 +01:00
parent a434d9fa71
commit 4c1de416b2
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 73 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

92
gnu/packages/tex.scm
View file

@ -999,27 +999,81 @@ (define-public texlive-fonts-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