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