From 993af4a60f4a70847224ea7e7d07d4bc714a668a Mon Sep 17 00:00:00 2001 From: "B. Wilson" Date: Sun, 22 Nov 2020 16:02:13 +0900 Subject: gnu: Add xtitle. gnu/packages/xdisorg.scm(xtitle): New variable. Signed-off-by: Nicolas Goaziou --- gnu/packages/xdisorg.scm | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) (limited to 'gnu/packages/xdisorg.scm') diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index 430b5ac770..e4edcfb177 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -41,6 +41,7 @@ ;;; Copyright © 2020 Brett Gilio ;;; Copyright © 2020 Gabriel Arazas ;;; Copyright © 2020 James Smith +;;; Copyright © 2020 B. Wilson ;;; ;;; This file is part of GNU Guix. ;;; @@ -110,6 +111,38 @@ ;; packages outside the x.org system proper +(define-public xtitle + (package + (name "xtitle") + (version "0.4.4") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/baskerville/xtitle") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0f5070k2bwarghl1vq886pl52xck1x5p7x3qhlfchsc2y3dcqms9")))) + (build-system gnu-build-system) + (inputs + `(("libxcb" ,libxcb) + ("xcb-util" ,xcb-util) + ("xcb-util-wm" ,xcb-util-wm))) + (arguments + `(#:tests? #f ;no test suite + #:make-flags (list (string-append "CC=" ,(cc-for-target)) + (string-append "PREFIX=" %output)) + #:phases (modify-phases %standard-phases (delete 'configure)))) + (home-page "https://github.com/baskerville/xtitle") + (synopsis "Output X window titles") + (description + "If arguments are given, @code{xtitle} outputs the title of each +specified window, otherwise it outputs the title of the active window. With +@emph{snoop} mode on, it continuously monitors the specified windows and +outputs when titles change.") + (license license:unlicense))) + (define-public arandr (package (name "arandr") -- cgit v1.2.3