gnu/packages/xdisorg.scm

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