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.6.1")
 146     (source (origin
 147              (method url-fetch)
 148              (uri (string-append "http://xkbcommon.org/download/" name "-"
 149                                  version ".tar.xz"))
 150              (sha256
 151               (base32
 152                "0q47xa1szlxwgvwmhv4b7xwawnykz1hnc431d84nj8dlh2q8f22v"))))
 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 "http://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.68")
 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           "1px91j6imaaq2fy8ksvgldmv0cdz3w379jqiciqvqa99jajxjjsv"))
 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 "5.3.37")
 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                 "1p2ih123zkj8rxz8acsxpaim1kq57f4rbq7zqsibafn5rkw5c5is"))))
 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 "4.4.61")
 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                 "14jksv05xyydbpb9v8k3jgq7sl72bh356iapymg02vwg519i1d5k"))))
 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               (sha256
 686                (base32
 687                 "1pddjn5ynblwfrdmskylrsxb9vfnk3w4jdnq2l8xn2pspkljhip9"))))
 688     (build-system gnu-build-system)
 689     (arguments
 690      ;; This sets the destination when installing the necessary terminal
 691      ;; capability data, which are not provided by 'ncurses'.  See
 692      ;; https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html
 693      `(#:make-flags (list (string-append "TERMINFO="
 694                                          (assoc-ref %outputs "out")
 695                                          "/share/terminfo"))
 696        #:phases
 697        (modify-phases %standard-phases
 698          (add-after 'install 'install-desktop-urxvt
 699            (lambda* (#:key outputs #:allow-other-keys)
 700              (let* ((output (assoc-ref outputs "out"))
 701                     (desktop (string-append output "/share/applications")))
 702                (mkdir-p desktop)
 703                (with-output-to-file
 704                    (string-append desktop "/urxvt.desktop")
 705                  (lambda _
 706                    (format #t
 707                            "[Desktop Entry]~@
 708                            Name=rxvt-unicode~@
 709                            Comment=~@
 710                            Exec=~a/bin/urxvt~@
 711                            TryExec=~@*~a/bin/urxvt~@
 712                            Icon=~@
 713                            Type=Application~%"
 714                            output)))
 715                #t)))
 716          (add-after 'install 'install-desktop-urxvtc
 717            (lambda* (#:key outputs #:allow-other-keys)
 718              (let* ((output (assoc-ref outputs "out"))
 719                     (desktop (string-append output "/share/applications")))
 720                (mkdir-p desktop)
 721                (with-output-to-file
 722                    (string-append desktop "/urxvtc.desktop")
 723                  (lambda _
 724                    (format #t
 725                            "[Desktop Entry]~@
 726                            Name=rxvt-unicode~@
 727                            Comment=Rxvt clone with XFT and unicode support~@
 728                            Exec=~a/bin/urxvtc~@
 729                            TryExec=~@*~a/bin/urxvtc~@
 730                            Icon=~@
 731                            Type=Application~%"
 732                            output)))
 733                #t))))))
 734     (inputs
 735      `(("libXft" ,libxft)
 736        ("libX11" ,libx11)))
 737     (native-inputs
 738      `(("ncurses" ,ncurses)         ;trigger the installation of terminfo data
 739        ("perl" ,perl)
 740        ("pkg-config" ,pkg-config)))
 741     ;; FIXME: This should only be located in 'ncurses'.  Nonetheless it is
 742     ;; provided for usability reasons.  See <https://bugs.gnu.org/22138>.
 743     (native-search-paths
 744      (list (search-path-specification
 745             (variable "TERMINFO_DIRS")
 746             (files '("share/terminfo")))))
 747     (home-page "http://software.schmorp.de/pkg/rxvt-unicode.html")
 748     (synopsis "Rxvt clone with XFT and unicode support")
 749     (description "Rxvt-unicode (urxvt) is a colour vt102 terminal emulator
 750 intended as an xterm replacement for users who do not require features such as
 751 Tektronix 4014 emulation and toolkit-style configurability.  It supports
 752 unicode, XFT and may be extended with Perl plugins.  It also comes with a
 753 client/daemon pair that lets you open any number of terminal windows from
 754 within a single process.")
 755     (license license:gpl3+)))
 756
 757 (define-public xcape
 758   (package
 759     (name "xcape")
 760     (version "1.2")
 761     (source
 762       (origin
 763         (method url-fetch)
 764         (uri (string-append "https://github.com/alols/" name
 765                             "/archive/v" version ".tar.gz"))
 766         (file-name (string-append name "-" version ".tar.gz"))
 767         (sha256
 768           (base32
 769             "0898zc3vwxia00h9kfknpf7jygxgwggrx8v5mxc31w4lzn2dhzm2"))))
 770     (build-system gnu-build-system)
 771     (arguments
 772      `(#:tests? #f ; no check target
 773        #:phases (alist-delete 'configure %standard-phases) ; no configure script
 774        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
 775                           "MANDIR=/share/man/man1"
 776                           "CC=gcc")))
 777     (inputs
 778      `(("libxtst" ,libxtst)
 779        ("libx11" ,libx11)))
 780     (native-inputs
 781      `(("pkg-config" ,pkg-config)))
 782     (home-page "http://github.com/alols/xcape")
 783     (synopsis "Use a modifier key in X.org as another key")
 784     (description
 785      "This utility for X.org allows to use modifier key as another key when
 786 pressed and released on its own.  The default behaviour is to generate the
 787 Escape key when Left Control is pressed and released on its own.")
 788     (license license:gpl3+)))
 789
 790 (define-public libwacom
 791   (package
 792     (name "libwacom")
 793     (version "0.23")
 794     (source (origin
 795               (method url-fetch)
 796               (uri (string-append "mirror://sourceforge/linuxwacom/libwacom/"
 797                                   name "-" version ".tar.bz2"))
 798               (sha256
 799                (base32
 800                 "0qiikh95b9crybkwgcbbv9y80hb7lsbvvmvaia4gbgbdyagwb2m0"))))
 801     (build-system glib-or-gtk-build-system)
 802     (native-inputs
 803      `(("pkg-config" ,pkg-config)))
 804     (inputs
 805      `(("gtk+" ,gtk+)
 806        ("libgudev" ,libgudev)
 807        ("eudev" ,eudev)
 808        ("libxml2" ,libxml2)))
 809     (propagated-inputs
 810      ;; libwacom includes header files that include GLib, and libinput uses
 811      ;; those header files.
 812      `(("glib" ,glib)))
 813     (home-page "http://linuxwacom.sourceforge.net/")
 814     (synopsis "Helper library for Wacom tablet settings")
 815     (description
 816      "Libwacom is a library to help implement Wacom tablet settings.  It is
 817 intended to be used by client-programs that need model identification.  It is
 818 already being used by the gnome-settings-daemon and the GNOME Control Center
 819 Wacom tablet applet.")
 820     (license license:x11)))
 821
 822 (define-public xf86-input-wacom
 823   (package
 824     (name "xf86-input-wacom")
 825     (version "0.34.0")
 826     (source (origin
 827               (method url-fetch)
 828               (uri (string-append
 829                     "mirror://sourceforge/linuxwacom/xf86-input-wacom/"
 830                     name "-" version ".tar.bz2"))
 831               (sha256
 832                (base32
 833                 "0idhkigl0pnyp08sqm6bqfb4h20v6rjrb71z1gdv59gk7d7qwpgi"))))
 834     (arguments
 835      `(#:configure-flags
 836        (list (string-append "--with-sdkdir="
 837                             (assoc-ref %outputs "out")
 838                             "/include/xorg")
 839              (string-append "--with-xorg-conf-dir="
 840                             (assoc-ref %outputs "out")
 841                             "/share/X11/xorg.conf.d"))))
 842     (build-system gnu-build-system)
 843     (native-inputs
 844      `(("pkg-config" ,pkg-config)))
 845     (inputs
 846      `(("xorg-server" ,xorg-server)
 847        ("libxrandr" ,libxrandr)
 848        ("libxinerama" ,libxinerama)
 849        ("libxi" ,libxi)
 850        ("eudev" ,eudev)))
 851     (home-page "http://linuxwacom.sourceforge.net/")
 852     (synopsis "Wacom input driver for X")
 853     (description
 854      "The xf86-input-wacom driver is the wacom-specific X11 input driver for
 855 the X.Org X Server version 1.7 and later (X11R7.5 or later).")
 856     (license license:x11)))
 857
 858 (define-public redshift
 859   (package
 860     (name "redshift")
 861     (version "1.11")
 862     (source
 863      (origin
 864        (method url-fetch)
 865        (uri
 866         (string-append "https://github.com/jonls/redshift/"
 867                        "releases/download/v" version
 868                        "/redshift-" version ".tar.xz"))
 869        (sha256
 870         (base32
 871          "0ngkwj7rg8nfk806w0sg443w6wjr91xdc0zisqfm5h2i77wm1qqh"))))
 872     (build-system gnu-build-system)
 873     (native-inputs
 874      `(("pkg-config" ,pkg-config)
 875        ("intltool" ,intltool)))
 876     (inputs
 877      `(("libdrm" ,libdrm)
 878        ("libx11" ,libx11)
 879        ("libxcb" ,libxcb)
 880        ("libxxf86vm" ,libxxf86vm)
 881        ("glib" ,glib)))                           ;for Geoclue2 support
 882     (home-page "https://github.com/jonls/redshift")
 883     (synopsis "Adjust the color temperature of your screen")
 884     (description
 885      "Redshift adjusts the color temperature according to the position of the
 886 sun.  A different color temperature is set during night and daytime.  During
 887 twilight and early morning, the color temperature transitions smoothly from
 888 night to daytime temperature to allow your eyes to slowly adapt.  At night the
 889 color temperature should be set to match the lamps in your room.")
 890     (license license:gpl3+)))
 891
 892 (define-public xscreensaver
 893   (package
 894     (name "xscreensaver")
 895     (version "5.36")
 896     (source
 897      (origin
 898        (method url-fetch)
 899        (uri
 900         (string-append "https://www.jwz.org/xscreensaver/xscreensaver-"
 901                        version ".tar.gz"))
 902        (sha256
 903         (base32
 904          "0v60mdhvv42jla5hljp77igng11kxpah5fs9j7ci65kz0hw552vb"))))
 905     (build-system gnu-build-system)
 906     (arguments
 907      `(#:tests? #f  ; no check target
 908        #:phases
 909        (modify-phases %standard-phases
 910          (add-before 'configure 'adjust-gtk-resource-paths
 911            (lambda _
 912              (substitute* '("driver/Makefile.in" "po/Makefile.in.in")
 913                (("@GTK_DATADIR@") "@datadir@")
 914                (("@PO_DATADIR@") "@datadir@")))))
 915        #:configure-flags '("--with-pam" "--with-proc-interrupts"
 916                            "--without-readdisplay")
 917        #:make-flags (list (string-append "AD_DIR="
 918                                          (assoc-ref %outputs "out")
 919                                          "/usr/lib/X11/app-defaults"))))
 920     (native-inputs
 921      `(("pkg-config" ,pkg-config)
 922        ("intltool" ,intltool)))
 923     (inputs
 924      `(("libx11" ,libx11)
 925        ("libxext" ,libxext)
 926        ("libxi" ,libxi)
 927        ("libxt" ,libxt)
 928        ("libxft" ,libxft)
 929        ("libxmu" ,libxmu)
 930        ("libxpm" ,libxpm)
 931        ("libglade" ,libglade)
 932        ("libxml2" ,libxml2)
 933        ("libsm" ,libsm)
 934        ("libjpeg" ,libjpeg)
 935        ("linux-pam" ,linux-pam)
 936        ("pango" ,pango)
 937        ("gtk+" ,gtk+)
 938        ("perl" ,perl)
 939        ("cairo" ,cairo)
 940        ("bc" ,bc)
 941        ("libxrandr" ,libxrandr)
 942        ("glu" ,glu)
 943        ("glib" ,glib)))
 944     (home-page "https://www.jwz.org/xscreensaver/")
 945     (synopsis "Classic screen saver suite supporting screen locking")
 946     (description
 947      "xscreensaver is a popular screen saver collection with many entertaining
 948 demos.  It also acts as a nice screen locker.")
 949     ;; xscreensaver doesn't have a single copyright file and instead relies on
 950     ;; source comment headers, though most files have the same lax
 951     ;; permissions.  To reduce complexity, we're pointing at Debian's
 952     ;; breakdown of the copyright information.
 953     (license (license:non-copyleft
 954               (string-append
 955                "http://metadata.ftp-master.debian.org/changelogs/"
 956                "/main/x/xscreensaver/xscreensaver_5.36-1_copyright")))))
 957
 958 (define-public xdpyprobe
 959   (package
 960     (name "xdpyprobe")
 961     (version "0.1")
 962     (source (origin
 963               (method url-fetch)
 964               (uri (string-append "https://github.com/alezost/" name
 965                                   "/releases/download/v" version
 966                                   "/" name "-" version ".tar.gz"))
 967               (sha256
 968                (base32
 969                 "1h09wd2qcg08rj5hcakvdh9q01hkrj8vxly94ax3ch2x06lm0zq8"))))
 970     (build-system gnu-build-system)
 971     (inputs
 972      `(("libx11" ,libx11)))
 973     (home-page "https://github.com/alezost/xdpyprobe")
 974     (synopsis "Probe X server for connectivity")
 975     (description
 976      "Xdpyprobe is a tiny C program whose only purpose is to probe a
 977 connectivity of the X server running on a particular @code{DISPLAY}.")
 978     (license license:gpl3+)))
 979
 980 (define-public rofi
 981   (package
 982     (name "rofi")
 983     (version "1.3.1")
 984     (source (origin
 985               (method url-fetch)
 986               (uri (string-append "https://github.com/DaveDavenport/rofi/"
 987                                   "releases/download/"
 988                                   version "/rofi-" version ".tar.xz"))
 989               (sha256
 990                (base32
 991                 "1s47biv6d68nblpz6d3aklsar1xxxcilzr4y77v3hz2w1wbz2b5m"))))
 992     (build-system gnu-build-system)
 993     (inputs
 994      `(("pango" ,pango)
 995        ("cairo" ,cairo)
 996        ("glib" ,glib)
 997        ("startup-notification" ,startup-notification)
 998        ("libxkbcommon" ,libxkbcommon)
 999        ("libxcb" ,libxcb)
1000        ("xcb-util" ,xcb-util)
1001        ("xcb-util-xrm" ,xcb-util-xrm)
1002        ("xcb-util-wm" ,xcb-util-wm)))
1003     (native-inputs
1004      `(("pkg-config" ,pkg-config)))
1005     (arguments
1006      `(#:parallel-tests? #f ; May fail in some circumstances.
1007        #:phases
1008        (modify-phases %standard-phases
1009          (add-before 'configure 'adjust-tests
1010            (lambda _
1011              (substitute* '("test/helper-expand.c")
1012                (("~root") "/root")
1013                (("~") "")
1014                (("g_get_home_dir \\(\\)") "\"/\"")))))))
1015     (home-page "https://davedavenport.github.io/rofi/")
1016     (synopsis "Application Launcher")
1017     (description "Rofi is a minimalist Application Launcher.  It memorizes which
1018 applications you regularily use and also allows you to search for an application
1019 by name.")
1020     (license license:expat)))
1021
1022 (define-public tint2
1023   (package
1024     (name "tint2")
1025     (version "0.12.11")
1026     (source (origin
1027               (method url-fetch)
1028               (uri (string-append "https://gitlab.com/o9000/" name
1029                                   "/repository/archive.tar.gz?ref=" version))
1030               (file-name (string-append name "-" version ".tar.gz"))
1031               (sha256
1032                (base32
1033                 "0dv7zaj2ahnfclnwnwcz9arrvzxn65yy29z7fqdgifdh3jk1kl2h"))))
1034     (build-system cmake-build-system)
1035     (arguments
1036      '(#:tests? #f                      ;no test target
1037        #:phases
1038        (modify-phases %standard-phases
1039          (add-after 'unpack 'fix-installation-prefix
1040            (lambda _
1041              (substitute* "CMakeLists.txt"
1042                (("/etc") "${CMAKE_INSTALL_PREFIX}/etc")))))))
1043     (inputs
1044      `(("gtk+" ,gtk+-2)
1045        ("imlib2" ,imlib2)
1046        ("librsvg" ,librsvg)
1047        ("libxcomposite" ,libxcomposite)
1048        ("libxdamage" ,libxdamage)
1049        ("libxft" ,libxft)
1050        ("libxinerama" ,libxinerama)
1051        ("libxrandr" ,libxrandr)
1052        ("startup-notification" ,startup-notification)))
1053     (native-inputs
1054      `(("gettext" ,gettext-minimal)
1055        ("pkg-config" ,pkg-config)))
1056     (home-page "https://gitlab.com/o9000/tint2")
1057     (synopsis "Lightweight task bar")
1058     (description
1059      "Tint2 is a simple task bar made for modern X window managers.  It was
1060 specifically made for Openbox but it should also work with other window
1061 managers (GNOME, KDE, XFCE etc.).
1062
1063 The taskbar includes transparency and color settings for the font, icons,
1064 border, and background.  It also supports multihead setups, customized mouse
1065 actions, a built-in clock, a battery monitor and a system tray.")
1066     (license license:gpl2)))
1067
1068 (define-public dzen
1069   (let ((commit "488ab66019f475e35e067646621827c18a879ba1")
1070         (revision "1"))
1071     (package
1072      (name "dzen")
1073      (version (string-append "0.9.5-" ; Taken from `config.mk`.
1074                              revision "." (string-take commit 7)))
1075      (source (origin
1076               (method git-fetch)
1077               (uri (git-reference
1078                     (url "https://github.com/robm/dzen.git")
1079                     (commit commit)))
1080               (file-name (string-append name "-" version))
1081               (sha256
1082                (base32
1083                 "0y47d6ii87vf4a517gi4fh0yl06f8b085sra77immnsasbq9pxnw"))))
1084      (build-system gnu-build-system)
1085      (arguments
1086       `(#:tests? #f ; No test suite.
1087         #:make-flags ; Replacement for `config.mk`.
1088         (list
1089          (string-append "VERSION = " ,version)
1090          (string-append "PREFIX = " %output)
1091          "MANPREFIX = ${PREFIX}/share/man"
1092          "INCS = -I."
1093          "LIBS = -lc -lX11 -lXinerama -lXpm $(shell pkg-config --libs xft)"
1094          "CFLAGS = -Wall -Os ${INCS} -DVERSION=\\\"${VERSION}\\\"\
1095          -DDZEN_XINERAMA -DDZEN_XPM -DDZEN_XFT $(shell pkg-config --cflags xft)"
1096          "LDFLAGS = ${LIBS}"
1097          "CC = gcc"
1098          "LD = ${CC}")
1099         #:phases
1100         (modify-phases %standard-phases
1101           (delete 'configure) ; No configuration script.
1102           ;; Use own make-flags instead of `config.mk`.
1103           (add-before 'build 'dont-include-config-mk
1104             (lambda _
1105               (substitute* "Makefile" (("include config.mk") ""))
1106               #t)))))
1107      (inputs
1108       `(("libx11"      ,libx11)
1109         ("libxft"      ,libxft)
1110         ("libxpm"      ,libxpm)
1111         ("libxinerama" ,libxinerama)))
1112      (native-inputs `(("pkg-config" ,pkg-config)))
1113      (synopsis "General purpose messaging, notification and menuing program for X11")
1114      (description "Dzen is a general purpose messaging, notification and menuing
1115 program for X11.  It was designed to be fast, tiny and scriptable in any language.")
1116      (home-page "https://github.com/robm/dzen")
1117      (license license:expat))))
1118
1119 (define-public xcb-util-xrm
1120   (package
1121     (name "xcb-util-xrm")
1122     (version "1.2")
1123     (source (origin
1124               (method url-fetch)
1125               (uri (string-append
1126                     "https://github.com/Airblader/xcb-util-xrm/releases"
1127                     "/download/v" version "/xcb-util-xrm-" version ".tar.bz2"))
1128               (sha256
1129                (base32
1130                 "0vbqhag51i0njc8d5fc8c6aa12496cwrc3s6s7sa5kfc17cwhppp"))
1131               (modules '((guix build utils)))
1132               (snippet
1133                ;; Drop bundled m4.
1134                '(delete-file-recursively "m4"))))
1135     (build-system gnu-build-system)
1136     (native-inputs
1137      `(("pkg-config" ,pkg-config)
1138        ("m4" ,m4)
1139        ("libx11" ,libx11))) ; for tests
1140     (inputs
1141      `(("libxcb" ,libxcb)
1142        ("xcb-util" ,xcb-util)))
1143     (home-page "https://github.com/Airblader/xcb-util-xrm")
1144     (synopsis "XCB utility functions for the X resource manager")
1145     (description
1146      "The XCB util module provides a number of libraries which sit on
1147 top of libxcb, the core X protocol library, and some of the extension
1148 libraries.  These experimental libraries provide convenience functions
1149 and interfaces which make the raw X protocol more usable.  Some of the
1150 libraries also provide client-side code which is not strictly part of
1151 the X protocol but which has traditionally been provided by Xlib.
1152
1153 XCB util-xrm module provides the following libraries:
1154
1155 - xrm: utility functions for the X resource manager.")
1156     (license license:x11)))
1157
1158 (define-public xcalib
1159   (package
1160     (name "xcalib")
1161     (version "0.8")
1162     (source (origin
1163               (method url-fetch)
1164               (uri (string-append "mirror://sourceforge/xcalib/xcalib/" version
1165                                   "/xcalib-source-" version ".tar.gz"))
1166               (sha256
1167                (base32
1168                 "1rh6xb51c5xz926dnn82a2fn643g0sr4a8z66rn6yi7523kjw4ca"))))
1169     (build-system gnu-build-system)
1170     (arguments
1171      '(#:make-flags '("CC=gcc")
1172        #:tests? #f   ; No test suite
1173        #:phases (modify-phases %standard-phases
1174                   (delete 'configure)
1175                   (replace 'install
1176                     (lambda* (#:key outputs #:allow-other-keys)
1177                       (let* ((out (assoc-ref outputs "out"))
1178                              (bin (string-append out "/bin")))
1179                         (install-file "xcalib" bin))))
1180                   (add-after 'install 'install-doc
1181                     (lambda* (#:key outputs #:allow-other-keys)
1182                       (let ((doc (string-append(assoc-ref outputs "out")
1183                                                "/share/doc/xcalib")))
1184                         (install-file "README" doc)
1185                         ;; Avoid unspecified return value.
1186                         #t))))))
1187     (inputs `(("libx11", libx11)
1188               ("libxext", libxext)
1189               ("libxxf86vm", libxxf86vm)))
1190     (synopsis "Tiny monitor calibration loader for XFree86 (or X.org)")
1191     (description "xcalib is a tiny tool to load the content of vcgt-Tags in ICC
1192 profiles to the video card's gamma ramp.  It does work with most video card
1193 drivers except the generic VESA driver.  Alter brightness, contrast, RGB, and
1194 invert colors on a specific display/screen.")
1195     (home-page "http://xcalib.sourceforge.net/")
1196     (license license:gpl2)))