gnu/packages/xdisorg.scm

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