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, 2018, 2019 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, 2018 Ricardo Wurmus <rekado@elephly.net>
  14 ;;; Copyright © 2016, 2017, 2018, 2019 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, 2019 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 <ng0@n0.is>
  21 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  22 ;;; Copyright © 2017 Marek Benc <dusxmt@gmx.com>
  23 ;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org>
  24 ;;; Copyright © 2018 Thomas Sigurdsen <tonton@riseup.net>
  25 ;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com>
  26 ;;; Copyright © 2018, 2019 Pierre Neidhardt <mail@ambrevar.xyz>
  27 ;;; Copyright © 2018 Nam Nguyen <namn@berkeley.edu>
  28 ;;; Copyright © 2019 Wiktor Żelazny <wzelazny@vurv.cz>
  29 ;;; Copyright © 2019 Kyle Andrews <kyle.c.andrews@gmail.com>
  30 ;;; Copyright © 2019 Josh Holland <josh@inv.alid.pw>
  31 ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
  32 ;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
  33 ;;; Copyright © 2020 David Wilson <david@daviwil.com>
  34 ;;; Copyright © 2020 Ivan Vilata i Balaguer <ivan@selidor.net>
  35 ;;;
  36 ;;; This file is part of GNU Guix.
  37 ;;;
  38 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  39 ;;; under the terms of the GNU General Public License as published by
  40 ;;; the Free Software Foundation; either version 3 of the License, or (at
  41 ;;; your option) any later version.
  42 ;;;
  43 ;;; GNU Guix is distributed in the hope that it will be useful, but
  44 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  45 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  46 ;;; GNU General Public License for more details.
  47 ;;;
  48 ;;; You should have received a copy of the GNU General Public License
  49 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  50
  51 (define-module (gnu packages xdisorg)
  52   #:use-module ((guix licenses) #:prefix license:)
  53   #:use-module (guix packages)
  54   #:use-module (guix download)
  55   #:use-module (guix git-download)
  56   #:use-module (guix utils)
  57   #:use-module (guix build-system cmake)
  58   #:use-module (guix build-system gnu)
  59   #:use-module (guix build-system glib-or-gtk)
  60   #:use-module (guix build-system meson)
  61   #:use-module (guix build-system python)
  62   #:use-module (guix build-system scons)
  63   #:use-module (gnu packages)
  64   #:use-module (gnu packages documentation)
  65   #:use-module (gnu packages admin)
  66   #:use-module (gnu packages base)
  67   #:use-module (gnu packages algebra)
  68   #:use-module (gnu packages autotools)
  69   #:use-module (gnu packages check)
  70   #:use-module (gnu packages compression)
  71   #:use-module (gnu packages image)
  72   #:use-module (gnu packages pkg-config)
  73   #:use-module (gnu packages flex)
  74   #:use-module (gnu packages freedesktop)
  75   #:use-module (gnu packages gettext)
  76   #:use-module (gnu packages gl)
  77   #:use-module (gnu packages glib)
  78   #:use-module (gnu packages gnome)
  79   #:use-module (gnu packages haskell-xyz)
  80   #:use-module (gnu packages icu4c)
  81   #:use-module (gnu packages man)
  82   #:use-module (gnu packages maths)
  83   #:use-module (gnu packages m4)
  84   #:use-module (gnu packages ncurses)
  85   #:use-module (gnu packages perl)
  86   #:use-module (gnu packages python)
  87   #:use-module (gnu packages python-xyz)
  88   #:use-module (gnu packages linux)
  89   #:use-module (gnu packages gl)
  90   #:use-module (gnu packages guile)
  91   #:use-module (gnu packages xml)
  92   #:use-module (gnu packages gtk)
  93   #:use-module (gnu packages qt)
  94   #:use-module (gnu packages xorg)
  95   #:use-module (gnu packages fontutils)
  96   #:use-module (gnu packages bison)
  97   #:use-module (ice-9 match))
  98
  99 ;; packages outside the x.org system proper
 100
 101 (define-public arandr
 102   (package
 103     (name "arandr")
 104     (version "0.1.10")
 105     (source (origin
 106               (method url-fetch)
 107               (uri (string-append "https://christian.amsuess.com/tools/arandr"
 108                                   "/files/arandr-" version ".tar.gz"))
 109               (sha256
 110                (base32
 111                 "135q0llvm077jil2fr92ssw3p095m4r8jfj0lc5rr3m71n4srj6v"))
 112               (modules '((guix build utils)))
 113               (snippet
 114                '(begin
 115                   ;; Do not record a timestamp and file name in gzipped man
 116                   ;; pages (this is equivalent to 'gzip --no-name'.)
 117                   (substitute* "setup.py"
 118                     (("gzip\\.open\\(gzfile, 'w', 9\\)")
 119                      "gzip.GzipFile('', 'wb', 9, open(gzfile, 'wb'), 0.)"))
 120                   #t))))
 121     (build-system python-build-system)
 122     (arguments
 123      `(#:phases
 124        (modify-phases %standard-phases
 125          (add-before 'build 'configure
 126            (lambda* (#:key inputs #:allow-other-keys)
 127              (substitute* "screenlayout/xrandr.py"
 128                (("\"xrandr\"") (string-append "\"" (assoc-ref inputs "xrandr")
 129                                               "/bin/xrandr\"")))
 130              #t))
 131          (add-after 'install 'wrap-gi-typelib
 132            (lambda* (#:key inputs outputs #:allow-other-keys)
 133              (let ((out               (assoc-ref outputs "out"))
 134                    (gi-typelib-path   (getenv "GI_TYPELIB_PATH")))
 135                (wrap-program (string-append out "/bin/arandr")
 136                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))
 137              #t)))
 138        #:tests? #f)) ;no tests
 139     (inputs `(("gtk+" ,gtk+)
 140               ("pycairo" ,python-pycairo)
 141               ("pygobject" ,python-pygobject)
 142               ("xrandr" ,xrandr)))
 143     (native-inputs `(("gettext"           ,gettext-minimal)
 144                      ("python-docutils"   ,python-docutils)))
 145     (home-page "https://christian.amsuess.com/tools/arandr/")
 146     (synopsis "Another RandR graphical user interface")
 147     ;; TRANSLATORS: "X11 resize-and-rotate" should not be translated.
 148     (description "ARandR is designed to provide a simple visual front end for
 149 the X11 resize-and-rotate (RandR) extension.  Relative monitor positions are
 150 shown graphically and can be changed in a drag-and-drop way.  Configurations
 151 are saved as executable shell scripts which can be loaded without using this
 152 program.")
 153     (license license:gpl3+)))
 154
 155 (define-public autorandr
 156   ;; Use latest commit since 1.7 lacks many new features such as the
 157   ;; autorandr_launcher.
 158   (let ((commit "b484c0ea9c9a4838278bbd661a7cc384333c1df8"))
 159     (package
 160       (name "autorandr")
 161       (version (git-version "1.7" "1" commit))
 162       (home-page "https://github.com/phillipberndt/autorandr")
 163       (source
 164        (origin
 165          (method git-fetch)
 166          (uri (git-reference
 167                (url home-page)
 168                (commit commit)))
 169          (file-name (git-file-name name version))
 170          (sha256
 171           (base32
 172            "0da17kzsisjv3s993j5idkk1n2d2cvjdn7pngs2b0ic1r2h5z02h"))))
 173       (build-system python-build-system)
 174       (native-inputs
 175        `(("man-db" ,man-db)))
 176       (inputs
 177        `(("xrandr" ,xrandr)
 178          ("libxcb" ,libxcb)))
 179       (arguments
 180        `(#:phases
 181          (modify-phases %standard-phases
 182            (add-before 'build 'configure
 183              (lambda* (#:key inputs #:allow-other-keys)
 184                (substitute* "autorandr.py"
 185                  (("popen\\(\"xrandr") (string-append "popen(\""
 186                                                       (assoc-ref inputs "xrandr")
 187                                                       "/bin/xrandr"))
 188                  (("\\[\"xrandr") (string-append "[\""
 189                                                  (assoc-ref inputs "xrandr")
 190                                                  "/bin/xrandr")))
 191                #t))
 192            (add-after 'install 'install-contrib
 193              (lambda* (#:key outputs #:allow-other-keys)
 194                (invoke "make"
 195                        (string-append "DESTDIR=" (assoc-ref outputs "out"))
 196                        "PREFIX="
 197                        "BASH_COMPLETIONS_DIR=etc/bash_completiond.d"
 198                        "install_manpage"
 199                        "install_bash_completion"
 200                        "install_launcher"))))))
 201       (synopsis "Auto-detect connected displays and load appropriate setup")
 202       (description "Autorandr wraps around xrandr to help with X11
 203 multi-screen configuration management.  It allows the user to create profiles
 204 for various multi-screen setups.  Autorandr automatically detects the profiles
 205 that can be activated based on the connected hardware.  Hook scripts can be
 206 used to further tweak the behaviour of the different profiles.")
 207       (license license:gpl3+))))
 208
 209 (define-public bemenu
 210   (package
 211     (name "bemenu")
 212     (version "0.2.0")
 213     (source
 214      (origin
 215        (method git-fetch)
 216        (uri (git-reference
 217              (url "https://github.com/Cloudef/bemenu.git")
 218              (commit version)))
 219        (file-name (git-file-name name version))
 220        (sha256
 221         (base32 "0piax49az5kp96r1g6dcgj87fi6p4jl286wlkxsdvljzpkn8q6gv"))))
 222     (build-system cmake-build-system)
 223     (arguments
 224      '(#:configure-flags '("-DBEMENU_WAYLAND_RENDERER=ON")))
 225     (inputs
 226      `(("cairo" ,cairo)
 227        ("libx11" ,libx11)
 228        ("libxkbcomon" ,libxkbcommon)
 229        ("libxinerama" ,libxinerama)
 230        ("ncurses" ,ncurses)
 231        ("pango" ,pango)
 232        ("wayland" ,wayland)
 233        ("wayland-protocols" ,wayland-protocols)))
 234     (native-inputs
 235      `(("doxygen" ,doxygen)
 236        ("pkg-config" ,pkg-config)))
 237     (home-page "https://github.com/Cloudef/bemenu")
 238     (synopsis "Dynamic menu library and client program inspired by dmenu")
 239     (description
 240      "bemenu is a dynamic menu which allows the user to flexibly select from a
 241 list of options (usually programs to launch).  It renders the menu graphically
 242 with X11 or Wayland, or in a text terminal with ncurses.")
 243     (license (list license:gpl3+        ; client program[s] and other sources
 244                    license:lgpl3+))))   ; library and bindings
 245
 246 (define-public copyq
 247 (package
 248   (name "copyq")
 249   (version "3.9.3")
 250   (source (origin
 251             (method git-fetch)
 252             (uri (git-reference
 253                    (url "https://github.com/hluk/CopyQ.git")
 254                    (commit (string-append "v" version))))
 255             (file-name (git-file-name name version))
 256             (sha256
 257              (base32
 258               "0wlwq9xg8rzsbj0b29z358k4mbrqy04iraa8x0p26pa95yskgcma"))))
 259   (build-system cmake-build-system)
 260   (arguments
 261    `(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release")
 262      #:tests? #f)) ; Test suite is a rather manual process.
 263   (inputs
 264    `(("qtbase" ,qtbase)
 265      ("qtscript" ,qtscript)
 266      ("qtsvg" ,qtsvg)
 267      ("qtx11extras" ,qtx11extras)))
 268   (synopsis "Clipboard manager with advanced features")
 269   (description "CopyQ is clipboard manager with editing and scripting
 270 features.  CopyQ monitors system clipboard and saves its content in customized
 271 tabs.  Saved clipboard can be later copied and pasted directly into any
 272 application.")
 273   (home-page "https://hluk.github.io/CopyQ/")
 274   (license license:gpl3+)))
 275
 276 (define-public xclip
 277   (package
 278     (name "xclip")
 279     (version "0.13")
 280     (source
 281      (origin
 282        (method git-fetch)
 283        (uri (git-reference
 284              (url "https://github.com/astrand/xclip.git")
 285              (commit version)))
 286        (file-name (git-file-name name version))
 287        (sha256
 288         (base32
 289          "0q0hmvcjlv8arhh1pzhja2wglyj6n7z209jnpnzd281kqqv4czcs"))))
 290     (build-system gnu-build-system)
 291     (arguments
 292      '(#:tests? #f))                              ;there is no test suite
 293     (native-inputs
 294      `(("autoconf" ,autoconf)
 295        ("automake" ,automake)))
 296     (inputs `(("libxmu" ,libxmu)
 297               ("libxt" ,libxt)))
 298     (home-page "https://github.com/astrand/xclip")
 299     (synopsis "Command line interface to X11 clipboard")
 300     (description "Xclip is a command line interface to the X11 clipboard.  It
 301 can also be used for copying files, as an alternative to sftp/scp, thus
 302 avoiding password prompts when X11 forwarding has already been setup.")
 303     (license license:gpl2+)))
 304
 305 (define-public libxkbcommon
 306   (package
 307     (name "libxkbcommon")
 308     (version "0.10.0")
 309     (source (origin
 310              (method url-fetch)
 311              (uri (string-append "https://xkbcommon.org/download/libxkbcommon-"
 312                                  version ".tar.xz"))
 313              (sha256
 314               (base32
 315                "1wmnl0hngn6vrqrya4r8hvimlkr4jag39yjprls4gyrqvh667hsp"))))
 316     (build-system meson-build-system)
 317     (inputs
 318      `(("libx11" ,libx11)
 319        ("libxcb" ,libxcb)
 320        ("wayland" ,wayland)
 321        ("wayland-protocols" ,wayland-protocols)
 322        ("xkeyboard-config" ,xkeyboard-config)))
 323     (native-inputs
 324      `(("bison" ,bison)
 325        ("doxygen" ,doxygen)
 326        ("pkg-config" ,pkg-config)))
 327     (arguments
 328      `(#:configure-flags
 329        (list (string-append "-Dxkb-config-root="
 330                             (assoc-ref %build-inputs "xkeyboard-config")
 331                             "/share/X11/xkb")
 332              (string-append "-Dx-locale-root="
 333                             (assoc-ref %build-inputs "libx11")
 334                             "/share/X11/locale"))))
 335     (home-page "https://xkbcommon.org/")
 336     (synopsis "Library to handle keyboard descriptions")
 337     (description "Xkbcommon is a library to handle keyboard descriptions,
 338 including loading them from disk, parsing them and handling their
 339 state.  It is mainly meant for client toolkits, window systems, and other
 340 system applications; currently that includes Wayland, kmscon, GTK+, Qt,
 341 Clutter, and more.  Despite the name, it is not currently used by anything
 342 X11 (yet).")
 343     (license (license:x11-style "file://COPYING"
 344                                 "See 'COPYING' in the distribution."))))
 345
 346 (define-public libfakekey
 347   (package
 348     (name "libfakekey")
 349     (version "0.1")
 350     (source
 351       (origin
 352         (method url-fetch)
 353         (uri (string-append "https://downloads.yoctoproject.org/releases"
 354                             "/matchbox/libfakekey/" version "/libfakekey-"
 355                             version ".tar.bz2"))
 356         (sha256
 357          (base32
 358           "1501l0bflcrhqbf12n7a7cqilvr0w4xawxw0vw75p2940nkl4464"))))
 359     (build-system gnu-build-system)
 360     (arguments
 361      `(#:make-flags (list "AM_LDFLAGS=-lX11")))
 362     (native-inputs
 363      `(("pkg-config" ,pkg-config)))
 364     (inputs
 365      `(("libxtst" ,libxtst)
 366        ("libx11" ,libx11)))
 367     (home-page "https://www.yoctoproject.org/tools-resources/projects/matchbox")
 368     (synopsis "X virtual keyboard library")
 369     (description
 370      "Libfakekey is a virtual keyboard library for X.")
 371     (license license:gpl2)))
 372
 373 (define-public xdotool
 374   (package
 375     (name "xdotool")
 376     (version "3.20160805.1")
 377     (source
 378       (origin
 379         (method url-fetch)
 380         (uri (string-append
 381               "https://github.com/jordansissel/xdotool/releases/download/v"
 382               version "/xdotool-" version ".tar.gz"))
 383         (sha256
 384           (base32
 385            "1a6c1zr86zb53352yxv104l76l8x21gfl2bgw6h21iphxpv5zgim"))))
 386     (build-system gnu-build-system)
 387     (arguments
 388      '(#:tests? #f ; Test suite requires a lot of black magic
 389        #:phases
 390        (modify-phases %standard-phases
 391          (replace 'configure
 392            (lambda* (#:key outputs #:allow-other-keys #:rest args)
 393              (let ((out (assoc-ref outputs "out")))
 394                (mkdir-p (string-append out "/lib"))
 395                (setenv "PREFIX" out)
 396                (setenv "LDFLAGS" (string-append "-Wl,-rpath=" out "/lib"))
 397                (setenv "CC" "gcc")
 398                #t))))))
 399     (native-inputs `(("perl" ,perl))) ; for pod2man
 400     (inputs `(("libx11" ,libx11)
 401               ("libxext" ,libxext)
 402               ("libxi" ,libxi)
 403               ("libxinerama" ,libxinerama)
 404               ("libxtst" ,libxtst)
 405               ("libxkbcommon" ,libxkbcommon)))
 406     (home-page "http://www.semicomplete.com/projects/xdotool")
 407     (synopsis "Fake keyboard/mouse input, window management, and more")
 408     (description "Xdotool lets you simulate keyboard input and mouse activity,
 409 move and resize windows, etc.  It does this using X11's XTEST extension and
 410 other Xlib functions.  Additionally, you can search for windows and move,
 411 resize, hide, and modify window properties like the title.  If your window
 412 manager supports it, you can use xdotool to switch desktops, move windows
 413 between desktops, and change the number of desktops.")
 414     (license license:bsd-3)))
 415
 416 (define-public xeyes
 417   (package
 418     (name "xeyes")
 419     (version "1.1.2")
 420     (source
 421      (origin
 422        (method url-fetch)
 423        (uri (string-append "https://www.x.org/releases/individual/app/"
 424                            name "-" version ".tar.bz2"))
 425        (sha256
 426         (base32 "0lq5j7fryx1wn998jq6h3icz1h6pqrsbs3adskjzjyhn5l6yrg2p"))))
 427     (build-system gnu-build-system)
 428     (inputs
 429       `(("libxext" ,libxext)
 430         ("libxmu" ,libxmu)
 431         ("libxrender" ,libxrender)
 432         ("libxt" ,libxt)))
 433     (native-inputs
 434      `(("pkg-config" ,pkg-config)))
 435     (home-page "https://www.x.org/")    ; no dedicated Xeyes page exists
 436     (synopsis "Follow-the-mouse X demo")
 437     (description "Xeyes is a demo program for x.org.  It shows eyes
 438 following the mouse.")
 439     (license license:x11)))
 440
 441
 442 (define-public pixman
 443   (package
 444     (name "pixman")
 445     (version "0.38.4")
 446     (source (origin
 447               (method url-fetch)
 448               (uri (string-append
 449                     "https://www.cairographics.org/releases/pixman-"
 450                     version ".tar.gz"))
 451               (sha256
 452                (base32
 453                 "1ryxzdf048x7wsx4dlvrr1p00gzwfs7lybnhgc7ygbj0dvyxcrns"))
 454               (patches (search-patches "pixman-CVE-2016-5296.patch"))))
 455     (build-system gnu-build-system)
 456     (arguments
 457      '(#:configure-flags '("--disable-static")))
 458     (inputs
 459      `(("libpng" ,libpng)
 460        ("zlib" ,zlib)))
 461     (native-inputs
 462      `(("pkg-config" ,pkg-config)))
 463     (home-page "http://www.pixman.org/")
 464     (synopsis "Low-level pixel manipulation library")
 465     (description "Pixman is a low-level software library for pixel
 466 manipulation, providing features such as image compositing and trapezoid
 467 rasterisation.")
 468     (license license:x11)))
 469
 470 (define-public libdrm
 471   (package
 472     (name "libdrm")
 473     (version "2.4.100")
 474     (source
 475       (origin
 476         (method url-fetch)
 477         (uri (string-append
 478                "https://dri.freedesktop.org/libdrm/libdrm-"
 479                version
 480                ".tar.bz2"))
 481         (sha256
 482          (base32
 483           "0p8a1l3a3s40i81mawm8nhrbk7p97ss05qkawp1yx73c30lchz67"))
 484         (patches (search-patches "libdrm-symbol-check.patch"))))
 485     (build-system meson-build-system)
 486     (arguments
 487      `(#:configure-flags
 488        '(,@(match (%current-system)
 489              ((or "armhf-linux" "aarch64-linux")
 490               '("-Dexynos=true"
 491                 "-Domap=true"
 492                 "-Detnaviv=true"
 493                 "-Dtegra=true"
 494                 "-Dfreedreno-kgsl=true"))
 495              (_ '())))
 496
 497        #:phases (modify-phases %standard-phases
 498                   (replace 'check
 499                     (lambda _
 500                       (invoke "meson" "test" "--timeout-multiplier" "5"))))))
 501     (inputs
 502      `(("libpciaccess" ,libpciaccess)))
 503     (native-inputs
 504      `(("pkg-config" ,pkg-config)))
 505     (home-page "https://dri.freedesktop.org/wiki/")
 506     (synopsis "Direct rendering userspace library")
 507     (description "The Direct Rendering Infrastructure, also known as the DRI,
 508 is a framework for allowing direct access to graphics hardware under the
 509 X Window System in a safe and efficient manner.  It includes changes to the
 510 X server, to several client libraries, and to the kernel (DRM, Direct
 511 Rendering Manager).  The most important use for the DRI is to create fast
 512 OpenGL implementations providing hardware acceleration for Mesa.
 513 Several 3D accelerated drivers have been written to the DRI specification,
 514 including drivers for chipsets produced by 3DFX, AMD (formerly ATI), Intel
 515 and Matrox.")
 516     (license license:x11)))
 517
 518
 519 (define-public mtdev
 520   (package
 521     (name "mtdev")
 522     (version "1.1.5")
 523     (source
 524       (origin
 525         (method url-fetch)
 526         (uri (string-append
 527                "http://bitmath.org/code/mtdev/mtdev-"
 528                version ".tar.bz2"))
 529         (sha256
 530          (base32
 531           "0zxs7shzgbalkvlaiibi25bd902rbmkv9n1lww6q8j3ri9qdaxv6"))))
 532     (build-system gnu-build-system)
 533     (home-page "http://bitmath.org/code/mtdev/")
 534     (synopsis "Multitouch protocol translation library")
 535     (description "Mtdev is a stand-alone library which transforms all
 536 variants of kernel MT events to the slotted type B protocol.  The events
 537 put into mtdev may be from any MT device, specifically type A without
 538 contact tracking, type A with contact tracking, or type B with contact
 539 tracking.")
 540     (license license:x11)))
 541
 542 (define-public startup-notification
 543   (package
 544     (name "startup-notification")
 545     (version "0.12")
 546     (source
 547      (origin
 548        (method url-fetch)
 549        (uri (string-append "https://www.freedesktop.org/software/" name
 550                            "/releases/" name "-" version ".tar.gz"))
 551        (sha256
 552         (base32
 553          "0jmyryrpqb35y9hd5sgxqy2z0r1snw7d3ljw0jak0n0cjdz1yf9w"))))
 554     (build-system gnu-build-system)
 555     (native-inputs `(("pkg-config" ,pkg-config)))
 556     (inputs
 557      `(("libx11" ,libx11)
 558        ("xcb-util" ,xcb-util)))
 559     (home-page "https://www.freedesktop.org/wiki/Software/startup-notification/")
 560     (synopsis "Application startup notification and feedback library")
 561     (description
 562      "Startup-notification contains a reference implementation of the startup
 563 notification protocol.  The reference implementation is mostly under an X Window
 564 System style license, and has no special dependencies.")
 565     ;; Most of the code is provided under x11 license.
 566     (license license:lgpl2.0+)))
 567
 568 (define-public wmctrl
 569   (package
 570     (name "wmctrl")
 571     (version "1.07")
 572     (source (origin
 573               (method url-fetch)
 574               (uri (string-append
 575                     "https://sites.google.com/site/tstyblo/wmctrl/wmctrl-"
 576                     version ".tar.gz"))
 577               (sha256
 578                (base32
 579                 "1afclc57b9017a73mfs9w7lbdvdipmf9q0xdk116f61gnvyix2np"))
 580               (patches (search-patches "wmctrl-64-fix.patch"))))
 581     (build-system gnu-build-system)
 582     (arguments
 583      '(#:configure-flags
 584        (list (string-append "--mandir="
 585                             (assoc-ref %outputs "out")
 586                             "/share/man"))))
 587     (native-inputs
 588      `(("pkg-config" ,pkg-config)))
 589     (inputs
 590      `(("libx11" ,libx11)
 591        ("libxmu" ,libxmu)
 592        ("glib" ,glib)))
 593     (home-page "http://tomas.styblo.name/wmctrl/")
 594     (synopsis "Command-line tool to control X window managers")
 595     (description
 596      "Wmctrl allows to interact with an X window manager that is compatible
 597 with the EWMH/NetWM specification.  It can query the window manager for
 598 information, and request for certain window management actions (resize and
 599 move windows, switch between desktops, etc.).")
 600     (license license:gpl2+)))
 601
 602 (define-public scrot
 603   (package
 604     (name "scrot")
 605     (version "1.2")
 606     (source
 607      (origin
 608        (method git-fetch)
 609        (uri
 610         (git-reference
 611          (url "https://github.com/resurrecting-open-source-projects/scrot.git")
 612          (commit version)))
 613        (file-name (git-file-name name version))
 614        (sha256
 615         (base32 "08gkdby0ysx2mki57z81zlm7vfnq9c1gq692xw67cg5vv2p3320w"))))
 616     (build-system gnu-build-system)
 617     (native-inputs
 618      `(("autoconf" ,autoconf)
 619        ("autoconf-archive" ,autoconf-archive)
 620        ("automake" ,automake)))
 621     (inputs
 622      `(("giblib" ,giblib)
 623        ("libx11" ,libx11)
 624        ("libXcursor" ,libxcursor)
 625        ("libXfixes" ,libxfixes)))
 626     (home-page "https://github.com/resurrecting-open-source-projects/scrot")
 627     (synopsis "Command-line screen capture utility for X Window System")
 628     (description
 629      "Scrot allows to save a screenshot of a full screen, a window or a part
 630 of the screen selected by mouse.")
 631     ;; This license removes a clause about X Consortium from the original
 632     ;; X11 license.
 633     (license (license:x11-style "file://COPYING"
 634                                 "See 'COPYING' in the distribution."))))
 635
 636 (define-public slop
 637   (package
 638     (name "slop")
 639     (version "7.4")
 640     (source (origin
 641               (method git-fetch)
 642               (uri (git-reference
 643                     (url "https://github.com/naelstrof/slop.git")
 644                     (commit (string-append "v" version))))
 645               (file-name (git-file-name name version))
 646               (sha256
 647                (base32
 648                 "0fgd8a2dqkg64all0f96sca92sdss9r3pzmv5kck46b99z2325z6"))))
 649     (build-system cmake-build-system)
 650     (arguments
 651      '(#:tests? #f)) ; no "check" target
 652     (inputs
 653      `(("glew" ,glew)
 654        ("glm" ,glm)
 655        ("icu4c" ,icu4c)
 656        ("libxext" ,libxext)
 657        ("libxrender" ,libxrender)
 658        ("mesa" ,mesa)))
 659     (home-page "https://github.com/naelstrof/slop")
 660     (synopsis "Select a region and print its bounds to stdout")
 661     (description
 662      "slop (Select Operation) is a tool that queries for a selection from a
 663 user and prints the region to stdout.  It grabs the mouse and turns it into a
 664 crosshair, lets the user click and drag to make a selection (or click on a
 665 window) while drawing a pretty box around it, then finally prints the
 666 selection's dimensions to stdout.")
 667     (license license:gpl3+)))
 668
 669 (define-public maim
 670   (package
 671     (name "maim")
 672     (version "5.5.3")
 673     (source (origin
 674               (method git-fetch)
 675               (uri (git-reference
 676                     (url "https://github.com/naelstrof/maim.git")
 677                     (commit (string-append "v" version))))
 678               (file-name (git-file-name name version))
 679               (sha256
 680                (base32
 681                 "1kbxsz8whfxl5blwsvpva2q95zwy72argwhi1cfqh5lrhzq5zrpp"))))
 682     (build-system cmake-build-system)
 683     (arguments
 684      '(#:tests? #f))            ; no "check" target
 685     (inputs
 686      `(("glm" ,glm)
 687        ("libjpeg" ,libjpeg-turbo)
 688        ("libpng" ,libpng)
 689        ("libxcomposite" ,libxcomposite)
 690        ("libxfixes" ,libxfixes)
 691        ("libxrandr" ,libxrandr)
 692        ("mesa" ,mesa)
 693        ("slop" ,slop)
 694        ("zlib" ,zlib)))
 695     (home-page "https://github.com/naelstrof/maim")
 696     (synopsis "Screenshot utility for X Window System")
 697     (description
 698      "maim (Make Image) is a tool that takes screenshots of your desktop and
 699 saves it in any format.  Along with a full screen, it allows you to capture a
 700 predefined region or a particular window.  Also, it makes it possible to
 701 include cursor in the resulting image.")
 702     (license license:gpl3+)))
 703
 704 (define-public unclutter
 705   (package
 706     (name "unclutter")
 707     (version "8")
 708     (source (origin
 709               (method url-fetch)
 710               (uri (string-append
 711                     "http://ftp.x.org/contrib/utilities/unclutter-"
 712                     version ".tar.Z"))
 713               (sha256
 714                (base32
 715                 "0ahrr5z6wxqqfyihm112hnq0859zlxisrb3y5232zav58j6sfmdq"))))
 716     (build-system gnu-build-system)
 717     (arguments
 718      '(#:tests? #f                      ; no check target
 719        #:phases
 720        (modify-phases %standard-phases
 721          (delete 'configure)
 722          (replace 'install
 723            (lambda* (#:key inputs outputs #:allow-other-keys)
 724              (let* ((out  (assoc-ref outputs "out"))
 725                     (bin  (string-append out "/bin"))
 726                     (man1 (string-append out "/share/man/man1")))
 727                (mkdir-p bin)
 728                (mkdir-p man1)
 729                (invoke "make" "install" "install.man"
 730                        (string-append "BINDIR=" bin)
 731                        (string-append "MANDIR=" man1))))))))
 732     (inputs `(("libx11" ,libx11)))
 733     (home-page "http://ftp.x.org/contrib/utilities/")
 734     (synopsis "Hide idle mouse cursor")
 735     (description
 736      "Unclutter is a program which runs permanently in the background of an
 737 X11 session.  It checks on the X11 pointer (cursor) position every few
 738 seconds, and when it finds it has not moved (and no buttons are pressed
 739 on the mouse, and the cursor is not in the root window) it creates a
 740 small sub-window as a child of the window the cursor is in.  The new
 741 window installs a cursor of size 1x1 but a mask of all 0, i.e. an
 742 invisible cursor.  This allows you to see all the text in an xterm or
 743 xedit, for example.  The human factors crowd would agree it should make
 744 things less distracting.")
 745     (license license:public-domain)))
 746
 747 (define-public xautomation
 748   (package
 749     (name "xautomation")
 750     (version "1.09")
 751     (source
 752      (origin
 753        (method url-fetch)
 754        (uri (string-append "https://www.hoopajoo.net/static/projects/"
 755                            "xautomation-" version ".tar.gz"))
 756
 757        (sha256
 758         (base32
 759          "03azv5wpg65h40ip2kk1kdh58vix4vy1r9bihgsq59jx2rhjr3zf"))))
 760     (build-system gnu-build-system)
 761     (inputs
 762      `(("libpng" ,libpng)
 763        ("libx11" ,libx11)
 764        ("libxi" ,libxi)
 765        ("libxtst" ,libxtst)))
 766     (native-inputs
 767      `(("xorgproto" ,xorgproto)))
 768     (synopsis "Tools to automate tasks in X such as detecting on screen images")
 769     (description
 770      "Xautomation can control X from the command line for scripts, and
 771 do visual scraping to find things on the screen.  The control interface
 772 allows mouse movement, clicking, button up/down, key up/down, etc, and
 773 uses the XTest extension so you don't have the annoying problems that
 774 xse has when apps ignore sent events.  The visgrep program can find
 775 images inside of images and reports the coordinates, allowing programs
 776 to find buttons, etc, on the screen to click on.")
 777     (home-page "https://www.hoopajoo.net/projects/xautomation.html")
 778     (license license:gpl2+)))
 779
 780 (define-public xbanish
 781   (package
 782     (name "xbanish")
 783     (version "1.6")
 784     (home-page "https://github.com/jcs/xbanish")
 785     (source (origin
 786               (method git-fetch)
 787               (uri (git-reference (url home-page)
 788                                   (commit (string-append "v" version))))
 789               (file-name (git-file-name name version))
 790               (sha256
 791                (base32
 792                 "0vp8ja68hpmqkl61zyjar3czhmny1hbm74m8f393incfz1ymr3i8"))))
 793     (build-system gnu-build-system)
 794     (arguments
 795      `(#:tests? #f                      ;no tests
 796        #:make-flags (list "CC=gcc"
 797                           (string-append "PREFIX=" (assoc-ref %outputs "out")))
 798        #:phases (modify-phases %standard-phases
 799                   (delete 'configure))))
 800     (inputs
 801      `(("libx11" ,libx11)
 802        ("libxfixes" ,libxfixes)
 803        ("libxi" ,libxi)
 804        ("libxt" ,libxt)))
 805     (synopsis "Banish the mouse cursor")
 806     (description
 807      "@command{xbanish} hides the mouse cursor when you start typing, and
 808 shows it again when the mouse cursor moves or a mouse button is pressed.")
 809     (license license:bsd-3)))
 810
 811 (define-public xlockmore
 812   (package
 813     (name "xlockmore")
 814     (version "5.59")
 815     (source (origin
 816              (method url-fetch)
 817              (uri (list (string-append "http://sillycycle.com/xlock/"
 818                                        "xlockmore-" version ".tar.xz")
 819                         ;; Previous releases are moved to a subdirectory.
 820                         (string-append "http://sillycycle.com/xlock/"
 821                                        "recent-releases/"
 822                                        "xlockmore-" version ".tar.xz")))
 823              (sha256
 824               (base32
 825                "0lajc5a4lki33b9mzfsi74q4hbivbmhwysp7mib4ivnyxianhaid"))))
 826     (build-system gnu-build-system)
 827     (arguments
 828      '(#:configure-flags (list (string-append "--enable-appdefaultdir="
 829                                               (assoc-ref %outputs "out")
 830                                               "/lib/X11/app-defaults"))
 831        #:tests? #f))                            ;no such thing as a test suite
 832     (inputs
 833      `(("libX11" ,libx11)
 834        ("libXext" ,libxext)
 835        ("libXt" ,libxt)
 836        ("linux-pam" ,linux-pam)))
 837     (home-page "http://sillycycle.com/xlockmore.html")
 838     (synopsis "Screen locker for the X Window System")
 839     (description
 840      "XLockMore is a classic screen locker and screen saver for the
 841 X Window System.")
 842     (license (license:non-copyleft #f "See xlock.c.")
 843              ))) ; + GPLv2 in modes/glx/biof.c.
 844
 845 (define-public xosd
 846   (package
 847     (name "xosd")
 848     (version "2.2.14")
 849     (source (origin
 850               (method url-fetch)
 851               (uri (string-append
 852                     "mirror://sourceforge/libxosd/libxosd/xosd-" version "/"
 853                     name "-" version ".tar.gz"))
 854               (sha256
 855                (base32
 856                 "025m7ha89q29swkc7s38knnbn8ysl24g2h5s7imfxflm91psj7sg"))))
 857     (build-system gnu-build-system)
 858     (arguments
 859      '(#:configure-flags
 860        (list (string-append "--mandir=" %output "/share/man"))))
 861     (inputs
 862      `(("libx11" ,libx11)
 863        ("libxt" ,libxt)
 864        ("libxext" ,libxext)
 865        ("libxinerama" ,libxinerama)))
 866     (home-page "https://sourceforge.net/projects/libxosd/")
 867     (synopsis "X On Screen Display")
 868     (description
 869      "XOSD provides a C library and a simple utility (osd_cat) for displaying
 870 transparent text on your screen.")
 871     (license license:gpl2+)))
 872
 873 (define-public xbindkeys
 874   (package
 875     (name "xbindkeys")
 876     (version "1.8.6")
 877     (source (origin
 878               (method url-fetch)
 879               ;; Download from the savannah mirror list fails
 880               (uri (string-append
 881                     "http://www.nongnu.org/xbindkeys/xbindkeys-"
 882                     version
 883                     ".tar.gz"))
 884               (sha256
 885                (base32
 886                 "060df6d8y727jp1inp7blp44cs8a7jig7vcm8ndsn6gw36z1h3bc"))))
 887     (build-system gnu-build-system)
 888     (inputs
 889      `(("libx11" ,libx11)
 890        ("guile" ,guile-2.0)))
 891     (home-page "https://www.nongnu.org/xbindkeys/")
 892     (synopsis "Associate a combination of keys with a shell command")
 893     (description
 894      "XBindKeys is a program that allows you to launch shell commands with
 895 your keyboard or your mouse under the X Window System.  It links commands to
 896 keys or mouse buttons, using a configuration file.  It's independent of the
 897 window manager and can capture all keyboard keys (ex: Power, Wake...).  It
 898 optionally supports a Guile-based configuration file layout, which enables you
 899 to access all XBindKeys internals, so you can have key combinations, double
 900 clicks or timed double clicks take actions.  Also all functions that work in
 901 Guile will work for XBindKeys.")
 902     (license license:gpl2+)))
 903
 904 (define-public sxhkd
 905   (package
 906     (name "sxhkd")
 907     (version "0.6.1")
 908     (source
 909      (origin
 910        (method git-fetch)
 911        (uri (git-reference
 912              (url "https://github.com/baskerville/sxhkd")
 913              (commit version)))
 914        (file-name (git-file-name name version))
 915        (sha256
 916         (base32 "0j7bl2l06r0arrjzpz7al9j6cwzc730knbsijp7ixzz96pq7xa2h"))))
 917     (build-system gnu-build-system)
 918     (inputs
 919      `(("asciidoc" ,asciidoc)
 920        ("libxcb" ,libxcb)
 921        ("xcb-util" ,xcb-util)
 922        ("xcb-util-keysyms" ,xcb-util-keysyms)
 923        ("xcb-util-wm" ,xcb-util-wm)))
 924     (arguments
 925      `(#:phases (modify-phases %standard-phases (delete 'configure))
 926        #:tests? #f  ; no check target
 927        #:make-flags
 928        (list "CC=gcc"
 929              (string-append "PREFIX=" %output)
 930              ;; Keep the documentation where the build system installs LICENSE.
 931              (string-append "DOCPREFIX=" %output
 932                             "/share/doc/" ,name "-" ,version))))
 933     (home-page "https://github.com/baskerville/sxhkd")
 934     (synopsis "Simple X hotkey daemon")
 935     (description "sxhkd is a simple X hotkey daemon with a powerful and
 936 compact configuration syntax.")
 937     (license license:bsd-2)))
 938
 939 (define-public rxvt-unicode
 940   (package
 941     (name "rxvt-unicode")
 942     (version "9.22")
 943     (source (origin
 944               (method url-fetch)
 945               (uri (string-append "http://dist.schmorp.de/rxvt-unicode/Attic/"
 946                                   name "-" version ".tar.bz2"))
 947               (patches (search-patches "rxvt-unicode-escape-sequences.patch"))
 948               (sha256
 949                (base32
 950                 "1pddjn5ynblwfrdmskylrsxb9vfnk3w4jdnq2l8xn2pspkljhip9"))))
 951     (build-system gnu-build-system)
 952     (arguments
 953      ;; This sets the destination when installing the necessary terminal
 954      ;; capability data, which are not provided by 'ncurses'.  See
 955      ;; https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html
 956      `(#:make-flags (list (string-append "TERMINFO="
 957                                          (assoc-ref %outputs "out")
 958                                          "/share/terminfo"))
 959        #:phases
 960        (modify-phases %standard-phases
 961          (add-after 'install 'install-desktop-urxvt
 962            (lambda* (#:key outputs #:allow-other-keys)
 963              (let* ((output (assoc-ref outputs "out"))
 964                     (desktop (string-append output "/share/applications")))
 965                (mkdir-p desktop)
 966                (with-output-to-file
 967                    (string-append desktop "/urxvt.desktop")
 968                  (lambda _
 969                    (format #t
 970                            "[Desktop Entry]~@
 971                            Name=rxvt-unicode~@
 972                            Comment=~@
 973                            Exec=~a/bin/urxvt~@
 974                            TryExec=~@*~a/bin/urxvt~@
 975                            Icon=~@
 976                            Type=Application~%"
 977                            output)))
 978                #t)))
 979          (add-after 'install 'install-desktop-urxvtc
 980            (lambda* (#:key outputs #:allow-other-keys)
 981              (let* ((output (assoc-ref outputs "out"))
 982                     (desktop (string-append output "/share/applications")))
 983                (mkdir-p desktop)
 984                (with-output-to-file
 985                    (string-append desktop "/urxvtc.desktop")
 986                  (lambda _
 987                    (format #t
 988                            "[Desktop Entry]~@
 989                            Name=rxvt-unicode (client)~@
 990                            Comment=Rxvt clone with XFT and unicode support~@
 991                            Exec=~a/bin/urxvtc~@
 992                            TryExec=~@*~a/bin/urxvtc~@
 993                            Icon=~@
 994                            Type=Application~%"
 995                            output)))
 996                #t))))))
 997     (inputs
 998      `(("libXft" ,libxft)
 999        ("libX11" ,libx11)))
1000     (native-inputs
1001      `(("ncurses" ,ncurses)         ;trigger the installation of terminfo data
1002        ("perl" ,perl)
1003        ("pkg-config" ,pkg-config)))
1004     ;; FIXME: This should only be located in 'ncurses'.  Nonetheless it is
1005     ;; provided for usability reasons.  See <https://bugs.gnu.org/22138>.
1006     (native-search-paths
1007      (list (search-path-specification
1008             (variable "TERMINFO_DIRS")
1009             (files '("share/terminfo")))))
1010     (home-page "http://software.schmorp.de/pkg/rxvt-unicode.html")
1011     (synopsis "Rxvt clone with XFT and unicode support")
1012     (description "Rxvt-unicode (urxvt) is a colour vt102 terminal emulator
1013 intended as an xterm replacement for users who do not require features such as
1014 Tektronix 4014 emulation and toolkit-style configurability.  It supports
1015 unicode, XFT and may be extended with Perl plugins.  It also comes with a
1016 client/daemon pair that lets you open any number of terminal windows from
1017 within a single process.")
1018     (license license:gpl3+)))
1019
1020 (define-public xcape
1021   (package
1022     (name "xcape")
1023     (version "1.2")
1024     (source (origin
1025               (method git-fetch)
1026               (uri (git-reference
1027                     (url "https://github.com/alols/xcape.git")
1028                     (commit (string-append "v" version))))
1029               (file-name (git-file-name name version))
1030               (sha256
1031                (base32
1032                 "09a05cxgrip6nqy1qmwblamp2bhknqnqmxn7i2a1rgxa0nba95dm"))))
1033     (build-system gnu-build-system)
1034     (arguments
1035      `(#:tests? #f ; no check target
1036        ;; no configure script
1037        #:phases (modify-phases %standard-phases (delete 'configure))
1038        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1039                           "MANDIR=/share/man/man1"
1040                           "CC=gcc")))
1041     (inputs
1042      `(("libxtst" ,libxtst)
1043        ("libx11" ,libx11)))
1044     (native-inputs
1045      `(("pkg-config" ,pkg-config)))
1046     (home-page "https://github.com/alols/xcape")
1047     (synopsis "Use a modifier key in X.org as another key")
1048     (description
1049      "This utility for X.org allows to use modifier key as another key when
1050 pressed and released on its own.  The default behaviour is to generate the
1051 Escape key when Left Control is pressed and released on its own.")
1052     (license license:gpl3+)))
1053
1054 (define-public libwacom
1055   (package
1056     (name "libwacom")
1057     (version "1.2")
1058     (source (origin
1059               (method url-fetch)
1060               (uri (string-append
1061                     "https://github.com/linuxwacom/libwacom/releases/download/"
1062                     "libwacom-" version "/libwacom-" version ".tar.bz2"))
1063               (sha256
1064                (base32
1065                 "1hv3z2qkvycqcyv99zfpbbgrlbyppdq8kk2y9x51578mwbgcy162"))))
1066     (build-system glib-or-gtk-build-system)
1067     (arguments
1068      `(#:configure-flags '("--disable-static")))
1069     (native-inputs
1070      `(("pkg-config" ,pkg-config)))
1071     (inputs
1072      `(("gtk+" ,gtk+)
1073        ("libgudev" ,libgudev)
1074        ("eudev" ,eudev)
1075        ("libxml2" ,libxml2)))
1076     (propagated-inputs
1077      ;; libwacom includes header files that include GLib, and libinput uses
1078      ;; those header files.
1079      `(("glib" ,glib)))
1080     (home-page "https://linuxwacom.github.io/")
1081     (synopsis "Helper library for Wacom tablet settings")
1082     (description
1083      "Libwacom is a library to help implement Wacom tablet settings.  It is
1084 intended to be used by client-programs that need model identification.  It is
1085 already being used by the gnome-settings-daemon and the GNOME Control Center
1086 Wacom tablet applet.")
1087     (license license:x11)))
1088
1089 (define-public xf86-input-wacom
1090   (package
1091     (name "xf86-input-wacom")
1092     (version "0.39.0")
1093     (source
1094      (origin
1095        (method url-fetch)
1096        (uri (string-append
1097              "https://github.com/linuxwacom/xf86-input-wacom/releases/download/"
1098              "xf86-input-wacom-" version "/"
1099              "xf86-input-wacom-" version ".tar.bz2"))
1100        (sha256
1101         (base32 "11qk58az6qwii774ga45h5yqzipwn56f0d74kdbajqdv45p85gqj"))))
1102     (arguments
1103      `(#:configure-flags
1104        (list (string-append "--with-sdkdir="
1105                             (assoc-ref %outputs "out")
1106                             "/include/xorg")
1107              (string-append "--with-xorg-conf-dir="
1108                             (assoc-ref %outputs "out")
1109                             "/share/X11/xorg.conf.d"))))
1110     (build-system gnu-build-system)
1111     (native-inputs
1112      `(("pkg-config" ,pkg-config)))
1113     (inputs
1114      `(("xorg-server" ,xorg-server)
1115        ("libxrandr" ,libxrandr)
1116        ("libxinerama" ,libxinerama)
1117        ("libxi" ,libxi)
1118        ("eudev" ,eudev)))
1119     (home-page "https://linuxwacom.github.io/")
1120     (synopsis "Wacom input driver for X")
1121     (description
1122      "The xf86-input-wacom driver is the wacom-specific X11 input driver for
1123 the X.Org X Server version 1.7 and later (X11R7.5 or later).")
1124     (license license:x11)))
1125
1126 (define-public redshift
1127   (package
1128     (name "redshift")
1129     (version "1.12")
1130     (source
1131      (origin
1132        (method url-fetch)
1133        (uri
1134         (string-append "https://github.com/jonls/redshift/"
1135                        "releases/download/v" version
1136                        "/redshift-" version ".tar.xz"))
1137        (sha256
1138         (base32
1139          "1fi27b73x85qqar526dbd33av7mahca2ykaqwr7siqiw1qqcby6j"))))
1140     (build-system gnu-build-system)
1141     (native-inputs
1142      `(("pkg-config" ,pkg-config)
1143        ("intltool" ,intltool)))
1144     (inputs
1145      `(("libdrm" ,libdrm)
1146        ("libx11" ,libx11)
1147        ("libxcb" ,libxcb)
1148        ("libxxf86vm" ,libxxf86vm)
1149        ("glib" ,glib)))                 ; for Geoclue2 support
1150     (home-page "https://github.com/jonls/redshift")
1151     (synopsis "Adjust the color temperature of your screen")
1152     (description
1153      "Redshift adjusts the color temperature according to the position of the
1154 sun.  A different color temperature is set during night and daytime.  During
1155 twilight and early morning, the color temperature transitions smoothly from
1156 night to daytime temperature to allow your eyes to slowly adapt.  At night the
1157 color temperature should be set to match the lamps in your room.")
1158     (license license:gpl3+)))
1159
1160 (define-public redshift-wayland
1161   (let ((commit "7da875d34854a6a34612d5ce4bd8718c32bec804")
1162         (revision "1"))
1163     (package
1164       (name "redshift-wayland")
1165       (version (string-append "1.12-"
1166                               revision "." (string-take commit 7)))
1167       (source (origin
1168                 (method git-fetch)
1169                 (uri (git-reference
1170                       (url "https://github.com/minus7/redshift.git")
1171                       (commit commit)))
1172                 (file-name (string-append name "-" version))
1173                 (sha256
1174                  (base32
1175                   "0nbkcw3avmzjg1jr1g9yfpm80kzisy55idl09b6wvzv2sz27n957"))))
1176       (build-system gnu-build-system)
1177       (native-inputs
1178        `(("autoconf" ,autoconf)
1179          ("automake" ,automake)
1180          ("libtool" ,libtool)
1181          ("pkg-config" ,pkg-config)
1182          ("intltool" ,intltool)))
1183       (inputs
1184        `(("libdrm" ,libdrm)
1185          ("libx11" ,libx11)
1186          ("libxcb" ,libxcb)
1187          ("libxxf86vm" ,libxxf86vm)
1188          ("glib" ,glib)                 ; for Geoclue2 support
1189          ("wayland" ,wayland)))
1190       (home-page "https://github.com/minus7/redshift")
1191       (synopsis "Adjust the color temperature of your screen (with Wayland support)")
1192       (description
1193        "Redshift adjusts the color temperature according to the position of the
1194 sun.  A different color temperature is set during night and daytime.  During
1195 twilight and early morning, the color temperature transitions smoothly from
1196 night to daytime temperature to allow your eyes to slowly adapt.  At night the
1197 color temperature should be set to match the lamps in your room.
1198
1199 This is a fork with added support for Wayland using the wlr-gamma-control
1200 protocol.")
1201       (license license:gpl3+))))
1202
1203 (define-public xscreensaver
1204   (package
1205     (name "xscreensaver")
1206     (version "5.43")
1207     (source
1208      (origin
1209        (method url-fetch)
1210        (uri
1211         (string-append "https://www.jwz.org/xscreensaver/xscreensaver-"
1212                        version ".tar.gz"))
1213        (sha256
1214         (base32 "1571pj1a9998sq14y9366s2rw9wd2kq3l3dvvsk610vyd0fki3qm"))))
1215     (build-system gnu-build-system)
1216     (arguments
1217      `(#:tests? #f                      ; no check target
1218        #:phases
1219        (modify-phases %standard-phases
1220          (add-before 'configure 'adjust-gtk-resource-paths
1221            (lambda _
1222              (substitute* '("driver/Makefile.in" "po/Makefile.in.in")
1223                (("@GTK_DATADIR@") "@datadir@")
1224                (("@PO_DATADIR@") "@datadir@"))
1225              #t)))
1226        #:configure-flags '("--with-pam" "--with-proc-interrupts"
1227                            "--without-readdisplay")
1228        #:make-flags (list (string-append "AD_DIR="
1229                                          (assoc-ref %outputs "out")
1230                                          "/usr/lib/X11/app-defaults"))))
1231     (native-inputs
1232      `(("pkg-config" ,pkg-config)
1233        ("intltool" ,intltool)))
1234     (inputs
1235      `(("libx11" ,libx11)
1236        ("libxext" ,libxext)
1237        ("libxi" ,libxi)
1238        ("libxt" ,libxt)
1239        ("libxft" ,libxft)
1240        ("libxmu" ,libxmu)
1241        ("libxpm" ,libxpm)
1242        ("libglade" ,libglade)
1243        ("libxml2" ,libxml2)
1244        ("libsm" ,libsm)
1245        ("libjpeg" ,libjpeg-turbo)
1246        ("linux-pam" ,linux-pam)
1247        ("pango" ,pango)
1248        ("gtk+" ,gtk+)
1249        ("perl" ,perl)
1250        ("cairo" ,cairo)
1251        ("bc" ,bc)
1252        ("libxrandr" ,libxrandr)
1253        ("glu" ,glu)
1254        ("glib" ,glib)))
1255     (home-page "https://www.jwz.org/xscreensaver/")
1256     (synopsis "Classic screen saver suite supporting screen locking")
1257     (description
1258      "xscreensaver is a popular screen saver collection with many entertaining
1259 demos.  It also acts as a nice screen locker.")
1260     ;; xscreensaver doesn't have a single copyright file and instead relies on
1261     ;; source comment headers, though most files have the same lax
1262     ;; permissions.  To reduce complexity, we're pointing at Debian's
1263     ;; breakdown of the copyright information.
1264     (license (license:non-copyleft
1265               (string-append
1266                "http://metadata.ftp-master.debian.org/changelogs/"
1267                "/main/x/xscreensaver/xscreensaver_5.36-1_copyright")))))
1268
1269 (define-public xsel
1270   (package
1271     (name "xsel")
1272     (version "1.2.0")
1273     (source (origin
1274               (method url-fetch)
1275               (uri (string-append "http://www.vergenet.net/~conrad/software"
1276                                   "/xsel/download/xsel-" version ".tar.gz"))
1277               (sha256
1278                (base32
1279                 "070lbcpw77j143jrbkh0y1v10ppn1jwmjf92800w7x42vh4cw9xr"))))
1280     (build-system gnu-build-system)
1281     (inputs
1282      `(("libxt" ,libxt)))
1283     (home-page "http://www.vergenet.net/~conrad/software/xsel/")
1284     (synopsis "Manipulate X selection")
1285     (description
1286      "XSel is a command-line program for getting and setting the contents of
1287 the X selection.  Normally this is only accessible by manually highlighting
1288 information and pasting it with the middle mouse button.
1289
1290 XSel reads from standard input and writes to standard output by default,
1291 but can also follow a growing file, display contents, delete entries and more.")
1292     (license (license:x11-style "file://COPYING"
1293                                 "See COPYING in the distribution."))))
1294
1295 (define-public xdpyprobe
1296   (package
1297     (name "xdpyprobe")
1298     (version "0.1")
1299     (source (origin
1300               (method url-fetch)
1301               (uri (string-append "https://github.com/alezost/" name
1302                                   "/releases/download/v" version
1303                                   "/" name "-" version ".tar.gz"))
1304               (sha256
1305                (base32
1306                 "1h09wd2qcg08rj5hcakvdh9q01hkrj8vxly94ax3ch2x06lm0zq8"))))
1307     (build-system gnu-build-system)
1308     (inputs
1309      `(("libx11" ,libx11)))
1310     (home-page "https://github.com/alezost/xdpyprobe")
1311     (synopsis "Probe X server for connectivity")
1312     (description
1313      "Xdpyprobe is a tiny C program whose only purpose is to probe a
1314 connectivity of the X server running on a particular @code{DISPLAY}.")
1315     (license license:gpl3+)))
1316
1317 (define-public rofi
1318   (package
1319     (name "rofi")
1320     (version "1.5.4")
1321     (source (origin
1322               (method url-fetch)
1323               (uri (string-append "https://github.com/DaveDavenport/rofi/"
1324                                   "releases/download/"
1325                                   version "/rofi-" version ".tar.xz"))
1326               (sha256
1327                (base32
1328                 "1nslmyqyzhfr4hxd4llqkkkb8ap8apkdna32rllvar7r576059ci"))))
1329     (build-system gnu-build-system)
1330     (inputs
1331      `(("pango" ,pango)
1332        ("cairo" ,cairo)
1333        ("glib" ,glib)
1334        ("startup-notification" ,startup-notification)
1335        ("librsvg" ,librsvg)
1336        ("libxkbcommon" ,libxkbcommon)
1337        ("libxcb" ,libxcb)
1338        ("xcb-util" ,xcb-util)
1339        ("xcb-util-xrm" ,xcb-util-xrm)
1340        ("xcb-util-wm" ,xcb-util-wm)))
1341     (native-inputs
1342      `(("bison" ,bison)
1343        ("check" ,check)
1344        ("flex" ,flex)
1345        ("glib:bin" ,glib "bin")
1346        ("pkg-config" ,pkg-config)))
1347     (arguments
1348      `(#:parallel-tests? #f             ; fails in some circumstances
1349        #:phases
1350        (modify-phases %standard-phases
1351          (add-before 'configure 'adjust-tests
1352            (lambda _
1353              (substitute* '("test/helper-expand.c")
1354                (("~root") "/root")
1355                (("~") "")
1356                (("g_get_home_dir \\(\\)") "\"/\""))
1357              #t)))))
1358     (home-page "https://github.com/DaveDavenport/rofi")
1359     (synopsis "Application launcher")
1360     (description "Rofi is a minimalist application launcher.  It memorizes which
1361 applications you regularly use and also allows you to search for an application
1362 by name.")
1363     (license license:expat)))
1364
1365 (define-public tint2
1366   (package
1367     (name "tint2")
1368     (version "0.14.6")
1369     (source (origin
1370               (method url-fetch)
1371               (uri (string-append "https://gitlab.com/o9000/" name
1372                                   "/repository/archive.tar.gz?ref=" version))
1373               (file-name (string-append name "-" version ".tar.gz"))
1374               (sha256
1375                (base32
1376                 "1kwzwxy4myagybm3rc7dgynfgp75742n348qibn1p2an9ggyivda"))))
1377     (build-system cmake-build-system)
1378     (arguments
1379      '(#:tests? #f                      ;no test target
1380        #:phases
1381        (modify-phases %standard-phases
1382          (add-after 'unpack 'fix-installation-prefix
1383            (lambda _
1384              (substitute* "CMakeLists.txt"
1385                (("/etc") "${CMAKE_INSTALL_PREFIX}/etc"))
1386              #t)))))
1387     (inputs
1388      `(("gtk+" ,gtk+-2)
1389        ("imlib2" ,imlib2)
1390        ("librsvg" ,librsvg)
1391        ("libxcomposite" ,libxcomposite)
1392        ("libxdamage" ,libxdamage)
1393        ("libxft" ,libxft)
1394        ("libxinerama" ,libxinerama)
1395        ("libxrandr" ,libxrandr)
1396        ("startup-notification" ,startup-notification)))
1397     (native-inputs
1398      `(("gettext" ,gettext-minimal)
1399        ("pkg-config" ,pkg-config)))
1400     (home-page "https://gitlab.com/o9000/tint2")
1401     (synopsis "Lightweight task bar")
1402     (description
1403      "Tint2 is a simple task bar made for modern X window managers.  It was
1404 specifically made for Openbox but it should also work with other window
1405 managers (GNOME, KDE, XFCE etc.).
1406
1407 The taskbar includes transparency and color settings for the font, icons,
1408 border, and background.  It also supports multihead setups, customized mouse
1409 actions, a built-in clock, a battery monitor and a system tray.")
1410     (license license:gpl2)))
1411
1412 (define-public dzen
1413   (let ((commit "488ab66019f475e35e067646621827c18a879ba1")
1414         (revision "1"))
1415     (package
1416      (name "dzen")
1417      (version (string-append "0.9.5-" ; Taken from `config.mk`.
1418                              revision "." (string-take commit 7)))
1419      (source (origin
1420               (method git-fetch)
1421               (uri (git-reference
1422                     (url "https://github.com/robm/dzen.git")
1423                     (commit commit)))
1424               (file-name (string-append name "-" version))
1425               (sha256
1426                (base32
1427                 "0y47d6ii87vf4a517gi4fh0yl06f8b085sra77immnsasbq9pxnw"))))
1428      (build-system gnu-build-system)
1429      (arguments
1430       `(#:tests? #f ; No test suite.
1431         #:make-flags ; Replacement for `config.mk`.
1432         (list
1433          (string-append "VERSION = " ,version)
1434          (string-append "PREFIX = " %output)
1435          "MANPREFIX = ${PREFIX}/share/man"
1436          "INCS = -I."
1437          "LIBS = -lc -lX11 -lXinerama -lXpm $(shell pkg-config --libs xft)"
1438          "CFLAGS = -Wall -Os ${INCS} -DVERSION=\\\"${VERSION}\\\"\
1439          -DDZEN_XINERAMA -DDZEN_XPM -DDZEN_XFT $(shell pkg-config --cflags xft)"
1440          "LDFLAGS = ${LIBS}"
1441          "CC = gcc"
1442          "LD = ${CC}")
1443         #:phases
1444         (modify-phases %standard-phases
1445           (delete 'configure) ; No configuration script.
1446           ;; Use own make-flags instead of `config.mk`.
1447           (add-before 'build 'dont-include-config-mk
1448             (lambda _
1449               (substitute* "Makefile" (("include config.mk") ""))
1450               #t)))))
1451      (inputs
1452       `(("libx11"      ,libx11)
1453         ("libxft"      ,libxft)
1454         ("libxpm"      ,libxpm)
1455         ("libxinerama" ,libxinerama)))
1456      (native-inputs `(("pkg-config" ,pkg-config)))
1457      (synopsis "General purpose messaging, notification and menuing program for X11")
1458      (description "Dzen is a general purpose messaging, notification and menuing
1459 program for X11.  It was designed to be fast, tiny and scriptable in any language.")
1460      (home-page "https://github.com/robm/dzen")
1461      (license license:expat))))
1462
1463 (define-public xftwidth
1464   (package
1465     (name "xftwidth")
1466     (version "20170402")
1467     (source
1468      (origin
1469        (method git-fetch)
1470        (uri (git-reference
1471              (url "http://github.com/vixus0/xftwidth")
1472              (commit "35ff963908d41a8a6a7101c434c88255728025ee")))
1473        (sha256
1474         (base32
1475          "1jwl25785li24kbp0m1wxfwk4dgxkliynn03nsj813cjr34kq16h"))
1476        (file-name (string-append name "-" version "-checkout"))))
1477     (build-system gnu-build-system)
1478     (inputs `(("freetype" ,freetype)
1479               ("libx11" ,libx11)
1480               ("fontconfig" ,fontconfig)
1481               ("libxft" ,libxft)))
1482     (native-inputs
1483      `(("pkg-config" ,pkg-config)))
1484     (arguments
1485      '(#:phases
1486        (modify-phases %standard-phases
1487          (add-after 'unpack 'fix-makefile ; /usr/bin doesn't show up in PATH
1488            (lambda _ (substitute* "Makefile" (("usr/") "")) #t))
1489          (delete 'check) ; no check included in Makefile
1490          (delete 'configure))
1491        #:make-flags
1492        (let ((out (assoc-ref %outputs "out")))
1493          (list (string-append "DESTDIR=" out)))))
1494     (synopsis "Calculator for determining pixel widths of displayed text using Xft fonts")
1495     (description "xftwidth is a small C program for calculating the pixel
1496 widths of displayed text using Xft fonts. It is especially useful in scripts
1497 for displaying text in graphical panels, menus, popups, and notification
1498 windows generated using dzen. These scripts are often used in conjunction with
1499 minimalistic tiling window managers such as herbstluftwm and bspwm.")
1500     (home-page "http://github.com/vixus0/xftwidth")
1501     (license license:expat)))
1502
1503 (define-public xcb-util-xrm
1504   (package
1505     (name "xcb-util-xrm")
1506     (version "1.3")
1507     (source (origin
1508               (method url-fetch)
1509               (uri (string-append
1510                     "https://github.com/Airblader/xcb-util-xrm/releases"
1511                     "/download/v" version "/xcb-util-xrm-" version ".tar.bz2"))
1512               (sha256
1513                (base32
1514                 "118cj1ybw86pgw0l5whn9vbg5n5b0ijcpx295mwahzi004vz671h"))
1515               (modules '((guix build utils)))
1516               (snippet
1517                ;; Drop bundled m4.
1518                '(begin
1519                   (delete-file-recursively "m4")
1520                   #t))))
1521     (build-system gnu-build-system)
1522     (native-inputs
1523      `(("pkg-config" ,pkg-config)
1524        ("m4" ,m4)
1525        ("libx11" ,libx11))) ; for tests
1526     (inputs
1527      `(("libxcb" ,libxcb)
1528        ("xcb-util" ,xcb-util)))
1529     (home-page "https://github.com/Airblader/xcb-util-xrm")
1530     (synopsis "XCB utility functions for the X resource manager")
1531     (description
1532      "The XCB util module provides a number of libraries which sit on
1533 top of libxcb, the core X protocol library, and some of the extension
1534 libraries.  These experimental libraries provide convenience functions
1535 and interfaces which make the raw X protocol more usable.  Some of the
1536 libraries also provide client-side code which is not strictly part of
1537 the X protocol but which has traditionally been provided by Xlib.
1538
1539 XCB util-xrm module provides the following libraries:
1540
1541 - xrm: utility functions for the X resource manager.")
1542     (license license:x11)))
1543
1544 (define-public xcalib
1545   (package
1546     (name "xcalib")
1547     (version "0.10")
1548     (home-page "https://github.com/OpenICC/xcalib")
1549     (source (origin
1550               (method git-fetch)
1551               (uri (git-reference
1552                     (url home-page)
1553                     (commit version)))
1554               (file-name (git-file-name name version))
1555               (sha256
1556                (base32
1557                 "05fzdjmhiafgi2jf0k41i3nm0837a78sb6yv59cwc23nla8g0bhr"))
1558               (patches
1559                (list
1560                 ;; Add missing documentation for the new --output option.
1561                 ;; This upstream patch can be removed on the next update.
1562                 (origin
1563                   (method url-fetch)
1564                   (uri (string-append
1565                         home-page "/commit/"
1566                         "ae03889b91fe984b18e925ad2b5e6f2f7354e058.patch"))
1567                   (file-name "xcalib-update-man-page.patch")
1568                   (sha256
1569                    (base32
1570                     "0f7b4d5484x4b9n1bwhqmar0kcaa029ffff7bp3xpr734n1qgqb6")))))))
1571     (build-system cmake-build-system)
1572     (arguments
1573      '(#:tests? #f))                    ; no test suite
1574     (inputs `(("libx11" ,libx11)
1575               ("libxext" ,libxext)
1576               ("libxrandr" ,libxrandr)
1577               ("libxxf86vm" ,libxxf86vm)))
1578     (synopsis "Tiny monitor calibration loader for XFree86 (or X.org)")
1579     (description "xcalib is a tiny tool to load the content of vcgt-Tags in ICC
1580 profiles to the video card's gamma ramp.  It does work with most video card
1581 drivers except the generic VESA driver.  Alter brightness, contrast, RGB, and
1582 invert colors on a specific display/screen.")
1583     (license license:gpl2)))
1584
1585 (define-public nxbelld
1586   (package
1587     (name "nxbelld")
1588     (version "0.1.2")
1589     (source (origin
1590               (method git-fetch)
1591               (uri (git-reference
1592                     (url "https://github.com/dusxmt/nxbelld.git")
1593                     (commit version)))
1594               (sha256
1595                (base32
1596                 "04qwhmjs51irinz5mjlxdb3dc6vr79dqmc5fkj80x1ll3ylh5n3z"))
1597               (file-name (git-file-name name version))))
1598     (build-system gnu-build-system)
1599     (arguments '(#:configure-flags `("--enable-sound"
1600                                      "--enable-wave"
1601                                      "--enable-alsa")))
1602     (native-inputs `(("autoconf" ,autoconf)
1603                      ("automake" ,automake)
1604                      ("pkg-config" ,pkg-config)
1605                      ("perl" ,perl)))
1606     (inputs `(("libx11" ,libx11)
1607               ("alsa-lib" ,alsa-lib)))
1608     (synopsis "Daemon that performs an action every time the X11 bell is rung")
1609     (description "nxbelld is a tiny utility to aid people who either don't
1610 like the default PC speaker beep, or use a sound driver that doesn't have
1611 support for the PC speaker.  The utility performs a given action every time
1612 the X bell is rung.  The actions nxbelld can currently perform include running
1613 a specified program, emulating the PC speaker beep using the sound card (default),
1614 or playing a PCM encoded WAVE file.")
1615     (home-page "https://github.com/dusxmt/nxbelld")
1616     (license license:gpl3+)))
1617
1618 (define-public xautolock
1619   (package
1620     (name "xautolock")
1621     (version "2.2")
1622     (source (origin
1623               (method url-fetch)
1624               (uri (string-append "https://www.ibiblio.org/pub/linux/X11/"
1625                                   "screensavers/xautolock-" version ".tgz"))
1626               (sha256
1627                (base32
1628                 "18jd3k3pvlm5x1adyqw63z2b3f4ixh9mfvz9asvnskk3fm8jgw0i"))))
1629     (build-system gnu-build-system)
1630     (native-inputs
1631      `(("imake" ,imake)))
1632     (inputs
1633      `(("libx11" ,libx11)
1634        ("libxext" ,libxext)
1635        ("libxscrnsaver" ,libxscrnsaver)))
1636     (arguments
1637      `(#:tests? #f
1638        #:phases
1639        (modify-phases %standard-phases
1640          (replace 'configure
1641            (lambda* (#:key inputs outputs #:allow-other-keys)
1642              (let ((imake (assoc-ref inputs "imake"))
1643                    (out   (assoc-ref outputs "out")))
1644                ;; Generate Makefile
1645                (invoke "xmkmf")
1646                (substitute* "Makefile"
1647                  ;; These imake variables somehow remain undefined
1648                  (("DefaultGcc2[[:graph:]]*Opt") "-O2")
1649                  ;; Reset a few variable defaults that are set in imake templates
1650                  ((imake) out)
1651                  (("(MANPATH = )[[:graph:]]*" _ front)
1652                   (string-append front out "/share/man")))
1653                ;; Old BSD-style 'union wait' is unneeded (defining
1654                ;; _USE_BSD did not seem to fix it)
1655                (substitute* "src/engine.c"
1656                  (("union wait  status") "int status = 0"))
1657                #t)))
1658          (add-after 'install 'install/man
1659            (lambda _
1660              (invoke "make" "install.man"))))))
1661     (home-page "https://ibiblio.org/pub/Linux/X11/screensavers/")
1662     (synopsis "Program launcher for idle X sessions")
1663     (description "Xautolock monitors input devices under the X Window
1664 System, and launches a program of your choice if there is no activity after
1665 a user-configurable period of time.")
1666     (license license:gpl2)))
1667
1668 (define-public screen-message
1669   (package
1670     (name "screen-message")
1671     (version "0.25")
1672     (source (origin
1673               (method url-fetch)
1674               (uri (string-append
1675                     "https://www.joachim-breitner.de/archive/screen-message"
1676                     "/screen-message-" version ".tar.gz"))
1677               (sha256
1678                (base32
1679                 "1lw955qq5pq010lzmaf32ylj2iprgsri9ih4hx672c3f794ilab0"))))
1680     (build-system gnu-build-system)
1681     (inputs `(("gtk3" ,gtk+)
1682               ("gdk" ,gdk-pixbuf)
1683               ("pango" ,pango)))
1684     (native-inputs `(("pkg-config" ,pkg-config)))
1685     (arguments
1686      ;; The default configure puts the 'sm' binary in games/ instead of bin/ -
1687      ;; this fixes it:
1688      `(#:make-flags (list (string-append "execgamesdir=" %output "/bin"))))
1689     (synopsis "Print messages on your screen")
1690     (description "@code{screen-message} is a tool for displaying text on
1691 your screen.  It will make the text as large as possible and display it
1692 with black color on a white background (colors are configurable on the
1693 commandline).")
1694     (home-page "https://www.joachim-breitner.de/projects#screen-message")
1695     (license license:gpl2+)))
1696
1697 (define-public xss-lock
1698   ;; xss-lock does not seem to be maintained any longer, but the last commits
1699   ;; fix important issues so we package them.
1700   (let ((version "0.3.0")
1701         (revision "1")
1702         (commit "1e158fb20108058dbd62bd51d8e8c003c0a48717"))
1703     (package
1704       (name "xss-lock")
1705       (version (git-version version revision commit))
1706       (source (origin
1707                 (method git-fetch)
1708                 (uri (git-reference
1709                       (url "https://bitbucket.org/raymonad/xss-lock.git")
1710                       (commit commit)))
1711                 (file-name (git-file-name name version))
1712                 (sha256
1713                  (base32
1714                   "10hx7k7ga8g08akwz8qrsvj8iqr5nd4siiva6sjx789jvf0sak7r"))))
1715       (build-system cmake-build-system)
1716       (inputs `(("glib" ,glib)
1717                 ("xcb-util" ,xcb-util)))
1718       (native-inputs
1719        `(("python-docutils" ,python-docutils)
1720          ("pkg-config" ,pkg-config)))
1721       (arguments
1722        `(#:tests? #f))
1723       (synopsis "Use external screen locker on events")
1724       (description "@code{xss-lock} listens to X signals to fire up a
1725 user-defined screensaver.  In effect this allows to automatically lock the
1726 screen when closing a laptop lid or after a period of user inactivity (as set
1727 with @code{xset s TIMEOUT}).  The notifier command, if specified, is executed
1728 first.  Additionally, xss-lock uses the inhibition logic to lock the screen
1729 before the system goes to sleep.")
1730       (home-page "https://bitbucket.org/raymonad/xss-lock")
1731       (license license:expat))))
1732
1733 (define-public python-pyperclip
1734   (package
1735     (name "python-pyperclip")
1736     (version "1.6.4")
1737     (source
1738       (origin
1739         (method url-fetch)
1740         (uri (pypi-uri "pyperclip" version))
1741         (sha256
1742          (base32
1743           "1p505c23ji06r28k1y67siihsbdzdf1brhlqpyv9ams4gk9863pp"))))
1744     (build-system python-build-system)
1745     (arguments
1746      '(#:tests? #f)) ; Not clear how to make tests pass.
1747     (inputs
1748      `(("xclip" ,xclip)
1749        ("xsel" ,xsel)))
1750     (home-page "https://github.com/asweigart/pyperclip")
1751     (synopsis "Python clipboard module")
1752     (description
1753      "Pyperclip is a clipboard module for Python, handling copy/pasting from
1754 the X11 clipboard")
1755     (license license:bsd-3)))
1756
1757 (define-public numlockx
1758   (package
1759     (name "numlockx")
1760     (version "1.2")
1761     (source (origin
1762               (method git-fetch)
1763               (uri (git-reference
1764                     ;; It seems that upstream is gone.
1765                     (url "https://github.com/rg3/numlockx")
1766                     (commit version)))
1767               (file-name (git-file-name name version))
1768               (sha256
1769                (base32
1770                 "1w49fayhwzn5rx0z1q2lrvm7z8jrd34lgb89p853a024bixc3cf2"))))
1771     (build-system gnu-build-system)
1772     (inputs
1773      `(("xorg-server" ,xorg-server)))
1774     (home-page "https://github.com/rg3/numlockx")
1775     (synopsis "Turns on the numlock key in X11")
1776     (description "@command{numlockx} is a tiny program that lets you turn on
1777 the numlock key in X11.  It can be called from the user's initialization files
1778 to automatically turn it on on login.")
1779     (license license:expat)))
1780
1781 (define-public xrandr-invert-colors
1782   (package
1783     (name "xrandr-invert-colors")
1784     (version "0.01")
1785     (source (origin
1786               (method git-fetch)
1787               (uri (git-reference
1788                     (url "https://github.com/zoltanp/xrandr-invert-colors.git")
1789                     (commit (string-append "v" version))))
1790               (file-name (git-file-name name version))
1791               (sha256
1792                (base32
1793                 "1br3x9vr6xm4ika06n8cfxx1b3wdchdqvyzjl4y1chmivrml8x9h"))))
1794     (build-system gnu-build-system)
1795     (arguments
1796      `(#:make-flags (list "CC=gcc")
1797        #:tests? #f ; there are none
1798        #:phases
1799        (modify-phases %standard-phases
1800          (delete 'configure)
1801          (replace 'install
1802            (lambda* (#:key outputs #:allow-other-keys)
1803              (let* ((out  (assoc-ref outputs "out"))
1804                     (bin  (string-append out "/bin")))
1805                (install-file "xrandr-invert-colors.bin" bin)
1806                #t))))))
1807     (inputs
1808      `(("libxrandr" ,libxrandr)))
1809     (home-page "https://github.com/zoltanp/xrandr-invert-colors")
1810     (synopsis "Invert display colors")
1811     (description "This package provides a small utility for inverting the
1812 colors on all monitors attached to an XRandR-capable X11 display server.")
1813     (license license:gpl3+)))
1814
1815 (define-public sct
1816   (package
1817     (name "sct")
1818     (version "0.4")
1819     (source
1820      (origin
1821        (method url-fetch)
1822        (uri
1823         (string-append "https://www.umaxx.net/dl/sct-"
1824                        version ".tar.gz"))
1825        (sha256
1826         (base32
1827          "0r57z9ki8pvxhawfxys0v5h85z2x211sqxki0xvk1bga88ryldlv"))))
1828     (build-system gnu-build-system)
1829     (arguments
1830      '(#:make-flags (list "CC=gcc")
1831        #:tests? #f ; No tests exist.
1832        #:phases
1833        (modify-phases %standard-phases
1834          (delete 'configure)
1835          (add-after 'unpack 'fix-sctd-paths
1836            (lambda* (#:key outputs inputs #:allow-other-keys)
1837              (let ((out (assoc-ref outputs "out"))
1838                    (coreutils (assoc-ref inputs "coreutils"))
1839                    (inetutils (assoc-ref inputs "inetutils"))
1840                    (sed (assoc-ref inputs "sed")))
1841                (substitute* "sctd.sh"
1842                  (("\\$\\(which sct\\)") (string-append out "/bin/sct"))
1843                  (("date") (string-append coreutils "/bin/date"))
1844                  (("printf") (string-append coreutils "/bin/printf"))
1845                  (("sleep") (string-append coreutils "/bin/sleep"))
1846                  (("logger") (string-append inetutils "/bin/logger"))
1847                  (("sed") (string-append sed "/bin/sed"))))))
1848          (replace 'install
1849            (lambda* (#:key outputs #:allow-other-keys)
1850              (let ((out (assoc-ref outputs "out")))
1851                (install-file "sct" (string-append out "/bin"))
1852                (install-file "sctd.sh" (string-append out "/bin"))
1853                (install-file "sct.1" (string-append out "/man/man1"))
1854                (install-file "sctd.1" (string-append out "/man/man1"))
1855                (rename-file (string-append out "/bin/sctd.sh")
1856                             (string-append out "/bin/sctd"))
1857                #t))))))
1858     (inputs
1859      `(("coreutils" ,coreutils) ; sctd uses "date", "printf" and "sleep"
1860        ("inetutils" ,inetutils) ; sctd uses "logger"
1861        ("libxrandr" ,libxrandr)
1862        ("sed" ,sed))) ; sctd uses "sed"
1863     (home-page "https://www.umaxx.net")
1864     (synopsis "Set the color temperature of the screen")
1865     (description "@code{sct} is a lightweight utility to set the color
1866 temperature of the screen.")
1867     (license (license:non-copyleft "file://sct.c")))) ; "OpenBSD" license
1868
1869 (define-public xsecurelock
1870   (package
1871     (name "xsecurelock")
1872     (version "1.6.0")
1873     (source (origin
1874               (method url-fetch)
1875               (uri (string-append
1876                     "https://github.com/google/xsecurelock/releases"
1877                     "/download/v" version "/xsecurelock-" version ".tar.gz"))
1878               (sha256
1879                (base32 "070gknyv0s5hz9hkc6v73m2v7ssyjwgl93b5hd4glayfqxqjbmdp"))))
1880     (build-system gnu-build-system)
1881     (arguments
1882      '(#:configure-flags
1883        '("--with-pam-service-name=login"
1884          "--with-xkb"
1885          "--with-default-authproto-module=/run/setuid-programs/authproto_pam")))
1886     (native-inputs
1887      `(("pandoc" ,ghc-pandoc)
1888        ("pkg-config" ,pkg-config)))
1889     (inputs
1890      `(("fontconfig" ,fontconfig)
1891        ("libX11" ,libx11)
1892        ("libxcomposite" ,libxcomposite)
1893        ("libxext" ,libxext)
1894        ("libxfixes" ,libxfixes)
1895        ("libxft" ,libxft)
1896        ("libxmu" ,libxmu)
1897        ("libxrandr" ,libxrandr)
1898        ("libxscrnsaver" ,libxscrnsaver)
1899        ("linux-pam" ,linux-pam)))
1900     (home-page "https://github.com/google/xsecurelock")
1901     (synopsis "X11 screen lock utility with the primary goal of security")
1902     (description "@code{xsecurelock} is an X11 screen locker which uses
1903 a modular design to avoid the usual pitfalls of screen locking utility design.
1904
1905 As a consequence of the modular design, the usual screen locker service
1906 shouldn't be used with @code{xsecurelock}.  Instead, you need to add a helper
1907 binary to setuid-binaries:
1908 @example
1909 (setuid-programs (cons*
1910                    (file-append xsecurelock \"/libexec/xsecurelock/authproto_pam\")
1911                    %setuid-programs))
1912 @end example")
1913     (license license:asl2.0)))
1914
1915 (define-public wl-clipboard
1916   (package
1917     (name "wl-clipboard")
1918     (version "2.0.0_beta2")
1919     (source
1920      (origin
1921        (method git-fetch)
1922        (uri (git-reference
1923              (url "https://github.com/bugaevc/wl-clipboard.git")
1924              (commit version)))
1925        (file-name (git-file-name name version))
1926        (sha256
1927         (base32 "0wyqbaph9v1v6lwfcjf8gjhdl70icpss4wapshzfxcz3l9m1p8hv"))))
1928     (build-system meson-build-system)
1929     (native-inputs
1930      `(("pkg-config" ,pkg-config)))
1931     (inputs
1932      `(("wayland" ,wayland)
1933        ("wayland-protocols" ,wayland-protocols)))
1934     (home-page "https://github.com/bugaevc/wl-clipboard")
1935     (synopsis "Command-line copy/paste utilities for Wayland")
1936     (description "Wl-clipboard is a set of command-line copy/paste utilities for
1937 Wayland.")
1938     (license license:gpl3+)))
1939
1940 (define-public autocutsel
1941   (package
1942     (name "autocutsel")
1943     (version "0.10.0")
1944     (source (origin
1945               (method url-fetch)
1946               (uri (string-append "https://github.com/sigmike/autocutsel"
1947                                   "/releases/download/" version "/"
1948                                   "autocutsel-" version ".tar.gz"))
1949               (sha256
1950                (base32
1951                 "0gsys2dzh4az51ndcsabhlbbrjn2nm75lnjr45kg6r8sm8q66dx2"))))
1952     (build-system gnu-build-system)
1953     (arguments
1954      '(#:tests? #f)) ; no "check" target
1955     (native-inputs `(("libx11" ,libx11)
1956                      ("libxaw" ,libxaw)))
1957     (home-page "https://www.nongnu.org/autocutsel/")
1958     (synopsis "Automated X11 clipboard and cutbuffer synchronization")
1959     (description "@code{autocutsel} tracks changes in the server's cutbuffer
1960 and clipboard selection.  When the clipboard is changed, it updates the
1961 cutbuffer.  When the cutbuffer is changed, it owns the clipboard selection.
1962 The cutbuffer and clipboard selection are always synchronized.")
1963     (license license:gpl2+)))
1964
1965 (define-public jgmenu
1966   (package
1967     (name "jgmenu")
1968     (version "4.0.1")
1969     (source
1970      (origin
1971        (method git-fetch)
1972        (uri (git-reference
1973              (url "https://github.com/johanmalm/jgmenu.git")
1974              (commit (string-append "v" version))))
1975        (file-name (git-file-name name version))
1976        (sha256
1977         (base32
1978          "1q0rpg2d96sn3rrdi8m7bngnxxqyxilpjxi7skiw4gvpiv1akxjp"))))
1979     (build-system gnu-build-system)
1980     (native-inputs
1981      `(("cppcheck" ,cppcheck)
1982        ("perl" ,perl)
1983        ("pkg-config" ,pkg-config)))
1984     (inputs
1985      `(("cairo" ,cairo)
1986        ("glib" ,glib)
1987        ("librsvg" ,librsvg)
1988        ("libx11" ,libx11)
1989        ("libxml2" ,libxml2)
1990        ("libxrandr" ,libxrandr)
1991        ("pango" ,pango)))
1992     (arguments
1993      `(#:phases
1994        (modify-phases %standard-phases
1995          (add-after 'unpack 'fix-tests
1996            (lambda _
1997              (substitute* "scripts/cppcheck-wrapper.sh"
1998                (("--library=/usr/share/cppcheck/cfg/gnu\\.cfg")
1999                 ""))
2000              #t))
2001          (replace 'configure
2002            (lambda* (#:key outputs #:allow-other-keys)
2003              (setenv "CC" "gcc")
2004              (invoke "./configure"
2005                      (string-append "--prefix=" (assoc-ref outputs "out")))
2006              #t)))))
2007     (synopsis "Simple X11 menu")
2008     (description
2009      "This is a simple menu for X11 designed for scripting and tweaking.  It
2010 can optionally use some appearance settings from XSettings, tint2 and GTK.")
2011     (home-page "https://jgmenu.github.io/")
2012     (license license:gpl2)))
2013
2014 (define-public xwrits
2015   (package
2016     (name "xwrits")
2017     (version "2.26")
2018     (source
2019      (origin
2020        (method url-fetch)
2021        (uri (string-append "https://www.lcdf.org/~eddietwo/xwrits/"
2022                            "xwrits-" version ".tar.gz"))
2023        (sha256
2024         (base32 "1n7y0fqpcvmzznvbsn14hzy5ddaa3lilm8aw6ckscqndnh4lijma"))))
2025     (build-system gnu-build-system)
2026     (arguments
2027      `(#:phases
2028        (modify-phases %standard-phases
2029          (add-after 'install 'install-docs
2030            (lambda* (#:key outputs #:allow-other-keys)
2031              (let* ((out (assoc-ref outputs "out"))
2032                     (doc (string-append out "/share/doc/xwrits")))
2033                (install-file "GESTURES" doc)
2034                (install-file "README" doc)
2035                #t))))))
2036     (inputs
2037      `(("libx11" ,libx11)
2038        ("libxinerama" ,libxinerama)))
2039     (home-page "https://www.lcdf.org/~eddietwo/xwrits/")
2040     (synopsis "Reminds you to take wrist breaks")
2041     (description "Xwrits reminds you to take wrist breaks for prevention or
2042 management of repetitive stress injuries.  When you should take a break, it
2043 pops up an X window, the warning window.  You click on the warning window,
2044 then take a break.  The window changes appearance while you take the break.
2045 It changes again when your break is over.  Then you just resume typing.
2046 Xwrits hides itself until you should take another break.")
2047     (license license:gpl2)))
2048
2049 (define-public xsettingsd
2050   (package
2051     (name "xsettingsd")
2052     (version "1.0.0")
2053     (source
2054      (origin
2055        (method git-fetch)
2056        (uri (git-reference
2057              (url "https://github.com/derat/xsettingsd.git")
2058              (commit (string-append "v" version))))
2059        (file-name (git-file-name name version))
2060        (sha256
2061         (base32
2062          "05m4jlw0mgwp24cvyklncpziq1prr2lg0cq9c055sh4n9d93d07v"))))
2063     (build-system scons-build-system)
2064     (inputs
2065      `(("libx11" ,libx11)))
2066     (native-inputs
2067      `(("pkg-config" ,pkg-config)
2068        ("googletest" ,googletest)
2069        ("googletest-source" ,(package-source googletest))))
2070     (arguments
2071      `(#:scons ,scons-python2
2072        #:scons-flags
2073        (list "CC=gcc")
2074        #:phases
2075        (modify-phases %standard-phases
2076          (add-before 'build 'patch-sconstruct
2077            (lambda* (#:key inputs #:allow-other-keys)
2078              (substitute* "SConstruct"
2079                ;; scons doesn't pick up environment variables automatically
2080                ;; so it needs help to find path variables
2081                (("env = Environment\\(")
2082                 "env = Environment(
2083                          ENV = {
2084                            'PATH': os.environ['PATH'],
2085                            'CPATH': os.environ['CPATH'],
2086                            'LIBRARY_PATH': os.environ['LIBRARY_PATH'],
2087                            'PKG_CONFIG_PATH': os.environ['PKG_CONFIG_PATH']
2088                          },")
2089                ;; Update path to gtest source files used in tests
2090                (("/usr/src/gtest") (string-append
2091                                     (assoc-ref inputs "googletest-source")
2092                                     "/googletest"))
2093                ;; Exclude one warning that causes a build error
2094                (("-Werror") "-Werror -Wno-error=sign-compare"))
2095              #t))
2096          ;; The SConstruct script doesn't configure installation so
2097          ;; binaries must be copied to the output path directly
2098          (replace 'install
2099            (lambda* (#:key outputs #:allow-other-keys)
2100              (let* ((out (assoc-ref outputs "out"))
2101                     (bin (string-append out "/bin")))
2102                (mkdir-p bin)
2103                (install-file "xsettingsd" bin)
2104                (install-file "dump_xsettings" bin)
2105                #t))))))
2106     (home-page "https://github.com/derat/xsettingsd")
2107     (synopsis "Xorg settings daemon")
2108     (description "@command{xsettingsd} is a lightweight daemon that provides settings to
2109 Xorg applications via the XSETTINGS specification.  It is used for defining
2110 font and theme settings when a complete desktop environment (GNOME, KDE) is
2111 not running.  With a simple @file{.xsettingsd} configuration file one can avoid
2112 configuring visual settings in different UI toolkits separately.")
2113     (license license:bsd-3)))