gnu/packages/xdisorg.scm

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