From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 2/2] gnu: Add xfd. Date: Thu, 30 Jun 2016 21:18:24 +0300 Message-ID: <20160630181824.20948-2-alezost@gmail.com> References: <20160630181824.20948-1-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44031) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bIgXw-0005T6-Ug for guix-devel@gnu.org; Thu, 30 Jun 2016 14:18:42 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bIgXt-0005W2-G8 for guix-devel@gnu.org; Thu, 30 Jun 2016 14:18:39 -0400 Received: from mail-lf0-x241.google.com ([2a00:1450:4010:c07::241]:35787) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bIgXt-0005Vs-8K for guix-devel@gnu.org; Thu, 30 Jun 2016 14:18:37 -0400 Received: by mail-lf0-x241.google.com with SMTP id w130so9198736lfd.2 for ; Thu, 30 Jun 2016 11:18:37 -0700 (PDT) Received: from localhost.localdomain ([217.107.192.156]) by smtp.gmail.com with ESMTPSA id m71sm1720271lfb.48.2016.06.30.11.18.35 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Thu, 30 Jun 2016 11:18:35 -0700 (PDT) In-Reply-To: <20160630181824.20948-1-alezost@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org * gnu/packages/xorg.scm (xfd): New variable. --- gnu/packages/xorg.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) 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") -- 2.8.3