gnu/packages/xdisorg.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
   4 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
   5 ;;; Copyright © 2014, 2015, 2016 Alex Kost <alezost@gmail.com>
   6 ;;; Copyright © 2013, 2015, 2017 Ludovic Courtès <ludo@gnu.org>
   7 ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
   8 ;;; Copyright © 2015 Alexander I.Grafov <grafov@gmail.com>
   9 ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
  10 ;;; Copyright © 2015 xd1le <elisp.vim@gmail.com>
  11 ;;; Copyright © 2015 Florian Paul Schmidt <mista.tapas@gmx.net>
  12 ;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
  13 ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
  14 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
  15 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
  16 ;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
  17 ;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com>
  18 ;;; Copyright © 2016 Petter <petter@mykolab.ch>
  19 ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
  20 ;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net>
  21 ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
  22 ;;;
  23 ;;; This file is part of GNU Guix.
  24 ;;;
  25 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  26 ;;; under the terms of the GNU General Public License as published by
  27 ;;; the Free Software Foundation; either version 3 of the License, or (at
  28 ;;; your option) any later version.
  29 ;;;
  30 ;;; GNU Guix is distributed in the hope that it will be useful, but
  31 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  32 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  33 ;;; GNU General Public License for more details.
  34 ;;;
  35 ;;; You should have received a copy of the GNU General Public License
  36 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  37
  38 (define-module (gnu packages xdisorg)
  39   #:use-module ((guix licenses) #:prefix license:)
  40   #:use-module (guix packages)
  41   #:use-module (guix download)
  42   #:use-module (guix git-download)
  43   #:use-module (guix utils)
  44   #:use-module (guix build-system cmake)
  45   #:use-module (guix build-system gnu)
  46   #:use-module (guix build-system glib-or-gtk)
  47   #:use-module (guix build-system python)
  48   #:use-module (gnu packages)
  49   #:use-module (gnu packages documentation)
  50   #:use-module (gnu packages algebra)
  51   #:use-module (gnu packages autotools)
  52   #:use-module (gnu packages compression)
  53   #:use-module (gnu packages image)
  54   #:use-module (gnu packages pkg-config)
  55   #:use-module (gnu packages gettext)
  56   #:use-module (gnu packages gl)
  57   #:use-module (gnu packages glib)
  58   #:use-module (gnu packages gnome)
  59   #:use-module (gnu packages icu4c)
  60   #:use-module (gnu packages maths)
  61   #:use-module (gnu packages m4)
  62   #:use-module (gnu packages ncurses)
  63   #:use-module (gnu packages perl)
  64   #:use-module (gnu packages python)
  65   #:use-module (gnu packages linux)
  66   #:use-module (gnu packages gl)
  67   #:use-module (gnu packages guile)
  68   #:use-module (gnu packages xml)
  69   #:use-module (gnu packages gtk)
  70   #:use-module (gnu packages xorg)
  71   #:use-module (gnu packages bison))
  72
  73 ;; packages outside the x.org system proper
  74
  75 (define-public arandr
  76   (package
  77     (name "arandr")
  78     (version "0.1.9")
  79     (source (origin
  80               (method url-fetch)
  81               (uri (string-append "http://christian.amsuess.com/tools/" name
  82                                   "/files/" name "-" version ".tar.gz"))
  83               (sha256
  84                (base32
  85                 "1i3f1agixxbfy4kxikb2b241p7c2lg73cl9wqfvlwz3q6zf5faxv"))
  86               (modules '((guix build utils)))
  87               (snippet
  88                ;; Do not record a timestamp and file name in gzipped man
  89                ;; pages (this is equivalent to 'gzip --no-name'.)
  90                '(substitute* "setup.py"
  91                   (("gzip\\.open\\(gzfile, 'w', 9\\)")
  92                    "gzip.GzipFile('', 'wb', 9, open(gzfile, 'wb'), 0.)")))))
  93     (build-system python-build-system)
  94     (arguments
  95      `(#:python ,python-2     ;incompatible with python 3
  96        #:tests? #f ;no tests
  97        #:phases
  98        (modify-phases %standard-phases
  99          (add-after 'install 'make-xrandr-available
 100            (lambda* (#:key inputs outputs #:allow-other-keys)
 101              (wrap-program (string-append (assoc-ref outputs "out")
 102                                           "/bin/arandr")
 103                `("PATH" ":" prefix (,(string-append (assoc-ref inputs "xrandr")
 104                                                     "/bin"))))
 105              #t)))))
 106     (inputs `(("pygtk" ,python2-pygtk)
 107               ("xrandr" ,xrandr)))
 108     (native-inputs `(("gettext"           ,gettext-minimal)
 109                      ("python-docutils"   ,python2-docutils)))
 110     (home-page "https://christian.amsuess.com/tools/arandr/")
 111     (synopsis "Another RandR graphical user interface")
 112     ;; TRANSLATORS: "X11 resize-and-rotate" should not be translated.
 113     (description "ARandR is designed to provide a simple visual front end for
 114 the X11 resize-and-rotate (RandR) extension.  Relative monitor positions are
 115 shown graphically and can be changed in a drag-and-drop way.  Configurations
 116 are saved as executable shell scripts which can be loaded without using this
 117 program.")
 118     (license license:gpl3+)))
 119
 120 (define-public xclip
 121   (package
 122     (name "xclip")
 123     (version "0.13")
 124     (source
 125       (origin
 126         (method url-fetch)
 127         (uri (string-append "https://github.com/astrand/xclip"
 128                             "/archive/" version ".tar.gz"))
 129         (sha256
 130           (base32
 131            "0n7pczk9vv30zf8qfln8ba3hnif9yfdxg0m84djac469wc28hnya"))))
 132     (build-system gnu-build-system)
 133     (arguments
 134      '(#:tests? #f     ; There is no test suite
 135        #:phases
 136        (modify-phases %standard-phases
 137          ;; Since version 0.13, bootstrapped releases are no longer available.
 138          (add-after 'unpack 'bootstrap
 139            (lambda _ (zero? (system* "autoreconf" "-v")))))))
 140     (native-inputs
 141      `(("autoconf" ,autoconf)
 142        ("automake" ,automake)))
 143     (inputs `(("libxmu" ,libxmu)
 144               ("libxt" ,libxt)))
 145     (home-page "https://github.com/astrand/xclip")
 146     (synopsis "Command line interface to X11 clipboard")
 147     (description "Xclip is a command line interface to the X11 clipboard.  It
 148 can also be used for copying files, as an alternative to sftp/scp, thus
 149 avoiding password prompts when X11 forwarding has already been setup.")
 150     (license license:gpl2+)))
 151
 152 (define-public libxkbcommon
 153   (package
 154     (name "libxkbcommon")
 155     (version "0.7.1")
 156     (source (origin
 157              (method url-fetch)
 158              (uri (string-append "https://xkbcommon.org/download/" name "-"
 159                                  version ".tar.xz"))
 160              (sha256
 161               (base32
 162                "12z6hih3n1r0asp2hzp9qsiwdfkfz46jwp06x8kprr0r5rfk0nds"))))
 163     (build-system gnu-build-system)
 164     (inputs
 165      `(("libx11" ,libx11)
 166        ("libxcb" ,libxcb)
 167        ("xkeyboard-config" ,xkeyboard-config)))
 168     (native-inputs
 169      `(("bison" ,bison)
 170        ("pkg-config" ,pkg-config)))
 171     (arguments
 172      `(#:configure-flags
 173        (list (string-append "--with-xkb-config-root="
 174                             (assoc-ref %build-inputs "xkeyboard-config")
 175                             "/share/X11/xkb")
 176              (string-append "--with-x-locale-root="
 177                             (assoc-ref %build-inputs "libx11")
 178                             "/share/X11/locale"))))
 179     (home-page "https://xkbcommon.org/")
 180     (synopsis "Library to handle keyboard descriptions")
 181     (description "Xkbcommon is a library to handle keyboard descriptions,
 182 including loading them from disk, parsing them and handling their
 183 state.  It is mainly meant for client toolkits, window systems, and other
 184 system applications; currently that includes Wayland, kmscon, GTK+, Qt,
 185 Clutter, and more.  Despite the name, it is not currently used by anything
 186 X11 (yet).")
 187     (license (license:x11-style "file://COPYING"
 188                                 "See 'COPYING' in the distribution."))))
 189
 190 (define-public xdotool
 191   (package
 192     (name "xdotool")
 193     (version "3.20150503.1")
 194     (source
 195       (origin
 196         (method url-fetch)
 197         (uri (string-append
 198               "https://github.com/jordansissel/xdotool/releases/download/v"
 199               version "/xdotool-" version ".tar.gz"))
 200         (sha256
 201           (base32
 202            "1lcngsw33fy9my21rdiz1gs474bfdqcfxjrnfggbx4aypn1nhcp8"))
 203         (patches (search-patches "xdotool-fix-makefile.patch"))))
 204     (build-system gnu-build-system)
 205     (arguments
 206      '(#:tests? #f ; Test suite requires a lot of black magic
 207        #:phases
 208        (modify-phases %standard-phases
 209          (replace 'configure
 210            (lambda* (#:key outputs #:allow-other-keys #:rest args)
 211              (setenv "PREFIX" (assoc-ref outputs "out"))
 212              (setenv "LDFLAGS"
 213                      (string-append "-Wl,-rpath="
 214                                     (assoc-ref %outputs "out") "/lib"))
 215              (setenv "CC" "gcc"))))))
 216     (native-inputs `(("perl" ,perl))) ; for pod2man
 217     (inputs `(("libx11" ,libx11)
 218               ("libxext" ,libxext)
 219               ("libxi" ,libxi)
 220               ("libxinerama" ,libxinerama)
 221               ("libxtst" ,libxtst)
 222               ("libxkbcommon" ,libxkbcommon)))
 223     (home-page "http://www.semicomplete.com/projects/xdotool")
 224     (synopsis "Fake keyboard/mouse input, window management, and more")
 225     (description "Xdotool lets you simulate keyboard input and mouse activity,
 226 move and resize windows, etc.  It does this using X11's XTEST extension and
 227 other Xlib functions.  Additionally, you can search for windows and move,
 228 resize, hide, and modify window properties like the title.  If your window
 229 manager supports it, you can use xdotool to switch desktops, move windows
 230 between desktops, and change the number of desktops.")
 231     (license license:bsd-3)))
 232
 233 (define-public xeyes
 234   (package
 235     (name "xeyes")
 236     (version "1.0.1")
 237     (source
 238       (origin
 239         (method url-fetch)
 240         (uri (string-append
 241                "http://xeyes.sourcearchive.com/downloads/1.0.1/xeyes_"
 242                version
 243                ".orig.tar.gz"))
 244         (sha256
 245           (base32
 246             "04c3md570j67g55h3bix1qbngcslnq91skli51k3g1avki88zkm9"))))
 247     (build-system gnu-build-system)
 248     (inputs
 249       `(("libxext" ,libxext)
 250         ("libxmu" ,libxmu)
 251         ("libxt" ,libxt)))
 252     (native-inputs
 253      `(("pkg-config" ,pkg-config)))
 254     (home-page "http://xeyes.sourcearchive.com/")
 255     (synopsis "Follow-the-mouse X demo")
 256     (description "Xeyes is a demo program for x.org.  It shows eyes
 257 following the mouse.")
 258     (license license:x11)))
 259
 260
 261 (define-public pixman
 262   (package
 263     (name "pixman")
 264     (version "0.34.0")
 265     (source (origin
 266               (method url-fetch)
 267               (uri (string-append
 268                     "http://cairographics.org/releases/pixman-"
 269                     version ".tar.gz"))
 270               (sha256
 271                (base32
 272                 "13m842m9ffac3m9r0b4lvwjhwzg3w4353djkjpf00s0wnm4v5di1"))
 273               (patches (search-patches "pixman-CVE-2016-5296.patch"))))
 274     (build-system gnu-build-system)
 275     (inputs
 276      `(("libpng" ,libpng)
 277        ("zlib" ,zlib)))
 278     (native-inputs
 279      `(("pkg-config" ,pkg-config)))
 280     (home-page "http://www.pixman.org/")
 281     (synopsis "Low-level pixel manipulation library")
 282     (description "Pixman is a low-level software library for pixel
 283 manipulation, providing features such as image compositing and trapezoid
 284 rasterisation.")
 285     (license license:x11)))
 286
 287 (define-public libdrm
 288   (package
 289     (name "libdrm")
 290     (version "2.4.81")
 291     (source
 292       (origin
 293         (method url-fetch)
 294         (uri (string-append
 295                "https://dri.freedesktop.org/libdrm/libdrm-"
 296                version
 297                ".tar.bz2"))
 298         (sha256
 299          (base32
 300           "1bhimr6za2ddisrvrv1qqd7c2a59s7jc954sjycq2w68b8cmrh4c"))
 301         (patches (search-patches "libdrm-symbol-check.patch"))))
 302     (build-system gnu-build-system)
 303     (inputs
 304       `(("libpciaccess" ,libpciaccess)
 305         ("libpthread-stubs" ,libpthread-stubs)))
 306     (native-inputs
 307        `(("pkg-config" ,pkg-config)))
 308     (home-page "http://dri.freedesktop.org/wiki/")
 309     (synopsis "Direct rendering userspace library")
 310     (description "The Direct Rendering Infrastructure, also known as the DRI,
 311 is a framework for allowing direct access to graphics hardware under the
 312 X Window System in a safe and efficient manner.  It includes changes to the
 313 X server, to several client libraries, and to the kernel (DRM, Direct
 314 Rendering Manager).  The most important use for the DRI is to create fast
 315 OpenGL implementations providing hardware acceleration for Mesa.
 316 Several 3D accelerated drivers have been written to the DRI specification,
 317 including drivers for chipsets produced by 3DFX, AMD (formerly ATI), Intel
 318 and Matrox.")
 319     (license license:x11)))
 320
 321
 322 (define-public mtdev
 323   (package
 324     (name "mtdev")
 325     (version "1.1.5")
 326     (source
 327       (origin
 328         (method url-fetch)
 329         (uri (string-append
 330                "http://bitmath.org/code/mtdev/mtdev-"
 331                version ".tar.bz2"))
 332         (sha256
 333          (base32
 334           "0zxs7shzgbalkvlaiibi25bd902rbmkv9n1lww6q8j3ri9qdaxv6"))))
 335     (build-system gnu-build-system)
 336     (home-page "http://bitmath.org/code/mtdev/")
 337     (synopsis "Multitouch protocol translation library")
 338     (description "Mtdev is a stand-alone library which transforms all
 339 variants of kernel MT events to the slotted type B protocol.  The events
 340 put into mtdev may be from any MT device, specifically type A without
 341 contact tracking, type A with contact tracking, or type B with contact
 342 tracking.")
 343     (license license:x11)))
 344
 345 (define-public startup-notification
 346   (package
 347     (name "startup-notification")
 348     (version "0.12")
 349     (source
 350      (origin
 351        (method url-fetch)
 352        (uri (string-append "https://www.freedesktop.org/software/" name
 353                            "/releases/" name "-" version ".tar.gz"))
 354        (sha256
 355         (base32
 356          "0jmyryrpqb35y9hd5sgxqy2z0r1snw7d3ljw0jak0n0cjdz1yf9w"))))
 357     (build-system gnu-build-system)
 358     (native-inputs `(("pkg-config" ,pkg-config)))
 359     (inputs
 360      `(("libx11" ,libx11)
 361        ("xcb-util" ,xcb-util)))
 362     (home-page "http://www.freedesktop.org/wiki/Software/startup-notification/")
 363     (synopsis "Application startup notification and feedback library")
 364     (description
 365      "Startup-notification contains a reference implementation of the startup
 366 notification protocol.  The reference implementation is mostly under an X Window
 367 System style license, and has no special dependencies.")
 368     ;; Most of the code is provided under x11 license.
 369     (license license:lgpl2.0+)))
 370
 371 (define-public wmctrl
 372   (package
 373     (name "wmctrl")
 374     (version "1.07")
 375     (source (origin
 376               (method url-fetch)
 377               (uri (string-append
 378                     "https://sites.google.com/site/tstyblo/wmctrl/wmctrl-"
 379                     version ".tar.gz"))
 380               (sha256
 381                (base32
 382                 "1afclc57b9017a73mfs9w7lbdvdipmf9q0xdk116f61gnvyix2np"))
 383               (patches (search-patches "wmctrl-64-fix.patch"))))
 384     (build-system gnu-build-system)
 385     (arguments
 386      '(#:configure-flags
 387        (list (string-append "--mandir="
 388                             (assoc-ref %outputs "out")
 389                             "/share/man"))))
 390     (native-inputs
 391      `(("pkg-config" ,pkg-config)))
 392     (inputs
 393      `(("libx11" ,libx11)
 394        ("libxmu" ,libxmu)
 395        ("glib" ,glib)))
 396     (home-page "http://tomas.styblo.name/wmctrl/")
 397     (synopsis "Command-line tool to control X window managers")
 398     (description
 399      "Wmctrl allows to interact with an X window manager that is compatible
 400 with the EWMH/NetWM specification.  It can query the window manager for
 401 information, and request for certain window management actions (resize and
 402 move windows, switch between desktops, etc.).")
 403     (license license:gpl2+)))
 404
 405 (define-public scrot
 406   (package
 407     (name "scrot")
 408     (version "0.8")
 409     (source (origin
 410               (method url-fetch)
 411               (uri (list (string-append
 412                            "http://linuxbrit.co.uk/downloads/scrot-"
 413                            version ".tar.gz")
 414                          (string-append
 415                            "https://fossies.org/linux/privat/old/scrot-"
 416                            version ".tar.gz")))
 417               (sha256
 418                (base32
 419                 "1wll744rhb49lvr2zs6m93rdmiq59zm344jzqvijrdn24ksiqgb1"))))
 420     (build-system gnu-build-system)
 421     (arguments
 422      ;; By default, man and doc are put in PREFIX/{man,doc} instead of
 423      ;; PREFIX/share/{man,doc}.
 424      '(#:configure-flags
 425        (list (string-append "--mandir="
 426                             (assoc-ref %outputs "out")
 427                             "/share/man"))
 428        #:phases
 429        (modify-phases %standard-phases
 430          (replace 'install
 431            (lambda* (#:key inputs outputs #:allow-other-keys)
 432              (let* ((out (assoc-ref outputs "out"))
 433                     (doc (string-append out "/share/doc/scrot")))
 434                (mkdir-p doc)
 435                (zero?
 436                 (system* "make" "install"
 437                          (string-append "docsdir=" doc)))))))))
 438     (inputs
 439      `(("libx11" ,libx11)
 440        ("giblib" ,giblib)))
 441     (home-page "http://linuxbrit.co.uk/software/")
 442     (synopsis "Command-line screen capture utility for X Window System")
 443     (description
 444      "Scrot allows to save a screenshot of a full screen, a window or a part
 445 of the screen selected by mouse.")
 446     ;; This license removes a clause about X Consortium from the original
 447     ;; X11 license.
 448     (license (license:x11-style "file://COPYING"
 449                                 "See 'COPYING' in the distribution."))))
 450
 451 (define-public slop
 452   (package
 453     (name "slop")
 454     (version "6.3.45")
 455     (source (origin
 456               (method url-fetch)
 457               (uri (string-append
 458                     "https://github.com/naelstrof/slop/archive/v"
 459                     version ".tar.gz"))
 460               (file-name (string-append name "-" version ".tar.gz"))
 461               (sha256
 462                (base32
 463                 "0lzyjcg6yff1vzlsda45i57khajp56yrmcjfa5faw3i60fnqqiy7"))))
 464     (build-system cmake-build-system)
 465     (arguments
 466      '(#:tests? #f)) ; no "check" target
 467     (inputs
 468      `(("glm" ,glm)
 469        ("icu4c" ,icu4c)
 470        ("libxext" ,libxext)
 471        ("libxrender" ,libxrender)
 472        ("mesa" ,mesa)))
 473     (home-page "https://github.com/naelstrof/slop")
 474     (synopsis "Select a region and print its bounds to stdout")
 475     (description
 476      "slop (Select Operation) is a tool that queries for a selection from a
 477 user and prints the region to stdout.  It grabs the mouse and turns it into a
 478 crosshair, lets the user click and drag to make a selection (or click on a
 479 window) while drawing a pretty box around it, then finally prints the
 480 selection's dimensions to stdout.")
 481     (license license:gpl3+)))
 482
 483 (define-public maim
 484   (package
 485     (name "maim")
 486     (version "5.4.63")
 487     (source (origin
 488               (method url-fetch)
 489               (uri (string-append
 490                     "https://github.com/naelstrof/maim/archive/v"
 491                     version ".tar.gz"))
 492               (file-name (string-append name "-" version ".tar.gz"))
 493               (sha256
 494                (base32
 495                 "0ncly3mmg9pihda3jfwmvfa4sd3xanrm8hpvfq7lr2rl8rqknx80"))))
 496     (build-system cmake-build-system)
 497     (arguments
 498      '(#:tests? #f))            ; no "check" target
 499     (inputs
 500      `(("glm" ,glm)
 501        ("libjpeg" ,libjpeg-turbo)
 502        ("libpng" ,libpng)
 503        ("libxcomposite" ,libxcomposite)
 504        ("libxfixes" ,libxfixes)
 505        ("libxrandr" ,libxrandr)
 506        ("mesa" ,mesa)
 507        ("slop" ,slop)
 508        ("zlib" ,zlib)))
 509     (home-page "https://github.com/naelstrof/maim")
 510     (synopsis "Screenshot utility for X Window System")
 511     (description
 512      "maim (Make Image) is a tool that takes screenshots of your desktop and
 513 saves it in any format.  Along with a full screen, it allows you to capture a
 514 predefined region or a particular window.  Also, it makes it possible to
 515 include cursor in the resulting image.")
 516     (license license:gpl3+)))
 517
 518 (define-public unclutter
 519   (package
 520     (name "unclutter")
 521     (version "8")
 522     (source (origin
 523               (method url-fetch)
 524               (uri (string-append
 525                     "http://ftp.x.org/contrib/utilities/unclutter-"
 526                     version ".tar.Z"))
 527               (sha256
 528                (base32
 529                 "0ahrr5z6wxqqfyihm112hnq0859zlxisrb3y5232zav58j6sfmdq"))))
 530     (build-system gnu-build-system)
 531     (arguments
 532      '(#:tests? #f                      ; no check target
 533        #:phases
 534        (modify-phases %standard-phases
 535          (delete 'configure)
 536          (replace 'install
 537            (lambda* (#:key inputs outputs #:allow-other-keys)
 538              (let* ((out  (assoc-ref outputs "out"))
 539                     (bin  (string-append out "/bin"))
 540                     (man1 (string-append out "/share/man/man1")))
 541                (mkdir-p bin)
 542                (mkdir-p man1)
 543                (zero?
 544                  (system* "make" "install" "install.man"
 545                           (string-append "BINDIR=" bin)
 546                           (string-append "MANDIR=" man1)))))))))
 547     (inputs `(("libx11" ,libx11)))
 548     (home-page "http://ftp.x.org/contrib/utilities/")
 549     (synopsis "Hide idle mouse cursor")
 550     (description
 551      "Unclutter is a program which runs permanently in the background of an
 552 X11 session.  It checks on the X11 pointer (cursor) position every few
 553 seconds, and when it finds it has not moved (and no buttons are pressed
 554 on the mouse, and the cursor is not in the root window) it creates a
 555 small sub-window as a child of the window the cursor is in.  The new
 556 window installs a cursor of size 1x1 but a mask of all 0, i.e. an
 557 invisible cursor.  This allows you to see all the text in an xterm or
 558 xedit, for example.  The human factors crowd would agree it should make
 559 things less distracting.")
 560     (license license:public-domain)))
 561
 562 (define-public xlockmore
 563   (package
 564     (name "xlockmore")
 565     (version "5.47")
 566     (source (origin
 567              (method url-fetch)
 568              (uri (list (string-append
 569                           "http://www.tux.org/~bagleyd/xlock/xlockmore-"
 570                           version ".tar.xz")
 571                         (string-append
 572                           "http://www.tux.org/~bagleyd/xlock/xlockmore-old"
 573                           "/xlockmore-" version
 574                           "/xlockmore-" version ".tar.xz")))
 575              (sha256
 576               (base32
 577                "138d79b8zc2hambbr9fnxp3fhihlcljgqns04zf0kv2f53pavqwl"))))
 578     (build-system gnu-build-system)
 579     (arguments
 580      '(#:configure-flags (list (string-append "--enable-appdefaultdir="
 581                                               (assoc-ref %outputs "out")
 582                                               "/lib/X11/app-defaults"))
 583        #:tests? #f))                            ;no such thing as a test suite
 584     (inputs
 585      `(("libX11" ,libx11)
 586        ("libXext" ,libxext)
 587        ("libXt" ,libxt)
 588        ("linux-pam" ,linux-pam)))
 589     (home-page "http://www.tux.org/~bagleyd/xlockmore.html")
 590     (synopsis "Screen locker for the X Window System")
 591     (description
 592      "XLockMore is a classic screen locker and screen saver for the
 593 X Window System.")
 594     (license (license:non-copyleft #f "See xlock.c.")
 595              ))) ; + GPLv2 in modes/glx/biof.c.
 596
 597 (define-public xosd
 598   (package
 599     (name "xosd")
 600     (version "2.2.14")
 601     (source (origin
 602               (method url-fetch)
 603               (uri (string-append
 604                     "mirror://sourceforge/libxosd/libxosd/xosd-" version "/"
 605                     name "-" version ".tar.gz"))
 606               (sha256
 607                (base32
 608                 "025m7ha89q29swkc7s38knnbn8ysl24g2h5s7imfxflm91psj7sg"))))
 609     (build-system gnu-build-system)
 610     (arguments
 611      '(#:configure-flags
 612        (list (string-append "--mandir=" %output "/share/man"))))
 613     (inputs
 614      `(("libx11" ,libx11)
 615        ("libxt" ,libxt)
 616        ("libxext" ,libxext)
 617        ("libxinerama" ,libxinerama)))
 618     (home-page "https://sourceforge.net/projects/libxosd/")
 619     (synopsis "X On Screen Display")
 620     (description
 621      "XOSD provides a C library and a simple utility (osd_cat) for displaying
 622 transparent text on your screen.")
 623     (license license:gpl2+)))
 624
 625 (define-public xbindkeys
 626   (package
 627     (name "xbindkeys")
 628     (version "1.8.6")
 629     (source (origin
 630               (method url-fetch)
 631               ;; Download from the savannah mirror list fails
 632               (uri (string-append
 633                     "http://www.nongnu.org/xbindkeys/xbindkeys-"
 634                     version
 635                     ".tar.gz"))
 636               (sha256
 637                (base32
 638                 "060df6d8y727jp1inp7blp44cs8a7jig7vcm8ndsn6gw36z1h3bc"))))
 639     (build-system gnu-build-system)
 640     (inputs
 641      `(("libx11" ,libx11)
 642        ("guile" ,guile-2.0)))
 643     (home-page "http://www.nongnu.org/xbindkeys/")
 644     (synopsis "Associate a combination of keys with a shell command")
 645     (description
 646      "XBindKeys is a program that allows you to launch shell commands with
 647 your keyboard or your mouse under the X Window System.  It links commands to
 648 keys or mouse buttons, using a configuration file.  It's independent of the
 649 window manager and can capture all keyboard keys (ex: Power, Wake...).  It
 650 optionally supports a Guile-based configuration file layout, which enables you
 651 to access all XBindKeys internals, so you can have key combinations, double
 652 clicks or timed double clicks take actions.  Also all functions that work in
 653 Guile will work for XBindKeys.")
 654     (license license:gpl2+)))
 655
 656 (define-public sxhkd
 657   (package
 658     (name "sxhkd")
 659     (version "0.5.6")
 660     (source
 661      (origin
 662        (file-name (string-append name "-" version ".tar.gz"))
 663        (method url-fetch)
 664        (uri (string-append
 665              "https://github.com/baskerville/sxhkd/archive/"
 666              version ".tar.gz"))
 667        (sha256
 668         (base32
 669          "15grmzpxz5fqlbfg2slj7gb7r6nzkvjmflmbkqx7mlby9pm6wdkj"))))
 670     (build-system gnu-build-system)
 671     (inputs
 672      `(("asciidoc" ,asciidoc)
 673        ("libxcb" ,libxcb)
 674        ("xcb-util" ,xcb-util)
 675        ("xcb-util-keysyms" ,xcb-util-keysyms)
 676        ("xcb-util-wm" ,xcb-util-wm)))
 677     (arguments
 678      '(#:phases (alist-delete 'configure %standard-phases)
 679        #:tests? #f  ; no check target
 680        #:make-flags (list "CC=gcc"
 681                           (string-append "PREFIX=" %output))))
 682     (home-page "https://github.com/baskerville/sxhkd")
 683     (synopsis "Simple X hotkey daemon")
 684     (description "sxhkd is a simple X hotkey daemon with a powerful and
 685 compact configuration syntax.")
 686     (license license:bsd-2)))
 687
 688 (define-public rxvt-unicode
 689   (package
 690     (name "rxvt-unicode")
 691     (version "9.22")
 692     (source (origin
 693               (method url-fetch)
 694               (uri (string-append "http://dist.schmorp.de/rxvt-unicode/Attic/"
 695                                   name "-" version ".tar.bz2"))
 696               (patches (search-patches "rxvt-unicode-escape-sequences.patch"))
 697               (sha256
 698                (base32
 699                 "1pddjn5ynblwfrdmskylrsxb9vfnk3w4jdnq2l8xn2pspkljhip9"))))
 700     (build-system gnu-build-system)
 701     (arguments
 702      ;; This sets the destination when installing the necessary terminal
 703      ;; capability data, which are not provided by 'ncurses'.  See
 704      ;; https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html
 705      `(#:make-flags (list (string-append "TERMINFO="
 706                                          (assoc-ref %outputs "out")
 707                                          "/share/terminfo"))
 708        #:phases
 709        (modify-phases %standard-phases
 710          (add-after 'install 'install-desktop-urxvt
 711            (lambda* (#:key outputs #:allow-other-keys)
 712              (let* ((output (assoc-ref outputs "out"))
 713                     (desktop (string-append output "/share/applications")))
 714                (mkdir-p desktop)
 715                (with-output-to-file
 716                    (string-append desktop "/urxvt.desktop")
 717                  (lambda _
 718                    (format #t
 719                            "[Desktop Entry]~@
 720                            Name=rxvt-unicode~@
 721                            Comment=~@
 722                            Exec=~a/bin/urxvt~@
 723                            TryExec=~@*~a/bin/urxvt~@
 724                            Icon=~@
 725                            Type=Application~%"
 726                            output)))
 727                #t)))
 728          (add-after 'install 'install-desktop-urxvtc
 729            (lambda* (#:key outputs #:allow-other-keys)
 730              (let* ((output (assoc-ref outputs "out"))
 731                     (desktop (string-append output "/share/applications")))
 732                (mkdir-p desktop)
 733                (with-output-to-file
 734                    (string-append desktop "/urxvtc.desktop")
 735                  (lambda _
 736                    (format #t
 737                            "[Desktop Entry]~@
 738                            Name=rxvt-unicode (client)~@
 739                            Comment=Rxvt clone with XFT and unicode support~@
 740                            Exec=~a/bin/urxvtc~@
 741                            TryExec=~@*~a/bin/urxvtc~@
 742                            Icon=~@
 743                            Type=Application~%"
 744                            output)))
 745                #t))))))
 746     (inputs
 747      `(("libXft" ,libxft)
 748        ("libX11" ,libx11)))
 749     (native-inputs
 750      `(("ncurses" ,ncurses)         ;trigger the installation of terminfo data
 751        ("perl" ,perl)
 752        ("pkg-config" ,pkg-config)))
 753     ;; FIXME: This should only be located in 'ncurses'.  Nonetheless it is
 754     ;; provided for usability reasons.  See <https://bugs.gnu.org/22138>.
 755     (native-search-paths
 756      (list (search-path-specification
 757             (variable "TERMINFO_DIRS")
 758             (files '("share/terminfo")))))
 759     (home-page "http://software.schmorp.de/pkg/rxvt-unicode.html")
 760     (synopsis "Rxvt clone with XFT and unicode support")
 761     (description "Rxvt-unicode (urxvt) is a colour vt102 terminal emulator
 762 intended as an xterm replacement for users who do not require features such as
 763 Tektronix 4014 emulation and toolkit-style configurability.  It supports
 764 unicode, XFT and may be extended with Perl plugins.  It also comes with a
 765 client/daemon pair that lets you open any number of terminal windows from
 766 within a single process.")
 767     (license license:gpl3+)))
 768
 769 (define-public xcape
 770   (package
 771     (name "xcape")
 772     (version "1.2")
 773     (source
 774       (origin
 775         (method url-fetch)
 776         (uri (string-append "https://github.com/alols/" name
 777                             "/archive/v" version ".tar.gz"))
 778         (file-name (string-append name "-" version ".tar.gz"))
 779         (sha256
 780           (base32
 781             "0898zc3vwxia00h9kfknpf7jygxgwggrx8v5mxc31w4lzn2dhzm2"))))
 782     (build-system gnu-build-system)
 783     (arguments
 784      `(#:tests? #f ; no check target
 785        #:phases (alist-delete 'configure %standard-phases) ; no configure script
 786        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
 787                           "MANDIR=/share/man/man1"
 788                           "CC=gcc")))
 789     (inputs
 790      `(("libxtst" ,libxtst)
 791        ("libx11" ,libx11)))
 792     (native-inputs
 793      `(("pkg-config" ,pkg-config)))
 794     (home-page "https://github.com/alols/xcape")
 795     (synopsis "Use a modifier key in X.org as another key")
 796     (description
 797      "This utility for X.org allows to use modifier key as another key when
 798 pressed and released on its own.  The default behaviour is to generate the
 799 Escape key when Left Control is pressed and released on its own.")
 800     (license license:gpl3+)))
 801
 802 (define-public libwacom
 803   (package
 804     (name "libwacom")
 805     (version "0.25")
 806     (source (origin
 807               (method url-fetch)
 808               (uri (string-append "mirror://sourceforge/linuxwacom/libwacom/"
 809                                   name "-" version ".tar.bz2"))
 810               (sha256
 811                (base32
 812                 "1k20w2fkql3yr0dpdg51jjwzv7d4kp53ajmpyhcjxa08s0n8dl19"))))
 813     (build-system glib-or-gtk-build-system)
 814     (native-inputs
 815      `(("pkg-config" ,pkg-config)))
 816     (inputs
 817      `(("gtk+" ,gtk+)
 818        ("libgudev" ,libgudev)
 819        ("eudev" ,eudev)
 820        ("libxml2" ,libxml2)))
 821     (propagated-inputs
 822      ;; libwacom includes header files that include GLib, and libinput uses
 823      ;; those header files.
 824      `(("glib" ,glib)))
 825     (home-page "http://linuxwacom.sourceforge.net/")
 826     (synopsis "Helper library for Wacom tablet settings")
 827     (description
 828      "Libwacom is a library to help implement Wacom tablet settings.  It is
 829 intended to be used by client-programs that need model identification.  It is
 830 already being used by the gnome-settings-daemon and the GNOME Control Center
 831 Wacom tablet applet.")
 832     (license license:x11)))
 833
 834 (define-public xf86-input-wacom
 835   (package
 836     (name "xf86-input-wacom")
 837     (version "0.34.2")
 838     (source (origin
 839               (method url-fetch)
 840               (uri (string-append
 841                     "mirror://sourceforge/linuxwacom/xf86-input-wacom/"
 842                     name "-" version ".tar.bz2"))
 843               (sha256
 844                (base32
 845                 "073bf12ka1mcqvr1sviixb51bsfx37jalrj9xw53f10i2kdvkl9a"))))
 846     (arguments
 847      `(#:configure-flags
 848        (list (string-append "--with-sdkdir="
 849                             (assoc-ref %outputs "out")
 850                             "/include/xorg")
 851              (string-append "--with-xorg-conf-dir="
 852                             (assoc-ref %outputs "out")
 853                             "/share/X11/xorg.conf.d"))))
 854     (build-system gnu-build-system)
 855     (native-inputs
 856      `(("pkg-config" ,pkg-config)))
 857     (inputs
 858      `(("xorg-server" ,xorg-server)
 859        ("libxrandr" ,libxrandr)
 860        ("libxinerama" ,libxinerama)
 861        ("libxi" ,libxi)
 862        ("eudev" ,eudev)))
 863     (home-page "http://linuxwacom.sourceforge.net/")
 864     (synopsis "Wacom input driver for X")
 865     (description
 866      "The xf86-input-wacom driver is the wacom-specific X11 input driver for
 867 the X.Org X Server version 1.7 and later (X11R7.5 or later).")
 868     (license license:x11)))
 869
 870 (define-public redshift
 871   (package
 872     (name "redshift")
 873     (version "1.11")
 874     (source
 875      (origin
 876        (method url-fetch)
 877        (uri
 878         (string-append "https://github.com/jonls/redshift/"
 879                        "releases/download/v" version
 880                        "/redshift-" version ".tar.xz"))
 881        (sha256
 882         (base32
 883          "0ngkwj7rg8nfk806w0sg443w6wjr91xdc0zisqfm5h2i77wm1qqh"))))
 884     (build-system gnu-build-system)
 885     (native-inputs
 886      `(("pkg-config" ,pkg-config)
 887        ("intltool" ,intltool)))
 888     (inputs
 889      `(("libdrm" ,libdrm)
 890        ("libx11" ,libx11)
 891        ("libxcb" ,libxcb)
 892        ("libxxf86vm" ,libxxf86vm)
 893        ("glib" ,glib)))                           ;for Geoclue2 support
 894     (home-page "https://github.com/jonls/redshift")
 895     (synopsis "Adjust the color temperature of your screen")
 896     (description
 897      "Redshift adjusts the color temperature according to the position of the
 898 sun.  A different color temperature is set during night and daytime.  During
 899 twilight and early morning, the color temperature transitions smoothly from
 900 night to daytime temperature to allow your eyes to slowly adapt.  At night the
 901 color temperature should be set to match the lamps in your room.")
 902     (license license:gpl3+)))
 903
 904 (define-public xscreensaver
 905   (package
 906     (name "xscreensaver")
 907     (version "5.37")
 908     (source
 909      (origin
 910        (method url-fetch)
 911        (uri
 912         (string-append "https://www.jwz.org/xscreensaver/xscreensaver-"
 913                        version ".tar.gz"))
 914        (sha256
 915         (base32
 916          "1ng5ddzb4k2h1w54pvk9hzxvnxxmc54bc4a2ibk974nzjjjaxivs"))))
 917     (build-system gnu-build-system)
 918     (arguments
 919      `(#:tests? #f  ; no check target
 920        #:phases
 921        (modify-phases %standard-phases
 922          (add-before 'configure 'adjust-gtk-resource-paths
 923            (lambda _
 924              (substitute* '("driver/Makefile.in" "po/Makefile.in.in")
 925                (("@GTK_DATADIR@") "@datadir@")
 926                (("@PO_DATADIR@") "@datadir@")))))
 927        #:configure-flags '("--with-pam" "--with-proc-interrupts"
 928                            "--without-readdisplay")
 929        #:make-flags (list (string-append "AD_DIR="
 930                                          (assoc-ref %outputs "out")
 931                                          "/usr/lib/X11/app-defaults"))))
 932     (native-inputs
 933      `(("pkg-config" ,pkg-config)
 934        ("intltool" ,intltool)))
 935     (inputs
 936      `(("libx11" ,libx11)
 937        ("libxext" ,libxext)
 938        ("libxi" ,libxi)
 939        ("libxt" ,libxt)
 940        ("libxft" ,libxft)
 941        ("libxmu" ,libxmu)
 942        ("libxpm" ,libxpm)
 943        ("libglade" ,libglade)
 944        ("libxml2" ,libxml2)
 945        ("libsm" ,libsm)
 946        ("libjpeg" ,libjpeg)
 947        ("linux-pam" ,linux-pam)
 948        ("pango" ,pango)
 949        ("gtk+" ,gtk+)
 950        ("perl" ,perl)
 951        ("cairo" ,cairo)
 952        ("bc" ,bc)
 953        ("libxrandr" ,libxrandr)
 954        ("glu" ,glu)
 955        ("glib" ,glib)))
 956     (home-page "https://www.jwz.org/xscreensaver/")
 957     (synopsis "Classic screen saver suite supporting screen locking")
 958     (description
 959      "xscreensaver is a popular screen saver collection with many entertaining
 960 demos.  It also acts as a nice screen locker.")
 961     ;; xscreensaver doesn't have a single copyright file and instead relies on
 962     ;; source comment headers, though most files have the same lax
 963     ;; permissions.  To reduce complexity, we're pointing at Debian's
 964     ;; breakdown of the copyright information.
 965     (license (license:non-copyleft
 966               (string-append
 967                "http://metadata.ftp-master.debian.org/changelogs/"
 968                "/main/x/xscreensaver/xscreensaver_5.36-1_copyright")))))
 969
 970 (define-public xsel
 971   (package
 972     (name "xsel")
 973     (version "1.2.0")
 974     (source (origin
 975               (method url-fetch)
 976               (uri (string-append "http://www.vergenet.net/~conrad/software"
 977                                   "/xsel/download/xsel-" version ".tar.gz"))
 978               (sha256
 979                (base32
 980                 "070lbcpw77j143jrbkh0y1v10ppn1jwmjf92800w7x42vh4cw9xr"))))
 981     (build-system gnu-build-system)
 982     (inputs
 983      `(("libxt" ,libxt)))
 984     (home-page "http://www.vergenet.net/~conrad/software/xsel/")
 985     (synopsis "Manipulate X selection")
 986     (description
 987      "XSel is a command-line program for getting and setting the contents of
 988 the X selection.  Normally this is only accessible by manually highlighting
 989 information and pasting it with the middle mouse button.
 990
 991 XSel reads from standard input and writes to standard output by default,
 992 but can also follow a growing file, display contents, delete entries and more.")
 993     (license (license:x11-style "file://COPYING"
 994                                 "See COPYING in the distribution."))))
 995
 996 (define-public xdpyprobe
 997   (package
 998     (name "xdpyprobe")
 999     (version "0.1")
1000     (source (origin
1001               (method url-fetch)
1002               (uri (string-append "https://github.com/alezost/" name
1003                                   "/releases/download/v" version
1004                                   "/" name "-" version ".tar.gz"))
1005               (sha256
1006                (base32
1007                 "1h09wd2qcg08rj5hcakvdh9q01hkrj8vxly94ax3ch2x06lm0zq8"))))
1008     (build-system gnu-build-system)
1009     (inputs
1010      `(("libx11" ,libx11)))
1011     (home-page "https://github.com/alezost/xdpyprobe")
1012     (synopsis "Probe X server for connectivity")
1013     (description
1014      "Xdpyprobe is a tiny C program whose only purpose is to probe a
1015 connectivity of the X server running on a particular @code{DISPLAY}.")
1016     (license license:gpl3+)))
1017
1018 (define-public rofi
1019   (package
1020     (name "rofi")
1021     (version "1.3.1")
1022     (source (origin
1023               (method url-fetch)
1024               (uri (string-append "https://github.com/DaveDavenport/rofi/"
1025                                   "releases/download/"
1026                                   version "/rofi-" version ".tar.xz"))
1027               (sha256
1028                (base32
1029                 "1s47biv6d68nblpz6d3aklsar1xxxcilzr4y77v3hz2w1wbz2b5m"))))
1030     (build-system gnu-build-system)
1031     (inputs
1032      `(("pango" ,pango)
1033        ("cairo" ,cairo)
1034        ("glib" ,glib)
1035        ("startup-notification" ,startup-notification)
1036        ("libxkbcommon" ,libxkbcommon)
1037        ("libxcb" ,libxcb)
1038        ("xcb-util" ,xcb-util)
1039        ("xcb-util-xrm" ,xcb-util-xrm)
1040        ("xcb-util-wm" ,xcb-util-wm)))
1041     (native-inputs
1042      `(("pkg-config" ,pkg-config)))
1043     (arguments
1044      `(#:parallel-tests? #f ; May fail in some circumstances.
1045        #:phases
1046        (modify-phases %standard-phases
1047          (add-before 'configure 'adjust-tests
1048            (lambda _
1049              (substitute* '("test/helper-expand.c")
1050                (("~root") "/root")
1051                (("~") "")
1052                (("g_get_home_dir \\(\\)") "\"/\"")))))))
1053     (home-page "https://davedavenport.github.io/rofi/")
1054     (synopsis "Application launcher")
1055     (description "Rofi is a minimalist application launcher.  It memorizes which
1056 applications you regularly use and also allows you to search for an application
1057 by name.")
1058     (license license:expat)))
1059
1060 (define-public tint2
1061   (package
1062     (name "tint2")
1063     (version "0.12.11")
1064     (source (origin
1065               (method url-fetch)
1066               (uri (string-append "https://gitlab.com/o9000/" name
1067                                   "/repository/archive.tar.gz?ref=" version))
1068               (file-name (string-append name "-" version ".tar.gz"))
1069               (sha256
1070                (base32
1071                 "0dv7zaj2ahnfclnwnwcz9arrvzxn65yy29z7fqdgifdh3jk1kl2h"))))
1072     (build-system cmake-build-system)
1073     (arguments
1074      '(#:tests? #f                      ;no test target
1075        #:phases
1076        (modify-phases %standard-phases
1077          (add-after 'unpack 'fix-installation-prefix
1078            (lambda _
1079              (substitute* "CMakeLists.txt"
1080                (("/etc") "${CMAKE_INSTALL_PREFIX}/etc")))))))
1081     (inputs
1082      `(("gtk+" ,gtk+-2)
1083        ("imlib2" ,imlib2)
1084        ("librsvg" ,librsvg)
1085        ("libxcomposite" ,libxcomposite)
1086        ("libxdamage" ,libxdamage)
1087        ("libxft" ,libxft)
1088        ("libxinerama" ,libxinerama)
1089        ("libxrandr" ,libxrandr)
1090        ("startup-notification" ,startup-notification)))
1091     (native-inputs
1092      `(("gettext" ,gettext-minimal)
1093        ("pkg-config" ,pkg-config)))
1094     (home-page "https://gitlab.com/o9000/tint2")
1095     (synopsis "Lightweight task bar")
1096     (description
1097      "Tint2 is a simple task bar made for modern X window managers.  It was
1098 specifically made for Openbox but it should also work with other window
1099 managers (GNOME, KDE, XFCE etc.).
1100
1101 The taskbar includes transparency and color settings for the font, icons,
1102 border, and background.  It also supports multihead setups, customized mouse
1103 actions, a built-in clock, a battery monitor and a system tray.")
1104     (license license:gpl2)))
1105
1106 (define-public dzen
1107   (let ((commit "488ab66019f475e35e067646621827c18a879ba1")
1108         (revision "1"))
1109     (package
1110      (name "dzen")
1111      (version (string-append "0.9.5-" ; Taken from `config.mk`.
1112                              revision "." (string-take commit 7)))
1113      (source (origin
1114               (method git-fetch)
1115               (uri (git-reference
1116                     (url "https://github.com/robm/dzen.git")
1117                     (commit commit)))
1118               (file-name (string-append name "-" version))
1119               (sha256
1120                (base32
1121                 "0y47d6ii87vf4a517gi4fh0yl06f8b085sra77immnsasbq9pxnw"))))
1122      (build-system gnu-build-system)
1123      (arguments
1124       `(#:tests? #f ; No test suite.
1125         #:make-flags ; Replacement for `config.mk`.
1126         (list
1127          (string-append "VERSION = " ,version)
1128          (string-append "PREFIX = " %output)
1129          "MANPREFIX = ${PREFIX}/share/man"
1130          "INCS = -I."
1131          "LIBS = -lc -lX11 -lXinerama -lXpm $(shell pkg-config --libs xft)"
1132          "CFLAGS = -Wall -Os ${INCS} -DVERSION=\\\"${VERSION}\\\"\
1133          -DDZEN_XINERAMA -DDZEN_XPM -DDZEN_XFT $(shell pkg-config --cflags xft)"
1134          "LDFLAGS = ${LIBS}"
1135          "CC = gcc"
1136          "LD = ${CC}")
1137         #:phases
1138         (modify-phases %standard-phases
1139           (delete 'configure) ; No configuration script.
1140           ;; Use own make-flags instead of `config.mk`.
1141           (add-before 'build 'dont-include-config-mk
1142             (lambda _
1143               (substitute* "Makefile" (("include config.mk") ""))
1144               #t)))))
1145      (inputs
1146       `(("libx11"      ,libx11)
1147         ("libxft"      ,libxft)
1148         ("libxpm"      ,libxpm)
1149         ("libxinerama" ,libxinerama)))
1150      (native-inputs `(("pkg-config" ,pkg-config)))
1151      (synopsis "General purpose messaging, notification and menuing program for X11")
1152      (description "Dzen is a general purpose messaging, notification and menuing
1153 program for X11.  It was designed to be fast, tiny and scriptable in any language.")
1154      (home-page "https://github.com/robm/dzen")
1155      (license license:expat))))
1156
1157 (define-public xcb-util-xrm
1158   (package
1159     (name "xcb-util-xrm")
1160     (version "1.2")
1161     (source (origin
1162               (method url-fetch)
1163               (uri (string-append
1164                     "https://github.com/Airblader/xcb-util-xrm/releases"
1165                     "/download/v" version "/xcb-util-xrm-" version ".tar.bz2"))
1166               (sha256
1167                (base32
1168                 "0vbqhag51i0njc8d5fc8c6aa12496cwrc3s6s7sa5kfc17cwhppp"))
1169               (modules '((guix build utils)))
1170               (snippet
1171                ;; Drop bundled m4.
1172                '(delete-file-recursively "m4"))))
1173     (build-system gnu-build-system)
1174     (native-inputs
1175      `(("pkg-config" ,pkg-config)
1176        ("m4" ,m4)
1177        ("libx11" ,libx11))) ; for tests
1178     (inputs
1179      `(("libxcb" ,libxcb)
1180        ("xcb-util" ,xcb-util)))
1181     (home-page "https://github.com/Airblader/xcb-util-xrm")
1182     (synopsis "XCB utility functions for the X resource manager")
1183     (description
1184      "The XCB util module provides a number of libraries which sit on
1185 top of libxcb, the core X protocol library, and some of the extension
1186 libraries.  These experimental libraries provide convenience functions
1187 and interfaces which make the raw X protocol more usable.  Some of the
1188 libraries also provide client-side code which is not strictly part of
1189 the X protocol but which has traditionally been provided by Xlib.
1190
1191 XCB util-xrm module provides the following libraries:
1192
1193 - xrm: utility functions for the X resource manager.")
1194     (license license:x11)))
1195
1196 (define-public xcalib
1197   (package
1198     (name "xcalib")
1199     (version "0.8")
1200     (source (origin
1201               (method url-fetch)
1202               (uri (string-append "mirror://sourceforge/xcalib/xcalib/" version
1203                                   "/xcalib-source-" version ".tar.gz"))
1204               (sha256
1205                (base32
1206                 "1rh6xb51c5xz926dnn82a2fn643g0sr4a8z66rn6yi7523kjw4ca"))))
1207     (build-system gnu-build-system)
1208     (arguments
1209      '(#:make-flags '("CC=gcc")
1210        #:tests? #f   ; No test suite
1211        #:phases (modify-phases %standard-phases
1212                   (delete 'configure)
1213                   (replace 'install
1214                     (lambda* (#:key outputs #:allow-other-keys)
1215                       (let* ((out (assoc-ref outputs "out"))
1216                              (bin (string-append out "/bin")))
1217                         (install-file "xcalib" bin))))
1218                   (add-after 'install 'install-doc
1219                     (lambda* (#:key outputs #:allow-other-keys)
1220                       (let ((doc (string-append(assoc-ref outputs "out")
1221                                                "/share/doc/xcalib")))
1222                         (install-file "README" doc)
1223                         ;; Avoid unspecified return value.
1224                         #t))))))
1225     (inputs `(("libx11", libx11)
1226               ("libxext", libxext)
1227               ("libxxf86vm", libxxf86vm)))
1228     (synopsis "Tiny monitor calibration loader for XFree86 (or X.org)")
1229     (description "xcalib is a tiny tool to load the content of vcgt-Tags in ICC
1230 profiles to the video card's gamma ramp.  It does work with most video card
1231 drivers except the generic VESA driver.  Alter brightness, contrast, RGB, and
1232 invert colors on a specific display/screen.")
1233     (home-page "http://xcalib.sourceforge.net/")
1234     (license license:gpl2)))