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