ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: xpdf: Use gs-fonts to provide standard postscript fonts.

Browse source 
* gnu/packages/pdf (xpdf): Add path to gs-fonts in xpdfrc.
This commit is contained in:
Andreas Enge 2013-04-28 22:05:27 +02:00
parent 1f7c6a1f53
commit 19cb517012
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/pdf.scm
View file

@ -82,6 +82,7 @@ (define-public xpdf
"1jnfzdqc54wa73lw28kjv0m7120mksb0zkcn81jdlvijyvc67kq2")))) "1jnfzdqc54wa73lw28kjv0m7120mksb0zkcn81jdlvijyvc67kq2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("freetype" ,freetype) (inputs `(("freetype" ,freetype)
("gs-fonts" ,gs-fonts)
("lesstif" ,lesstif) ("lesstif" ,lesstif)
("libpaper" ,libpaper) ("libpaper" ,libpaper)
("libx11" ,libx11) ("libx11" ,libx11)
@ -95,7 +96,21 @@ (define-public xpdf
(arguments (arguments
`(#:tests? #f ; there is no check target `(#:tests? #f ; there is no check target
#:patches (list (assoc-ref %build-inputs #:patches (list (assoc-ref %build-inputs
"patch/constchar")))) "patch/constchar"))
#:phases
(alist-replace
'install
(lambda* (#:key outputs inputs #:allow-other-keys #:rest args)
(let* ((install (assoc-ref %standard-phases 'install))
(out (assoc-ref outputs "out"))
(xpdfrc (string-append out "/etc/xpdfrc"))
(gs-fonts (assoc-ref inputs "gs-fonts")))
(apply install args)
(substitute* xpdfrc
(("/usr/local/share/ghostscript/fonts")
(string-append gs-fonts "/share/fonts/type1/ghostscript"))
(("#fontFile") "fontFile"))))
%standard-phases)))
(synopsis "Viewer for pdf files based on the Motif toolkit.") (synopsis "Viewer for pdf files based on the Motif toolkit.")
(description (description
"Xpdf is a viewer for Portable Document Format (PDF) files") "Xpdf is a viewer for Portable Document Format (PDF) files")