From 19cb51701266404e023eda5a50c026bccb0dc6a0 Mon Sep 17 00:00:00 2001
From: Andreas Enge <andreas@enge.fr>
Date: Sun, 28 Apr 2013 22:05:27 +0200
Subject: gnu: xpdf: Use gs-fonts to provide standard postscript fonts.

* gnu/packages/pdf (xpdf): Add path to gs-fonts in xpdfrc.
---
 gnu/packages/pdf.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm
index b2f1ade143..820a879288 100644
--- a/gnu/packages/pdf.scm
+++ b/gnu/packages/pdf.scm
@@ -82,6 +82,7 @@ (define-public xpdf
                      "1jnfzdqc54wa73lw28kjv0m7120mksb0zkcn81jdlvijyvc67kq2"))))
    (build-system gnu-build-system)
    (inputs `(("freetype" ,freetype)
+             ("gs-fonts" ,gs-fonts)
              ("lesstif" ,lesstif)
              ("libpaper" ,libpaper)
              ("libx11" ,libx11)
@@ -95,7 +96,21 @@ (define-public xpdf
    (arguments
     `(#:tests? #f ; there is no check target
       #: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.")
    (description
     "Xpdf is a viewer for Portable Document Format (PDF) files")
-- 
cgit v1.2.3