gnu/packages/xdisorg.scm

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