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