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 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 Ricardo Wurmus <rekado@elephly.net>
  14 ;;; Copyright © 2016 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 Marius Bakke <mbakke@fastmail.com>
  18 ;;; Copyright © 2016 Petter <petter@mykolab.ch>
  19 ;;;
  20 ;;; This file is part of GNU Guix.
  21 ;;;
  22 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  23 ;;; under the terms of the GNU General Public License as published by
  24 ;;; the Free Software Foundation; either version 3 of the License, or (at
  25 ;;; your option) any later version.
  26 ;;;
  27 ;;; GNU Guix is distributed in the hope that it will be useful, but
  28 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  29 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30 ;;; GNU General Public License for more details.
  31 ;;;
  32 ;;; You should have received a copy of the GNU General Public License
  33 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  34
  35 (define-module (gnu packages xdisorg)
  36   #:use-module ((guix licenses) #:prefix license:)
  37   #:use-module (guix packages)
  38   #:use-module (guix download)
  39   #:use-module (guix utils)
  40   #:use-module (guix build-system cmake)
  41   #:use-module (guix build-system gnu)
  42   #:use-module (guix build-system glib-or-gtk)
  43   #:use-module (guix build-system python)
  44   #:use-module (gnu packages)
  45   #:use-module (gnu packages documentation)
  46   #:use-module (gnu packages algebra)
  47   #:use-module (gnu packages compression)
  48   #:use-module (gnu packages image)
  49   #:use-module (gnu packages pkg-config)
  50   #:use-module (gnu packages gettext)
  51   #:use-module (gnu packages gl)
  52   #:use-module (gnu packages glib)
  53   #:use-module (gnu packages gnome)
  54   #:use-module (gnu packages m4)
  55   #:use-module (gnu packages ncurses)
  56   #:use-module (gnu packages perl)
  57   #:use-module (gnu packages python)
  58   #:use-module (gnu packages linux)
  59   #:use-module (gnu packages gl)
  60   #:use-module (gnu packages guile)
  61   #:use-module (gnu packages xml)
  62   #:use-module (gnu packages gtk)
  63   #:use-module (gnu packages xorg)
  64   #:use-module (gnu packages bison))
  65
  66 ;; packages outside the x.org system proper
  67
  68 (define-public arandr
  69   (package
  70     (name "arandr")
  71     (version "0.1.9")
  72     (source (origin
  73               (method url-fetch)
  74               (uri (string-append "http://christian.amsuess.com/tools/" name
  75                                   "/files/" name "-" version ".tar.gz"))
  76               (sha256
  77                (base32
  78                 "1i3f1agixxbfy4kxikb2b241p7c2lg73cl9wqfvlwz3q6zf5faxv"))))
  79     (build-system python-build-system)
  80     (arguments
  81      `(#:python ,python-2     ;incompatible with python 3
  82        #:tests? #f ;no tests
  83        #:phases
  84        (modify-phases %standard-phases
  85          (add-after 'install 'make-xrandr-available
  86            (lambda* (#:key inputs outputs #:allow-other-keys)
  87              (wrap-program (string-append (assoc-ref outputs "out")
  88                                           "/bin/arandr")
  89                `("PATH" ":" prefix (,(string-append (assoc-ref inputs "xrandr")
  90                                                     "/bin"))))
  91              #t)))))
  92     (inputs `(("pygtk" ,python2-pygtk)
  93               ("xrandr" ,xrandr)))
  94     (native-inputs `(("gettext"           ,gettext-minimal)
  95                      ("python-docutils"   ,python2-docutils)))
  96     (home-page "https://christian.amsuess.com/tools/arandr/")
  97     (synopsis "Another RandR graphical user interface")
  98     ;; TRANSLATORS: "X11 resize-and-rotate" should not be translated.
  99     (description "ARandR is designed to provide a simple visual front end for
 100 the X11 resize-and-rotate (RandR) extension.  Relative monitor positions are
 101 shown graphically and can be changed in a drag-and-drop way.  Configurations
 102 are saved as executable shell scripts which can be loaded without using this
 103 program.")
 104     (license license:gpl3+)))
 105
 106 (define-public xclip
 107   (package
 108     (name "xclip")
 109     (version "0.12")
 110     (source
 111       (origin
 112         (method url-fetch)
 113         (uri (string-append
 114               "mirror://sourceforge/" name "/" name "/" version "/"
 115               name "-" version ".tar.gz"))
 116         (sha256
 117           (base32
 118            "0ibcf46rldnv0r424qcnai1fa5iq3lm5q5rdd7snsi5sb78gmixp"))))
 119     (build-system gnu-build-system)
 120     (arguments
 121      '(#:tests? #f))   ; There is no test suite
 122     (inputs `(("libxmu" ,libxmu)
 123               ("libxt" ,libxt)))
 124     (home-page "http://xclip.sourceforge.net/")
 125     (synopsis "Command line interface to X11 clipboard")
 126     (description "Xclip is a command line interface to the X11 clipboard.  It
 127 can also be used for copying files, as an alternative to sftp/scp, thus
 128 avoiding password prompts when X11 forwarding has already been setup.")
 129     (license license:gpl2+)))
 130
 131 (define-public libxkbcommon
 132   (package
 133     (name "libxkbcommon")
 134     (version "0.6.1")
 135     (source (origin
 136              (method url-fetch)
 137              (uri (string-append "http://xkbcommon.org/download/" name "-"
 138                                  version ".tar.xz"))
 139              (sha256
 140               (base32
 141                "0q47xa1szlxwgvwmhv4b7xwawnykz1hnc431d84nj8dlh2q8f22v"))))
 142     (build-system gnu-build-system)
 143     (inputs
 144      `(("libx11" ,libx11)
 145        ("libxcb" ,libxcb)
 146        ("xkeyboard-config" ,xkeyboard-config)))
 147     (native-inputs
 148      `(("bison" ,bison)
 149        ("pkg-config" ,pkg-config)))
 150     (arguments
 151      `(#:configure-flags
 152        (list (string-append "--with-xkb-config-root="
 153                             (assoc-ref %build-inputs "xkeyboard-config")
 154                             "/share/X11/xkb")
 155              (string-append "--with-x-locale-root="
 156                             (assoc-ref %build-inputs "libx11")
 157                             "/share/X11/locale"))))
 158     (home-page "http://xkbcommon.org/")
 159     (synopsis "Library to handle keyboard descriptions")
 160     (description "Xkbcommon is a library to handle keyboard descriptions,
 161 including loading them from disk, parsing them and handling their
 162 state.  It is mainly meant for client toolkits, window systems, and other
 163 system applications; currently that includes Wayland, kmscon, GTK+, Qt,
 164 Clutter, and more.  Despite the name, it is not currently used by anything
 165 X11 (yet).")
 166     (license (license:x11-style "file://COPYING"
 167                                 "See 'COPYING' in the distribution."))))
 168
 169 (define-public xdotool
 170   (package
 171     (name "xdotool")
 172     (version "3.20150503.1")
 173     (source
 174       (origin
 175         (method url-fetch)
 176         (uri (string-append
 177               "https://github.com/jordansissel/xdotool/releases/download/v"
 178               version "/xdotool-" version ".tar.gz"))
 179         (sha256
 180           (base32
 181            "1lcngsw33fy9my21rdiz1gs474bfdqcfxjrnfggbx4aypn1nhcp8"))
 182         (patches (search-patches "xdotool-fix-makefile.patch"))))
 183     (build-system gnu-build-system)
 184     (arguments
 185      '(#:tests? #f ; Test suite requires a lot of black magic
 186        #:phases
 187        (modify-phases %standard-phases
 188          (replace 'configure
 189            (lambda* (#:key outputs #:allow-other-keys #:rest args)
 190              (setenv "PREFIX" (assoc-ref outputs "out"))
 191              (setenv "LDFLAGS"
 192                      (string-append "-Wl,-rpath="
 193                                     (assoc-ref %outputs "out") "/lib"))
 194              (setenv "CC" "gcc"))))))
 195     (native-inputs `(("perl" ,perl))) ; for pod2man
 196     (inputs `(("libx11" ,libx11)
 197               ("libxext" ,libxext)
 198               ("libxi" ,libxi)
 199               ("libxinerama" ,libxinerama)
 200               ("libxtst" ,libxtst)
 201               ("libxkbcommon" ,libxkbcommon)))
 202     (home-page "http://www.semicomplete.com/projects/xdotool")
 203     (synopsis "Fake keyboard/mouse input, window management, and more")
 204     (description "Xdotool lets you simulate keyboard input and mouse activity,
 205 move and resize windows, etc.  It does this using X11's XTEST extension and
 206 other Xlib functions.  Additionally, you can search for windows and move,
 207 resize, hide, and modify window properties like the title.  If your window
 208 manager supports it, you can use xdotool to switch desktops, move windows
 209 between desktops, and change the number of desktops.")
 210     (license license:bsd-3)))
 211
 212 (define-public xeyes
 213   (package
 214     (name "xeyes")
 215     (version "1.0.1")
 216     (source
 217       (origin
 218         (method url-fetch)
 219         (uri (string-append
 220                "http://xeyes.sourcearchive.com/downloads/1.0.1/xeyes_"
 221                version
 222                ".orig.tar.gz"))
 223         (sha256
 224           (base32
 225             "04c3md570j67g55h3bix1qbngcslnq91skli51k3g1avki88zkm9"))))
 226     (build-system gnu-build-system)
 227     (inputs
 228       `(("libxext" ,libxext)
 229         ("libxmu" ,libxmu)
 230         ("libxt" ,libxt)))
 231     (native-inputs
 232      `(("pkg-config" ,pkg-config)))
 233     (home-page "http://xeyes.sourcearchive.com/")
 234     (synopsis "Follow-the-mouse X demo")
 235     (description "Xeyes is a demo program for x.org.  It shows eyes
 236 following the mouse.")
 237     (license license:x11)))
 238
 239
 240 (define-public pixman
 241   (package
 242     (name "pixman")
 243     (version "0.34.0")
 244     (source (origin
 245               (method url-fetch)
 246               (uri (string-append
 247                     "http://cairographics.org/releases/pixman-"
 248                     version ".tar.gz"))
 249               (sha256
 250                (base32
 251                 "13m842m9ffac3m9r0b4lvwjhwzg3w4353djkjpf00s0wnm4v5di1"))
 252               (patches (search-patches "pixman-CVE-2016-5296.patch"))))
 253     (build-system gnu-build-system)
 254     (inputs
 255      `(("libpng" ,libpng)
 256        ("zlib" ,zlib)))
 257     (native-inputs
 258      `(("pkg-config" ,pkg-config)))
 259     (home-page "http://www.pixman.org/")
 260     (synopsis "Low-level pixel manipulation library")
 261     (description "Pixman is a low-level software library for pixel
 262 manipulation, providing features such as image compositing and trapezoid
 263 rasterisation.")
 264     (license license:x11)))
 265
 266 (define-public libdrm
 267   (package
 268     (name "libdrm")
 269     (version "2.4.68")
 270     (source
 271       (origin
 272         (method url-fetch)
 273         (uri (string-append
 274                "https://dri.freedesktop.org/libdrm/libdrm-"
 275                version
 276                ".tar.bz2"))
 277         (sha256
 278          (base32
 279           "1px91j6imaaq2fy8ksvgldmv0cdz3w379jqiciqvqa99jajxjjsv"))
 280         (patches (search-patches "libdrm-symbol-check.patch"))))
 281     (build-system gnu-build-system)
 282     (inputs
 283       `(("libpciaccess" ,libpciaccess)
 284         ("libpthread-stubs" ,libpthread-stubs)))
 285     (native-inputs
 286        `(("pkg-config" ,pkg-config)))
 287     (home-page "http://dri.freedesktop.org/wiki/")
 288     (synopsis "Direct rendering userspace library")
 289     (description "The Direct Rendering Infrastructure, also known as the DRI,
 290 is a framework for allowing direct access to graphics hardware under the
 291 X Window System in a safe and efficient manner.  It includes changes to the
 292 X server, to several client libraries, and to the kernel (DRM, Direct
 293 Rendering Manager).  The most important use for the DRI is to create fast
 294 OpenGL implementations providing hardware acceleration for Mesa.
 295 Several 3D accelerated drivers have been written to the DRI specification,
 296 including drivers for chipsets produced by 3DFX, AMD (formerly ATI), Intel
 297 and Matrox.")
 298     (license license:x11)))
 299
 300
 301 (define-public mtdev
 302   (package
 303     (name "mtdev")
 304     (version "1.1.5")
 305     (source
 306       (origin
 307         (method url-fetch)
 308         (uri (string-append
 309                "http://bitmath.org/code/mtdev/mtdev-"
 310                version ".tar.bz2"))
 311         (sha256
 312          (base32
 313           "0zxs7shzgbalkvlaiibi25bd902rbmkv9n1lww6q8j3ri9qdaxv6"))))
 314     (build-system gnu-build-system)
 315     (home-page "http://bitmath.org/code/mtdev/")
 316     (synopsis "Multitouch protocol translation library")
 317     (description "Mtdev is a stand-alone library which transforms all
 318 variants of kernel MT events to the slotted type B protocol.  The events
 319 put into mtdev may be from any MT device, specifically type A without
 320 contact tracking, type A with contact tracking, or type B with contact
 321 tracking.")
 322     (license license:x11)))
 323
 324 (define-public startup-notification
 325   (package
 326     (name "startup-notification")
 327     (version "0.12")
 328     (source
 329      (origin
 330        (method url-fetch)
 331        (uri (string-append "https://www.freedesktop.org/software/" name
 332                            "/releases/" name "-" version ".tar.gz"))
 333        (sha256
 334         (base32
 335          "0jmyryrpqb35y9hd5sgxqy2z0r1snw7d3ljw0jak0n0cjdz1yf9w"))))
 336     (build-system gnu-build-system)
 337     (native-inputs `(("pkg-config" ,pkg-config)))
 338     (inputs
 339      `(("libx11" ,libx11)
 340        ("xcb-util" ,xcb-util)))
 341     (home-page "http://www.freedesktop.org/wiki/Software/startup-notification/")
 342     (synopsis "Application startup notification and feedback library")
 343     (description
 344      "Startup-notification contains a reference implementation of the startup
 345 notification protocol.  The reference implementation is mostly under an X Window
 346 System style license, and has no special dependencies.")
 347     ;; Most of the code is provided under x11 license.
 348     (license license:lgpl2.0+)))
 349
 350 (define-public wmctrl
 351   (package
 352     (name "wmctrl")
 353     (version "1.07")
 354     (source (origin
 355               (method url-fetch)
 356               (uri (string-append
 357                     "https://sites.google.com/site/tstyblo/wmctrl/wmctrl-"
 358                     version ".tar.gz"))
 359               (sha256
 360                (base32
 361                 "1afclc57b9017a73mfs9w7lbdvdipmf9q0xdk116f61gnvyix2np"))
 362               (patches (search-patches "wmctrl-64-fix.patch"))))
 363     (build-system gnu-build-system)
 364     (arguments
 365      '(#:configure-flags
 366        (list (string-append "--mandir="
 367                             (assoc-ref %outputs "out")
 368                             "/share/man"))))
 369     (native-inputs
 370      `(("pkg-config" ,pkg-config)))
 371     (inputs
 372      `(("libx11" ,libx11)
 373        ("libxmu" ,libxmu)
 374        ("glib" ,glib)))
 375     (home-page "http://tomas.styblo.name/wmctrl/")
 376     (synopsis "Command-line tool to control X window managers")
 377     (description
 378      "Wmctrl allows to interact with an X window manager that is compatible
 379 with the EWMH/NetWM specification.  It can query the window manager for
 380 information, and request for certain window management actions (resize and
 381 move windows, switch between desktops, etc.).")
 382     (license license:gpl2+)))
 383
 384 (define-public scrot
 385   (package
 386     (name "scrot")
 387     (version "0.8")
 388     (source (origin
 389               (method url-fetch)
 390               (uri (list (string-append
 391                            "http://linuxbrit.co.uk/downloads/scrot-"
 392                            version ".tar.gz")
 393                          (string-append
 394                            "https://fossies.org/linux/privat/old/scrot-"
 395                            version ".tar.gz")))
 396               (sha256
 397                (base32
 398                 "1wll744rhb49lvr2zs6m93rdmiq59zm344jzqvijrdn24ksiqgb1"))))
 399     (build-system gnu-build-system)
 400     (arguments
 401      ;; By default, man and doc are put in PREFIX/{man,doc} instead of
 402      ;; PREFIX/share/{man,doc}.
 403      '(#:configure-flags
 404        (list (string-append "--mandir="
 405                             (assoc-ref %outputs "out")
 406                             "/share/man"))
 407        #:phases
 408        (modify-phases %standard-phases
 409          (replace 'install
 410            (lambda* (#:key inputs outputs #:allow-other-keys)
 411              (let* ((out (assoc-ref outputs "out"))
 412                     (doc (string-append out "/share/doc/scrot")))
 413                (mkdir-p doc)
 414                (zero?
 415                 (system* "make" "install"
 416                          (string-append "docsdir=" doc)))))))))
 417     (inputs
 418      `(("libx11" ,libx11)
 419        ("giblib" ,giblib)))
 420     (home-page "http://linuxbrit.co.uk/software/")
 421     (synopsis "Command-line screen capture utility for X Window System")
 422     (description
 423      "Scrot allows to save a screenshot of a full screen, a window or a part
 424 of the screen selected by mouse.")
 425     ;; This license removes a clause about X Consortium from the original
 426     ;; X11 license.
 427     (license (license:x11-style "file://COPYING"
 428                                 "See 'COPYING' in the distribution."))))
 429
 430 (define-public slop
 431   (package
 432     (name "slop")
 433     (version "4.3.21")
 434     (source (origin
 435               (method url-fetch)
 436               (uri (string-append
 437                     "https://github.com/naelstrof/slop/archive/v"
 438                     version ".tar.gz"))
 439               (file-name (string-append name "-" version ".tar.gz"))
 440               (sha256
 441                (base32
 442                 "0z0p4a3p5mc6fjh5f8js9ppb0maxyvfxpiw2n6nqc5nim1kv6bim"))))
 443     (build-system cmake-build-system)
 444     (arguments '(#:tests? #f))  ; no "check" target
 445     (inputs
 446      `(("libx11" ,libx11)
 447        ("libxrandr" ,libxrandr)
 448        ("libxext" ,libxext)
 449        ("imlib2" ,imlib2)
 450        ("glew" ,glew)
 451        ("mesa" ,mesa)))
 452     (home-page "https://github.com/naelstrof/slop")
 453     (synopsis "Select a region and print its bounds to stdout")
 454     (description
 455      "slop (Select Operation) is a tool that queries for a selection from a
 456 user and prints the region to stdout.  It grabs the mouse and turns it into a
 457 crosshair, lets the user click and drag to make a selection (or click on a
 458 window) while drawing a pretty box around it, then finally prints the
 459 selection's dimensions to stdout.")
 460     (license license:gpl3+)))
 461
 462 (define-public maim
 463   (package
 464     (name "maim")
 465     (version "3.4.47")
 466     (source (origin
 467               (method url-fetch)
 468               (uri (string-append
 469                     "https://github.com/naelstrof/maim/archive/v"
 470                     version ".tar.gz"))
 471               (file-name (string-append name "-" version ".tar.gz"))
 472               (sha256
 473                (base32
 474                 "0kfp7k55bxc5h6h0wv8bwmsc5ny66h9ra2z4dzs4yzszq16544pv"))))
 475     (build-system cmake-build-system)
 476     (arguments
 477      '(#:tests? #f              ; no "check" target
 478        #:phases
 479        (modify-phases %standard-phases
 480          (add-after 'unpack 'patch-source
 481            (lambda* (#:key inputs #:allow-other-keys)
 482              (let ((slop (string-append (assoc-ref inputs "slop")
 483                                         "/bin/slop")))
 484                ;; "slop" command is hardcoded in the source; replace it
 485                ;; with the full file name.
 486                (substitute* "src/main.cpp"
 487                  (("^( +slopcommand.*)\"slop\"" all front)
 488                   (string-append front "\"" slop "\"")))))))))
 489     (inputs
 490      `(("libx11" ,libx11)
 491        ("libxrandr" ,libxrandr)
 492        ("libxfixes" ,libxfixes)
 493        ("imlib2" ,imlib2)
 494        ("slop" ,slop)))
 495     (home-page "https://github.com/naelstrof/maim")
 496     (synopsis "Screenshot utility for X Window System")
 497     (description
 498      "maim (Make Image) is a tool that takes screenshots of your desktop and
 499 saves it in any format.  Along with a full screen, it allows you to capture a
 500 predefined region or a particular window.  Also, it makes it possible to
 501 include cursor in the resulting image.")
 502     (license license:gpl3+)))
 503
 504 (define-public unclutter
 505   (package
 506     (name "unclutter")
 507     (version "8")
 508     (source (origin
 509               (method url-fetch)
 510               (uri (string-append
 511                     "http://ftp.x.org/contrib/utilities/unclutter-"
 512                     version ".tar.Z"))
 513               (sha256
 514                (base32
 515                 "0ahrr5z6wxqqfyihm112hnq0859zlxisrb3y5232zav58j6sfmdq"))))
 516     (build-system gnu-build-system)
 517     (arguments
 518      '(#:tests? #f                      ; no check target
 519        #:phases
 520        (modify-phases %standard-phases
 521          (delete 'configure)
 522          (replace 'install
 523            (lambda* (#:key inputs outputs #:allow-other-keys)
 524              (let* ((out  (assoc-ref outputs "out"))
 525                     (bin  (string-append out "/bin"))
 526                     (man1 (string-append out "/share/man/man1")))
 527                (mkdir-p bin)
 528                (mkdir-p man1)
 529                (zero?
 530                  (system* "make" "install" "install.man"
 531                           (string-append "BINDIR=" bin)
 532                           (string-append "MANDIR=" man1)))))))))
 533     (inputs `(("libx11" ,libx11)))
 534     (home-page "http://ftp.x.org/contrib/utilities/")
 535     (synopsis "Hide idle mouse cursor")
 536     (description
 537      "Unclutter is a program which runs permanently in the background of an
 538 X11 session.  It checks on the X11 pointer (cursor) position every few
 539 seconds, and when it finds it has not moved (and no buttons are pressed
 540 on the mouse, and the cursor is not in the root window) it creates a
 541 small sub-window as a child of the window the cursor is in.  The new
 542 window installs a cursor of size 1x1 but a mask of all 0, i.e. an
 543 invisible cursor.  This allows you to see all the text in an xterm or
 544 xedit, for example.  The human factors crowd would agree it should make
 545 things less distracting.")
 546     (license license:public-domain)))
 547
 548 (define-public xlockmore
 549   (package
 550     (name "xlockmore")
 551     (version "5.47")
 552     (source (origin
 553              (method url-fetch)
 554              (uri (list (string-append
 555                           "http://www.tux.org/~bagleyd/xlock/xlockmore-"
 556                           version ".tar.xz")
 557                         (string-append
 558                           "http://www.tux.org/~bagleyd/xlock/xlockmore-old"
 559                           "/xlockmore-" version
 560                           "/xlockmore-" version ".tar.xz")))
 561              (sha256
 562               (base32
 563                "138d79b8zc2hambbr9fnxp3fhihlcljgqns04zf0kv2f53pavqwl"))))
 564     (build-system gnu-build-system)
 565     (arguments
 566      '(#:configure-flags (list (string-append "--enable-appdefaultdir="
 567                                               (assoc-ref %outputs "out")
 568                                               "/lib/X11/app-defaults"))
 569        #:tests? #f))                            ;no such thing as a test suite
 570     (inputs
 571      `(("libX11" ,libx11)
 572        ("libXext" ,libxext)
 573        ("libXt" ,libxt)
 574        ("linux-pam" ,linux-pam)))
 575     (home-page "http://www.tux.org/~bagleyd/xlockmore.html")
 576     (synopsis "Screen locker for the X Window System")
 577     (description
 578      "XLockMore is a classic screen locker and screen saver for the
 579 X Window System.")
 580     (license (license:non-copyleft #f "See xlock.c.")
 581              ))) ; + GPLv2 in modes/glx/biof.c.
 582
 583 (define-public xosd
 584   (package
 585     (name "xosd")
 586     (version "2.2.14")
 587     (source (origin
 588               (method url-fetch)
 589               (uri (string-append
 590                     "mirror://sourceforge/libxosd/libxosd/xosd-" version "/"
 591                     name "-" version ".tar.gz"))
 592               (sha256
 593                (base32
 594                 "025m7ha89q29swkc7s38knnbn8ysl24g2h5s7imfxflm91psj7sg"))))
 595     (build-system gnu-build-system)
 596     (arguments
 597      '(#:configure-flags
 598        (list (string-append "--mandir=" %output "/share/man"))))
 599     (inputs
 600      `(("libx11" ,libx11)
 601        ("libxt" ,libxt)
 602        ("libxext" ,libxext)
 603        ("libxinerama" ,libxinerama)))
 604     (home-page "https://sourceforge.net/projects/libxosd/")
 605     (synopsis "X On Screen Display")
 606     (description
 607      "XOSD provides a C library and a simple utility (osd_cat) for displaying
 608 transparent text on your screen.")
 609     (license license:gpl2+)))
 610
 611 (define-public xbindkeys
 612   (package
 613     (name "xbindkeys")
 614     (version "1.8.6")
 615     (source (origin
 616               (method url-fetch)
 617               ;; Download from the savannah mirror list fails
 618               (uri (string-append
 619                     "http://www.nongnu.org/xbindkeys/xbindkeys-"
 620                     version
 621                     ".tar.gz"))
 622               (sha256
 623                (base32
 624                 "060df6d8y727jp1inp7blp44cs8a7jig7vcm8ndsn6gw36z1h3bc"))))
 625     (build-system gnu-build-system)
 626     (inputs
 627      `(("libx11" ,libx11)
 628        ("guile" ,guile-2.0)))
 629     (home-page "http://www.nongnu.org/xbindkeys/")
 630     (synopsis "Associate a combination of keys with a shell command")
 631     (description
 632      "XBindKeys is a program that allows you to launch shell commands with
 633 your keyboard or your mouse under the X Window System.  It links commands to
 634 keys or mouse buttons, using a configuration file.  It's independent of the
 635 window manager and can capture all keyboard keys (ex: Power, Wake...).  It
 636 optionally supports a Guile-based configuration file layout, which enables you
 637 to access all XBindKeys internals, so you can have key combinations, double
 638 clicks or timed double clicks take actions.  Also all functions that work in
 639 Guile will work for XBindKeys.")
 640     (license license:gpl2+)))
 641
 642 (define-public sxhkd
 643   (package
 644     (name "sxhkd")
 645     (version "0.5.6")
 646     (source
 647      (origin
 648        (file-name (string-append name "-" version ".tar.gz"))
 649        (method url-fetch)
 650        (uri (string-append
 651              "https://github.com/baskerville/sxhkd/archive/"
 652              version ".tar.gz"))
 653        (sha256
 654         (base32
 655          "15grmzpxz5fqlbfg2slj7gb7r6nzkvjmflmbkqx7mlby9pm6wdkj"))))
 656     (build-system gnu-build-system)
 657     (inputs
 658      `(("asciidoc" ,asciidoc)
 659        ("libxcb" ,libxcb)
 660        ("xcb-util" ,xcb-util)
 661        ("xcb-util-keysyms" ,xcb-util-keysyms)
 662        ("xcb-util-wm" ,xcb-util-wm)))
 663     (arguments
 664      '(#:phases (alist-delete 'configure %standard-phases)
 665        #:tests? #f  ; no check target
 666        #:make-flags (list "CC=gcc"
 667                           (string-append "PREFIX=" %output))))
 668     (home-page "https://github.com/baskerville/sxhkd")
 669     (synopsis "Simple X hotkey daemon")
 670     (description "sxhkd is a simple X hotkey daemon with a powerful and
 671 compact configuration syntax.")
 672     (license license:bsd-2)))
 673
 674 (define-public rxvt-unicode
 675   (package
 676     (name "rxvt-unicode")
 677     (version "9.22")
 678     (source (origin
 679               (method url-fetch)
 680               (uri (string-append "http://dist.schmorp.de/rxvt-unicode/Attic/"
 681                                   name "-" version ".tar.bz2"))
 682               (sha256
 683                (base32
 684                 "1pddjn5ynblwfrdmskylrsxb9vfnk3w4jdnq2l8xn2pspkljhip9"))))
 685     (build-system gnu-build-system)
 686     (arguments
 687      ;; This sets the destination when installing the necessary terminal
 688      ;; capability data, which are not provided by 'ncurses'.  See
 689      ;; https://lists.gnu.org/archive/html/bug-ncurses/2009-10/msg00031.html
 690      '(#:make-flags (list (string-append "TERMINFO="
 691                                          (assoc-ref %outputs "out")
 692                                          "/share/terminfo"))))
 693     (inputs
 694      `(("libXft" ,libxft)
 695        ("libX11" ,libx11)))
 696     (native-inputs
 697      `(("ncurses" ,ncurses)         ;trigger the installation of terminfo data
 698        ("perl" ,perl)
 699        ("pkg-config" ,pkg-config)))
 700     ;; FIXME: This should only be located in 'ncurses'.  Nonetheless it is
 701     ;; provided for usability reasons.  See <https://bugs.gnu.org/22138>.
 702     (native-search-paths
 703      (list (search-path-specification
 704             (variable "TERMINFO_DIRS")
 705             (files '("share/terminfo")))))
 706     (home-page "http://software.schmorp.de/pkg/rxvt-unicode.html")
 707     (synopsis "Rxvt clone with XFT and unicode support")
 708     (description "Rxvt-unicode (urxvt) is a colour vt102 terminal emulator
 709 intended as an xterm replacement for users who do not require features such as
 710 Tektronix 4014 emulation and toolkit-style configurability.  It supports
 711 unicode, XFT and may be extended with Perl plugins.  It also comes with a
 712 client/daemon pair that lets you open any number of terminal windows from
 713 within a single process.")
 714     (license license:gpl3+)))
 715
 716 (define-public xcape
 717   (package
 718     (name "xcape")
 719     (version "1.2")
 720     (source
 721       (origin
 722         (method url-fetch)
 723         (uri (string-append "https://github.com/alols/" name
 724                             "/archive/v" version ".tar.gz"))
 725         (file-name (string-append name "-" version ".tar.gz"))
 726         (sha256
 727           (base32
 728             "0898zc3vwxia00h9kfknpf7jygxgwggrx8v5mxc31w4lzn2dhzm2"))))
 729     (build-system gnu-build-system)
 730     (arguments
 731      `(#:tests? #f ; no check target
 732        #:phases (alist-delete 'configure %standard-phases) ; no configure script
 733        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
 734                           "MANDIR=/share/man/man1"
 735                           "CC=gcc")))
 736     (inputs
 737      `(("libxtst" ,libxtst)
 738        ("libx11" ,libx11)))
 739     (native-inputs
 740      `(("pkg-config" ,pkg-config)))
 741     (home-page "http://github.com/alols/xcape")
 742     (synopsis "Use a modifier key in X.org as another key")
 743     (description
 744      "This utility for X.org allows to use modifier key as another key when
 745 pressed and released on its own.  The default behaviour is to generate the
 746 Escape key when Left Control is pressed and released on its own.")
 747     (license license:gpl3+)))
 748
 749 (define-public libwacom
 750   (package
 751     (name "libwacom")
 752     (version "0.12")
 753     (source (origin
 754               (method url-fetch)
 755               (uri (string-append "mirror://sourceforge/linuxwacom/libwacom/"
 756                                   name "-" version ".tar.bz2"))
 757               (sha256
 758                (base32
 759                 "022d0097dk2glgb6772zpcsqm1w42sbsbr3i72pdhzq6naqawys8"))))
 760     (build-system glib-or-gtk-build-system)
 761     (native-inputs
 762      `(("pkg-config" ,pkg-config)))
 763     (inputs
 764      `(("gtk+" ,gtk+)
 765        ("libgudev" ,libgudev)
 766        ("eudev" ,eudev)
 767        ("libxml2" ,libxml2)))
 768     (propagated-inputs
 769      ;; libwacom includes header files that include GLib, and libinput uses
 770      ;; those header files.
 771      `(("glib" ,glib)))
 772     (home-page "http://linuxwacom.sourceforge.net/")
 773     (synopsis "Helper library for Wacom tablet settings")
 774     (description
 775      "Libwacom is a library to help implement Wacom tablet settings.  It is
 776 intended to be used by client-programs that need model identification.  It is
 777 already being used by the gnome-settings-daemon and the GNOME Control Center
 778 Wacom tablet applet.")
 779     (license license:x11)))
 780
 781 (define-public xf86-input-wacom
 782   (package
 783     (name "xf86-input-wacom")
 784     (version "0.29.0")
 785     (source (origin
 786               (method url-fetch)
 787               (uri (string-append
 788                     "mirror://sourceforge/linuxwacom/xf86-input-wacom/"
 789                     name "-" version ".tar.bz2"))
 790               (sha256
 791                (base32
 792                 "15lbzjkaf690i69qy0n0ibwczbclqq1nx0418c6a567by5v7wl48"))))
 793     (arguments
 794      `(#:configure-flags
 795        (list (string-append "--with-sdkdir="
 796                             (assoc-ref %outputs "out")
 797                             "/include/xorg")
 798              (string-append "--with-xorg-conf-dir="
 799                             (assoc-ref %outputs "out")
 800                             "/share/X11/xorg.conf.d"))))
 801     (build-system gnu-build-system)
 802     (native-inputs
 803      `(("pkg-config" ,pkg-config)))
 804     (inputs
 805      `(("xorg-server" ,xorg-server)
 806        ("libxrandr" ,libxrandr)
 807        ("libxinerama" ,libxinerama)
 808        ("libxi" ,libxi)
 809        ("eudev" ,eudev)))
 810     (home-page "http://linuxwacom.sourceforge.net/")
 811     (synopsis "Wacom input driver for X")
 812     (description
 813      "The xf86-input-wacom driver is the wacom-specific X11 input driver for
 814 the X.Org X Server version 1.7 and later (X11R7.5 or later).")
 815     (license license:x11)))
 816
 817 (define-public redshift
 818   (package
 819     (name "redshift")
 820     (version "1.11")
 821     (source
 822      (origin
 823        (method url-fetch)
 824        (uri
 825         (string-append "https://github.com/jonls/redshift/"
 826                        "releases/download/v" version
 827                        "/redshift-" version ".tar.xz"))
 828        (sha256
 829         (base32
 830          "0ngkwj7rg8nfk806w0sg443w6wjr91xdc0zisqfm5h2i77wm1qqh"))))
 831     (build-system gnu-build-system)
 832     (native-inputs
 833      `(("pkg-config" ,pkg-config)
 834        ("intltool" ,intltool)))
 835     (inputs
 836      `(("libdrm" ,libdrm)
 837        ("libx11" ,libx11)
 838        ("libxcb" ,libxcb)
 839        ("libxxf86vm" ,libxxf86vm)
 840        ("libjpeg" ,libjpeg)
 841        ("glib" ,glib)))                           ;for Geoclue2 support
 842     (home-page "https://github.com/jonls/redshift")
 843     (synopsis "Adjust the color temperature of your screen")
 844     (description
 845      "Redshift adjusts the color temperature according to the position of the
 846 sun.  A different color temperature is set during night and daytime.  During
 847 twilight and early morning, the color temperature transitions smoothly from
 848 night to daytime temperature to allow your eyes to slowly adapt.  At night the
 849 color temperature should be set to match the lamps in your room.")
 850     (license license:gpl3+)))
 851
 852 (define-public xscreensaver
 853   (package
 854     (name "xscreensaver")
 855     (version "5.35")
 856     (source
 857      (origin
 858        (method url-fetch)
 859        (uri
 860         (string-append "https://www.jwz.org/xscreensaver/xscreensaver-"
 861                        version ".tar.gz"))
 862        (sha256
 863         (base32
 864          "08kbb0ry7ih436ab4i5g6lnhaaz13zkcdmbdibrn4j5gm5qq8v0y"))))
 865     (build-system gnu-build-system)
 866     (arguments
 867      `(#:tests? #f  ; no check target
 868        #:phases
 869        (modify-phases %standard-phases
 870          (add-before 'configure 'adjust-gtk-resource-paths
 871            (lambda _
 872              (substitute* '("driver/Makefile.in" "po/Makefile.in.in")
 873                (("@GTK_DATADIR@") "@datadir@")
 874                (("@PO_DATADIR@") "@datadir@")))))
 875        #:configure-flags '("--with-pam" "--with-proc-interrupts"
 876                            "--without-readdisplay")
 877        #:make-flags (list (string-append "AD_DIR="
 878                                          (assoc-ref %outputs "out")
 879                                          "/usr/lib/X11/app-defaults"))))
 880     (native-inputs
 881      `(("pkg-config" ,pkg-config)
 882        ("intltool" ,intltool)))
 883     (inputs
 884      `(("libx11" ,libx11)
 885        ("libxext" ,libxext)
 886        ("libxi" ,libxi)
 887        ("libxt" ,libxt)
 888        ("libxft" ,libxft)
 889        ("libxmu" ,libxmu)
 890        ("libxpm" ,libxpm)
 891        ("libglade" ,libglade)
 892        ("libxml2" ,libxml2)
 893        ("libsm" ,libsm)
 894        ("libjpeg" ,libjpeg)
 895        ("linux-pam" ,linux-pam)
 896        ("pango" ,pango)
 897        ("gtk+" ,gtk+)
 898        ("perl" ,perl)
 899        ("cairo" ,cairo)
 900        ("bc" ,bc)
 901        ("libxrandr" ,libxrandr)
 902        ("glu" ,glu)
 903        ("glib" ,glib)))
 904     (home-page "https://www.jwz.org/xscreensaver/")
 905     (synopsis "Classic screen saver suite supporting screen locking")
 906     (description
 907      "xscreensaver is a popular screen saver collection with many entertaining
 908 demos.  It also acts as a nice screen locker.")
 909     ;; xscreensaver doesn't have a single copyright file and instead relies on
 910     ;; source comment headers, though most files have the same lax
 911     ;; permissions.  To reduce complexity, we're pointing at Debian's
 912     ;; breakdown of the copyright information.
 913     (license (license:non-copyleft
 914               (string-append
 915                "http://metadata.ftp-master.debian.org/changelogs/"
 916                "/main/x/xscreensaver/xscreensaver_5.34-2_copyright")))))
 917
 918 (define-public xdpyprobe
 919   (package
 920     (name "xdpyprobe")
 921     (version "0.1")
 922     (source (origin
 923               (method url-fetch)
 924               (uri (string-append "https://github.com/alezost/" name
 925                                   "/releases/download/v" version
 926                                   "/" name "-" version ".tar.gz"))
 927               (sha256
 928                (base32
 929                 "1h09wd2qcg08rj5hcakvdh9q01hkrj8vxly94ax3ch2x06lm0zq8"))))
 930     (build-system gnu-build-system)
 931     (inputs
 932      `(("libx11" ,libx11)))
 933     (home-page "https://github.com/alezost/xdpyprobe")
 934     (synopsis "Probe X server for connectivity")
 935     (description
 936      "Xdpyprobe is a tiny C program whose only purpose is to probe a
 937 connectivity of the X server running on a particular @code{DISPLAY}.")
 938     (license license:gpl3+)))
 939
 940 (define-public rofi
 941   (package
 942     (name "rofi")
 943     (version "1.3.0")
 944     (source (origin
 945               (method url-fetch)
 946               (uri (string-append "https://github.com/DaveDavenport/rofi/"
 947                                   "releases/download/"
 948                                   version "/rofi-" version ".tar.xz"))
 949               (sha256
 950                (base32
 951                 "1a65ai93ygras5bi7wc0s5i3zqslzqlnw3klq3sdnp2p0d6hjjqn"))))
 952     (build-system gnu-build-system)
 953     (inputs
 954      `(("pango" ,pango)
 955        ("cairo" ,cairo)
 956        ("glib" ,glib)
 957        ("startup-notification" ,startup-notification)
 958        ("libxkbcommon" ,libxkbcommon)
 959        ("libxcb" ,libxcb)
 960        ("xcb-util" ,xcb-util)
 961        ("xcb-util-xrm" ,xcb-util-xrm)
 962        ("xcb-util-wm" ,xcb-util-wm)))
 963     (native-inputs
 964      `(("pkg-config" ,pkg-config)))
 965     (arguments
 966      `(#:phases
 967        (modify-phases %standard-phases
 968          (add-before 'configure 'adjust-tests
 969            (lambda _
 970              (substitute* '("test/helper-expand.c")
 971                (("~root") "/root")
 972                (("~") "")
 973                (("g_get_home_dir \\(\\)") "\"/\"")))))))
 974     (home-page "https://davedavenport.github.io/rofi/")
 975     (synopsis "Application Launcher")
 976     (description "Rofi is a minimalist Application Launcher.  It memorizes which
 977 applications you regularily use and also allows you to search for an application
 978 by name.")
 979     (license license:expat)))
 980
 981 (define-public tint2
 982   (package
 983     (name "tint2")
 984     (version "0.12.11")
 985     (source (origin
 986               (method url-fetch)
 987               (uri (string-append "https://gitlab.com/o9000/" name
 988                                   "/repository/archive.tar.gz?ref=" version))
 989               (file-name (string-append name "-" version ".tar.gz"))
 990               (sha256
 991                (base32
 992                 "0dv7zaj2ahnfclnwnwcz9arrvzxn65yy29z7fqdgifdh3jk1kl2h"))))
 993     (build-system cmake-build-system)
 994     (arguments
 995      '(#:tests? #f                      ;no test target
 996        #:phases
 997        (modify-phases %standard-phases
 998          (add-after 'unpack 'fix-installation-prefix
 999            (lambda _
1000              (substitute* "CMakeLists.txt"
1001                (("/etc") "${CMAKE_INSTALL_PREFIX}/etc")))))))
1002     (inputs
1003      `(("gtk+" ,gtk+-2)
1004        ("imlib2" ,imlib2)
1005        ("librsvg" ,librsvg)
1006        ("libxcomposite" ,libxcomposite)
1007        ("libxdamage" ,libxdamage)
1008        ("libxft" ,libxft)
1009        ("libxinerama" ,libxinerama)
1010        ("libxrandr" ,libxrandr)
1011        ("startup-notification" ,startup-notification)))
1012     (native-inputs
1013      `(("gettext" ,gettext-minimal)
1014        ("pkg-config" ,pkg-config)))
1015     (home-page "https://gitlab.com/o9000/tint2")
1016     (synopsis "Lightweight task bar")
1017     (description
1018      "Tint2 is a simple task bar made for modern X window managers.  It was
1019 specifically made for Openbox but it should also work with other window
1020 managers (GNOME, KDE, XFCE etc.).
1021
1022 The taskbar includes transparency and color settings for the font, icons,
1023 border, and background.  It also supports multihead setups, customized mouse
1024 actions, a built-in clock, a battery monitor and a system tray.")
1025     (license license:gpl2)))
1026
1027 (define-public xcb-util-xrm
1028   (package
1029     (name "xcb-util-xrm")
1030     (version "1.2")
1031     (source (origin
1032               (method url-fetch)
1033               (uri (string-append
1034                     "https://github.com/Airblader/xcb-util-xrm/releases"
1035                     "/download/v" version "/xcb-util-xrm-" version ".tar.bz2"))
1036               (sha256
1037                (base32
1038                 "0vbqhag51i0njc8d5fc8c6aa12496cwrc3s6s7sa5kfc17cwhppp"))
1039               (modules '((guix build utils)))
1040               (snippet
1041                ;; Drop bundled m4.
1042                '(delete-file-recursively "m4"))))
1043     (build-system gnu-build-system)
1044     (native-inputs
1045      `(("pkg-config" ,pkg-config)
1046        ("m4" ,m4)
1047        ("libx11" ,libx11))) ; for tests
1048     (inputs
1049      `(("libxcb" ,libxcb)
1050        ("xcb-util" ,xcb-util)))
1051     (home-page "https://github.com/Airblader/xcb-util-xrm")
1052     (synopsis "XCB utility functions for the X resource manager")
1053     (description
1054      "The XCB util module provides a number of libraries which sit on
1055 top of libxcb, the core X protocol library, and some of the extension
1056 libraries.  These experimental libraries provide convenience functions
1057 and interfaces which make the raw X protocol more usable.  Some of the
1058 libraries also provide client-side code which is not strictly part of
1059 the X protocol but which has traditionally been provided by Xlib.
1060
1061 XCB util-xrm module provides the following libraries:
1062
1063 - xrm: utility functions for the X resource manager.")
1064     (license license:x11)))
1065
1066 (define-public xcalib
1067   (package
1068     (name "xcalib")
1069     (version "0.8")
1070     (source (origin
1071               (method url-fetch)
1072               (uri (string-append "mirror://sourceforge/xcalib/xcalib/" version
1073                                   "/xcalib-source-" version ".tar.gz"))
1074               (sha256
1075                (base32
1076                 "1rh6xb51c5xz926dnn82a2fn643g0sr4a8z66rn6yi7523kjw4ca"))))
1077     (build-system gnu-build-system)
1078     (arguments
1079      '(#:make-flags '("CC=gcc")
1080        #:tests? #f   ; No test suite
1081        #:phases (modify-phases %standard-phases
1082                   (delete 'configure)
1083                   (replace 'install
1084                     (lambda* (#:key outputs #:allow-other-keys)
1085                       (let* ((out (assoc-ref outputs "out"))
1086                              (bin (string-append out "/bin")))
1087                         (install-file "xcalib" bin))))
1088                   (add-after 'install 'install-doc
1089                     (lambda* (#:key outputs #:allow-other-keys)
1090                       (let ((doc (string-append(assoc-ref outputs "out")
1091                                                "/share/doc/xcalib")))
1092                         (install-file "README" doc)
1093                         ;; Avoid unspecified return value.
1094                         #t))))))
1095     (inputs `(("libx11", libx11)
1096               ("libxext", libxext)
1097               ("libxxf86vm", libxxf86vm)))
1098     (synopsis "Tiny monitor calibration loader for XFree86 (or X.org)")
1099     (description "xcalib is a tiny tool to load the content of vcgt-Tags in ICC
1100 profiles to the video card's gamma ramp.  It does work with most video card
1101 drivers except the generic VESA driver.  Alter brightness, contrast, RGB, and
1102 invert colors on a specific display/screen.")
1103     (home-page "http://xcalib.sourceforge.net/")
1104     (license license:gpl2)))