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