diff mbox

[2/2] gnu: Add xfd.

Message ID 20160630181824.20948-2-alezost@gmail.com
State New
Headers show

Commit Message

Alex Kost June 30, 2016, 6:18 p.m. UTC
* gnu/packages/xorg.scm (xfd): New variable.
---
 gnu/packages/xorg.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

Comments

Ludovic Courtès July 2, 2016, 1:31 p.m. UTC | #1
Alex Kost <alezost@gmail.com> skribis:

> * gnu/packages/xorg.scm (xfd): New variable.

[...]

> +    (native-inputs
> +     `(("gettext" ,gnu-gettext)

Is Gettext really needed?

Otherwise LGTM, thanks!

Ludo’.
Alex Kost July 2, 2016, 5:50 p.m. UTC | #2
Ludovic Courtès (2016-07-02 16:31 +0300) wrote:

> Alex Kost <alezost@gmail.com> skribis:
>
>> * gnu/packages/xorg.scm (xfd): New variable.
>
> [...]
>
>> +    (native-inputs
>> +     `(("gettext" ,gnu-gettext)
>
> Is Gettext really needed?

I think so, without gettext the build fails.
diff mbox

Patch

diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index bc6692d..431c591 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -3917,6 +3917,52 @@  known to your X server, examine samples of each, and retrieve the X Logical
 Font Description (XLFD) full name for a font.")
     (license license:x11)))
 
+(define-public xfd
+  (package
+    (name "xfd")
+    (version "1.1.2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://xorg/individual/app/xfd-"
+                    version ".tar.bz2"))
+              (sha256
+               (base32
+                "0n97iqqap9wyxjan2n520vh4rrf5bc0apsw2k9py94dqzci258y1"))))
+    (build-system gnu-build-system)
+    (arguments
+     ;; The same 'app-defaults' problem as with 'xfontsel' package.
+     (let ((app-defaults-dir "/share/X11/app-defaults"))
+       `(#:configure-flags
+         (list (string-append "--with-appdefaultdir="
+                              %output ,app-defaults-dir))
+         #:phases
+         (modify-phases %standard-phases
+           (add-after 'install 'wrap-xfd
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let ((out (assoc-ref outputs "out")))
+                 (wrap-program (string-append out "/bin/xfd")
+                   `("XAPPLRESDIR" =
+                     (,(string-append out ,app-defaults-dir)))))))))))
+    (inputs
+     `(("fontconfig" ,fontconfig)
+       ("libx11" ,libx11)
+       ("libxaw" ,libxaw)
+       ("libxft" ,libxft)
+       ("libxmu" ,libxmu)
+       ("libxrender" ,libxrender)))
+    (native-inputs
+     `(("gettext" ,gnu-gettext)
+       ("pkg-config" ,pkg-config)))
+    (home-page "https://www.x.org/wiki/")
+    (synopsis "Display all the characters in an X font")
+    (description
+     "XFD (X Font Display) package provides an utility that displays a
+window containing the name of the font being displayed, a row of command
+buttons, several lines of text for displaying character metrics, and a grid
+containing one glyph per cell.")
+    (license license:x11)))
+
 (define-public xmodmap
   (package
     (name "xmodmap")