aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-06-30 18:44:09 +0300
committerAlex Kost <alezost@gmail.com>2016-07-25 17:18:52 +0300
commitf225ae75443d6f9e5741f26f953bbf832d341135 (patch)
treed5e2f70e94f19e7703d61aa190bb8515f89aaf54
parent1925a8792654434a22d2072cfd0f47c12ec869b6 (diff)
downloadguix-f225ae75443d6f9e5741f26f953bbf832d341135.tar
guix-f225ae75443d6f9e5741f26f953bbf832d341135.tar.gz
gnu: Add xfontsel.
* gnu/packages/xorg.scm (xfontsel): New variable.
-rw-r--r--gnu/packages/xorg.scm46
1 files changed, 46 insertions, 0 deletions
diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index d196568a0c..bc6692df1a 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -8,6 +8,7 @@
;;; Copyright © 2015 Cyrill Schenkel <cyrill.schenkel@gmail.com>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
+;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -3870,6 +3871,51 @@ running on X server.")
protocol.")
(license license:x11)))
+(define-public xfontsel
+ (package
+ (name "xfontsel")
+ (version "1.0.5")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://xorg/individual/app/xfontsel-"
+ version ".tar.bz2"))
+ (sha256
+ (base32
+ "1grir464hy52a71r3mpm9mzvkf7nwr3vk0b1vc27pd3gp588a38p"))))
+ (build-system gnu-build-system)
+ (arguments
+ ;; By default, it tries to install XFontSel file in
+ ;; "/gnu/store/<libxt>/share/X11/app-defaults": it defines this
+ ;; directory from 'libxt' (using 'pkg-config'). To put this file
+ ;; inside output dir and to use it properly, we need to configure
+ ;; --with-appdefaultdir and to wrap 'xfontsel' binary.
+ (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-xfontsel
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (wrap-program (string-append out "/bin/xfontsel")
+ `("XAPPLRESDIR" =
+ (,(string-append out ,app-defaults-dir)))))))))))
+ (inputs
+ `(("libx11" ,libx11)
+ ("libxaw" ,libxaw)
+ ("libxmu" ,libxmu)
+ ("libxt" ,libxt)))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (home-page "https://www.x.org/wiki/")
+ (synopsis "Browse and select X font names")
+ (description
+ "XFontSel provides a simple way to display the X11 core protocol fonts
+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 xmodmap
(package