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