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