2015-08-17 22:06:04 +02:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
|
|
|
|
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
|
2015-09-11 10:11:51 +02:00
|
|
|
|
;;; Copyright © 2015 Siniša Biđin <sinisa@bidin.eu>
|
2016-02-28 07:37:22 +01:00
|
|
|
|
;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
|
2015-10-10 13:06:40 +02:00
|
|
|
|
;;; Copyright © 2015 xd1le <elisp.vim@gmail.com>
|
2015-10-14 22:26:55 +02:00
|
|
|
|
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
|
2016-02-28 07:37:22 +01:00
|
|
|
|
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
|
2016-04-04 09:24:31 +02:00
|
|
|
|
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
|
2016-04-06 01:21:19 +02:00
|
|
|
|
;;; Copyright © 2016 Al McElrath <hello@yrns.org>
|
2016-06-15 14:15:33 +02:00
|
|
|
|
;;; Copyright © 2016 Carlo Zancanaro <carlo@zancanaro.id.au>
|
2018-03-11 21:46:30 +01:00
|
|
|
|
;;; Copyright © 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
|
Correct name and Email for ng0.
* .mailmap: Correct name and Email for ng0.
* Makefile.am, doc/guix.texi, etc/completion/fish/guix.fish
gnu/packages/accessibility.scm, gnu/packages/admin.scm,
gnu/packages/audio.scm, gnu/packages/autotools.scm,
gnu/packages/cdrom.scm, gnu/packages/check.scm,
gnu/packages/cinnamon.scm, gnu/packages/compression.scm,
gnu/packages/crypto.scm, gnu/packages/databases.scm,
gnu/packages/django.scm, gnu/packages/dns.scm,
gnu/packages/emacs.scm, gnu/packages/enlightenment.scm,
gnu/packages/fonts.scm, gnu/packages/fontutils.scm,
gnu/packages/forth.scm, gnu/packages/fvwm.scm,
gnu/packages/games.scm, gnu/packages/gl.scm,
gnu/packages/gnome.scm, gnu/packages/gnunet.scm,
gnu/packages/gnupg.scm, gnu/packages/gnuzilla.scm,
gnu/packages/gtk.scm, gnu/packages/guile-wm.scm,
gnu/packages/guile.scm, gnu/packages/haskell-check.scm,
gnu/packages/haskell-crypto.scm, gnu/packages/haskell.scm,
gnu/packages/image-viewers.scm, gnu/packages/image.scm,
gnu/packages/irc.scm, gnu/packages/language.scm,
gnu/packages/libcanberra.scm, gnu/packages/linux.scm,
gnu/packages/lisp.scm, gnu/packages/lolcode.scm,
gnu/packages/lxde.scm, gnu/packages/lxqt.scm,
gnu/packages/mail.scm, gnu/packages/markup.scm,
gnu/packages/mate.scm, gnu/packages/maths.scm,
gnu/packages/mc.scm, gnu/packages/messaging.scm,
gnu/packages/music.scm, gnu/packages/ncurses.scm,
gnu/packages/networking.scm, gnu/packages/nickle.scm,
gnu/packages/openbox.scm, gnu/packages/pdf.scm,
gnu/packages/perl-check.scm, gnu/packages/perl.scm,
gnu/packages/python-crypto.scm, gnu/packages/python-web.scm,
gnu/packages/python.scm, gnu/packages/qt.scm,
gnu/packages/ruby.scm, gnu/packages/rust.scm,
gnu/packages/scheme.scm, gnu/packages/serialization.scm,
gnu/packages/shells.scm, gnu/packages/ssh.scm,
gnu/packages/suckless.scm, gnu/packages/tbb.scm,
gnu/packages/telephony.scm, gnu/packages/text-editors.scm,
gnu/packages/textutils.scm, gnu/packages/time.scm,
gnu/packages/tls.scm, gnu/packages/tor.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vim.scm, gnu/packages/web.scm,
gnu/packages/wm.scm, gnu/packages/xdisorg.scm,
gnu/packages/xfce.scm, gnu/packages/xml.scm,
gnu/packages/xorg.scm, gnu/services/certbot.scm,
gnu/services/desktop.scm, gnu/services/version-control.scm,
gnu/services/web.scm, guix/import/hackage.scm,
guix/licenses.scm: Likewise.
Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
2018-03-20 16:39:45 +01:00
|
|
|
|
;;; Copyright © 2016, 2017, 2018 Nils Gillmann <ng0@n0.is>
|
2016-09-20 20:02:53 +02:00
|
|
|
|
;;; Copyright © 2016 doncatnip <gnopap@gmail.com>
|
2016-09-21 11:19:20 +02:00
|
|
|
|
;;; Copyright © 2016 Ivan Vilata i Balaguer <ivan@selidor.net>
|
2017-01-23 10:48:51 +01:00
|
|
|
|
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
|
2016-12-09 20:50:52 +01:00
|
|
|
|
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
|
2017-07-23 20:31:51 +02:00
|
|
|
|
;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com>
|
2018-02-01 12:58:29 +01:00
|
|
|
|
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
|
2018-04-30 22:55:48 +02:00
|
|
|
|
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
|
2015-08-17 22:06:04 +02:00
|
|
|
|
;;;
|
|
|
|
|
;;; This file is part of GNU Guix.
|
|
|
|
|
;;;
|
|
|
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
|
|
|
|
;;; under the terms of the GNU General Public License as published by
|
|
|
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
|
;;; your option) any later version.
|
|
|
|
|
;;;
|
|
|
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
|
|
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;;; GNU General Public License for more details.
|
|
|
|
|
;;;
|
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
|
|
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
(define-module (gnu packages wm)
|
2016-02-28 07:37:22 +01:00
|
|
|
|
#:use-module ((guix licenses) #:prefix license:)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (guix packages)
|
2015-10-23 00:41:39 +02:00
|
|
|
|
#:use-module (gnu packages)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (gnu packages linux)
|
2016-06-15 14:15:33 +02:00
|
|
|
|
#:use-module (guix build-system cmake)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (guix build-system gnu)
|
2015-09-11 10:11:51 +02:00
|
|
|
|
#:use-module (guix build-system haskell)
|
2016-12-09 20:50:52 +01:00
|
|
|
|
#:use-module (guix build-system perl)
|
2016-09-21 11:19:07 +02:00
|
|
|
|
#:use-module (guix build-system python)
|
2015-09-11 10:11:51 +02:00
|
|
|
|
#:use-module (gnu packages haskell)
|
gnu: Move testing packages from haskell to haskell-check.
* gnu/packages/haskell.scm (ghc-clock-bootstrap, ghc-tasty-ant-xml,
ghc-tasty-smallcheck, ghc-tasty-quickcheck, ghc-tasty-golden, ghc-tasty,
ghc-tasty-hunit, ghc-tasty-kat, ghc-tasty-th, ghc-tasty-rerun,
ghc-quickcheck-instances, ghc-quickcheck-unicode, ghc-quickcheck-io,
ghc-quickcheck, ghc-test-framework, ghc-test-framework-hunit,
ghc-test-framework-quickcheck2, ghc-test-framework-th, ghc-hunit,
hspec-discover, ghc-hspec-core, ghc-hspec-meta, ghc-hspec, ghc-hspec-contrib,
ghc-hspec-expectations): Move variables to ...
* gnu/packages/haskell-check.scm: ... this new file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
* gnu/packages/haskell.scm,
gnu/packages/idris.scm,
gnu/packages/version-control.scm,
gnu/packages/wm.scm: Include haskell-check module.
2017-11-13 17:11:01 +01:00
|
|
|
|
#:use-module (gnu packages haskell-check)
|
gnu: Move web packages from haskell to haskell-web.
* gnu/packages/haskell.scm (ghc-tagsoup, ghc-cookie, ghc-http-types, ghc-http,
ghc-http-client, ghc-http-client-tls, ghc-http-date, ghc-http2,
ghc-http-conduit, ghc-wai, ghc-wai-logger, ghc-wai-extra, ghc-wai-conduit,
ghc-warp, ghc-warp-tls, ghc-xss-sanitize, ghc-css-text, ghc-mime-types,
ghc-html, ghc-xhtml, ghc-blaze-html, ghc-aeson, ghc-aeson-pretty,
ghc-aeson-qq, ghc-multipart): Move variables to ...
* gnu/packages/haskell-web.scm: ... this new file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
* gnu/packages/haskell.scm,
gnu/packages/idris.scm,
gnu/packages/version-control.scm,
gnu/packages/wm.scm: Include haskell-web module.
2017-11-13 18:09:36 +01:00
|
|
|
|
#:use-module (gnu packages haskell-web)
|
2017-01-24 14:03:42 +01:00
|
|
|
|
#:use-module (gnu packages autotools)
|
2018-02-04 12:15:19 +01:00
|
|
|
|
#:use-module (gnu packages bison)
|
2017-01-24 16:57:13 +01:00
|
|
|
|
#:use-module (gnu packages gawk)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (gnu packages base)
|
|
|
|
|
#:use-module (gnu packages pkg-config)
|
|
|
|
|
#:use-module (gnu packages perl)
|
2016-04-06 01:21:19 +02:00
|
|
|
|
#:use-module (gnu packages pulseaudio)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (gnu packages xorg)
|
|
|
|
|
#:use-module (gnu packages xdisorg)
|
gnu: Update module imports for asciidoc and doxygen.
This is a followup to commit 0573a923def01e54bf104e0015ade44ab42f694f.
* gnu/packages/algebra.scm, gnu/packages/bioinformatics.scm,
gnu/packages/fcitx.scm, gnu/packages/fish.scm,
gnu/packages/freedesktop.scm, gnu/packages/game-development.scm,
gnu/packages/gcc.scm, gnu/packages/graphics.scm, gnu/packages/image.scm,
gnu/packages/kodi.scm, gnu/packages/libreoffice.scm,
gnu/packages/linux.scm, gnu/packages/messaging.scm,
gnu/packages/mpd.scm, gnu/packages/music.scm, gnu/packages/rdf.scm,
gnu/packages/serialization.scm, gnu/packages/version-control.scm,
gnu/packages/web.scm, gnu/packages/wm.scm, gnu/packages/xdisorg.scm,
gnu/packages/xiph.scm: Change imports of (gnu packages asciidoc) or
(gnu packages doxygen) to (gnu packages documentation).
2016-05-13 02:18:15 +02:00
|
|
|
|
#:use-module (gnu packages documentation)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (gnu packages xml)
|
|
|
|
|
#:use-module (gnu packages m4)
|
|
|
|
|
#:use-module (gnu packages docbook)
|
2016-02-28 07:37:22 +01:00
|
|
|
|
#:use-module (gnu packages image)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (gnu packages pcre)
|
2017-01-18 13:47:21 +01:00
|
|
|
|
#:use-module (gnu packages python)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (gnu packages gtk)
|
|
|
|
|
#:use-module (gnu packages libevent)
|
2016-02-28 07:37:22 +01:00
|
|
|
|
#:use-module (gnu packages fribidi)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (gnu packages maths)
|
|
|
|
|
#:use-module (gnu packages web)
|
2016-02-28 07:37:22 +01:00
|
|
|
|
#:use-module (gnu packages fontutils)
|
2016-06-15 14:15:33 +02:00
|
|
|
|
#:use-module (gnu packages freedesktop)
|
|
|
|
|
#:use-module (gnu packages glib)
|
|
|
|
|
#:use-module (gnu packages gperf)
|
|
|
|
|
#:use-module (gnu packages imagemagick)
|
|
|
|
|
#:use-module (gnu packages lua)
|
2017-01-24 14:03:42 +01:00
|
|
|
|
#:use-module (gnu packages linux)
|
2016-09-21 11:19:20 +02:00
|
|
|
|
#:use-module (gnu packages suckless)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
#:use-module (guix download)
|
|
|
|
|
#:use-module (guix git-download))
|
|
|
|
|
|
2015-08-17 22:06:05 +02:00
|
|
|
|
(define-public libconfuse
|
|
|
|
|
(package
|
|
|
|
|
(name "libconfuse")
|
2017-08-18 08:10:28 +02:00
|
|
|
|
(version "3.2.1")
|
2015-08-17 22:06:05 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2017-05-24 23:40:19 +02:00
|
|
|
|
(uri (string-append "https://github.com/martinh/libconfuse/"
|
|
|
|
|
"releases/download/v" version
|
|
|
|
|
"/confuse-" version ".tar.xz"))
|
2015-08-17 22:06:05 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-08-18 08:10:28 +02:00
|
|
|
|
"0pnjmlj9i0alp407qd7c0vq83sz7gpsjrbdgpcn4xvzjp9r35ii3"))))
|
2015-08-17 22:06:05 +02:00
|
|
|
|
(build-system gnu-build-system)
|
2017-05-24 23:40:19 +02:00
|
|
|
|
(home-page "https://github.com/martinh/libconfuse")
|
2015-08-17 22:06:05 +02:00
|
|
|
|
(synopsis "Configuration file parser library")
|
|
|
|
|
(description "libconfuse is a configuration file parser library. It
|
|
|
|
|
supports sections and (lists of) values (strings, integers, floats, booleans
|
|
|
|
|
or other sections), as well as some other features (such as
|
|
|
|
|
single/double-quoted strings, environment variable expansion, functions and
|
|
|
|
|
nested include statements).")
|
2016-02-28 07:37:22 +01:00
|
|
|
|
(license license:isc)))
|
2015-08-17 22:06:05 +02:00
|
|
|
|
|
2015-10-10 13:06:40 +02:00
|
|
|
|
(define-public bspwm
|
|
|
|
|
(package
|
|
|
|
|
(name "bspwm")
|
2018-06-19 23:12:05 +02:00
|
|
|
|
(version "0.9.5")
|
2015-10-10 13:06:40 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append
|
|
|
|
|
"https://github.com/baskerville/bspwm/archive/"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-06-19 23:12:05 +02:00
|
|
|
|
"10pph8wxqysgk7b2h0svs0nwacn1a4y44jnzzry32pd1ysx92d97"))))
|
2015-10-10 13:06:40 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libxcb" ,libxcb)
|
|
|
|
|
("libxinerama" ,libxinerama)
|
|
|
|
|
("sxhkd" ,sxhkd)
|
|
|
|
|
("xcb-util" ,xcb-util)
|
|
|
|
|
("xcb-util-keysyms" ,xcb-util-keysyms)
|
|
|
|
|
("xcb-util-wm" ,xcb-util-wm)))
|
|
|
|
|
(arguments
|
2018-06-19 23:12:05 +02:00
|
|
|
|
'(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)) ; no configure script
|
|
|
|
|
#:tests? #f ; no check target
|
|
|
|
|
#:make-flags
|
|
|
|
|
(list "CC=gcc"
|
|
|
|
|
(string-append "PREFIX=" %output))))
|
2015-10-10 13:06:40 +02:00
|
|
|
|
(home-page "https://github.com/baskerville/bspwm")
|
|
|
|
|
(synopsis "Tiling window manager based on binary space partitioning")
|
|
|
|
|
(description "bspwm is a tiling window manager that represents windows as
|
|
|
|
|
the leaves of a full binary tree.")
|
2016-02-28 07:37:22 +01:00
|
|
|
|
(license license:bsd-2)))
|
2015-10-10 13:06:40 +02:00
|
|
|
|
|
2015-08-17 05:05:37 +02:00
|
|
|
|
(define-public i3status
|
|
|
|
|
(package
|
|
|
|
|
(name "i3status")
|
2018-05-16 14:14:53 +02:00
|
|
|
|
(version "2.12")
|
2015-08-17 05:05:37 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-05-06 07:13:11 +02:00
|
|
|
|
(uri (string-append "https://i3wm.org/i3status/i3status-"
|
2015-08-17 05:05:37 +02:00
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-05-16 14:14:53 +02:00
|
|
|
|
"06krpbijv4yi33nypg6qcn4hilcrdyarsdpd9fmr2cq46qaqiikg"))))
|
2015-08-17 05:05:37 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure))
|
|
|
|
|
#:tests? #f)) ; no test suite
|
|
|
|
|
(inputs
|
|
|
|
|
`(("openlibm" ,openlibm)
|
|
|
|
|
("libconfuse" ,libconfuse)
|
|
|
|
|
("libyajl" ,libyajl)
|
|
|
|
|
("alsa-lib" ,alsa-lib)
|
2016-04-06 01:21:19 +02:00
|
|
|
|
("pulseaudio" ,pulseaudio)
|
|
|
|
|
("libnl" ,libnl)
|
2015-08-17 05:05:37 +02:00
|
|
|
|
("libcap" ,libcap)
|
|
|
|
|
("asciidoc" ,asciidoc)))
|
2016-04-06 01:21:19 +02:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2016-05-06 07:13:11 +02:00
|
|
|
|
(home-page "https://i3wm.org/i3status/")
|
2015-08-17 05:05:37 +02:00
|
|
|
|
(synopsis "Status bar for i3bar, dzen2, xmobar or similar programs")
|
|
|
|
|
(description "i3status is a small program for generating a status bar for
|
|
|
|
|
i3bar, dzen2, xmobar or similar programs. It is designed to be very efficient
|
|
|
|
|
by issuing a very small number of system calls, as one generally wants to
|
|
|
|
|
update such a status line every second. This ensures that even under high
|
|
|
|
|
load, your status bar is updated correctly. Also, it saves a bit of energy by
|
|
|
|
|
not hogging your CPU as much as spawning the corresponding amount of shell
|
|
|
|
|
commands would.")
|
2016-02-28 07:37:22 +01:00
|
|
|
|
(license license:bsd-3)))
|
2015-08-17 05:05:37 +02:00
|
|
|
|
|
2015-08-17 22:06:04 +02:00
|
|
|
|
(define-public i3-wm
|
|
|
|
|
(package
|
|
|
|
|
(name "i3-wm")
|
2018-03-12 12:42:29 +01:00
|
|
|
|
(version "4.15")
|
2015-08-17 22:06:04 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-05-06 07:11:28 +02:00
|
|
|
|
(uri (string-append "https://i3wm.org/downloads/i3-"
|
2015-08-17 22:06:04 +02:00
|
|
|
|
version ".tar.bz2"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-03-12 12:42:29 +01:00
|
|
|
|
"09jk70hsdxab24lqvj2f30ijrkbv3f6q9xi5dcsax1dw3x6m4z91"))))
|
2015-08-17 22:06:04 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2016-12-04 23:39:00 +01:00
|
|
|
|
`(#:make-flags
|
gnu: Adjust asciidoc-related build options.
Commits 9099a45792306fade2d9ca55138e49ef4f01f1ea and
3078821d1380c26c738be6b5d430c595327d401f make many package inputs and
build configurations related to asciidoc obsolete.
* gnu/packages/compton.scm (compton)[inputs]: Remove docbook-xml,
libxml2 and libxslt.
* gnu/packages/mail.scm (offlinemap)[native-inputs]: Remove libxslt.
* gnu/packages/linux.scm (btrfs-progs)[native-inputs]: Remove docbook-xml.
(perf)[inputs]: Remove docbook-xml and libxslt.
* gnu/packages/text-editors.scm (kakoune)[native-inputs]: Remove libxslt.
* gnu/packages/version-control.scm (cgit)[native-inputs]: Remove
docbook-xml, docbook-xsl, libxml2 and libxslt.
(cvs-fast-export)[native-inputs]: Remove docbook-xml, docbook-xsl,
libxml2 and libxslt.
* gnu/packages/web.scm (qutebrowser)[native-inputs]: Remove docbook-xml,
docbook-xsl, libxml2, and libxslt.
(tinyproxy)[native-inputs]: Remove docbook-xml, docbook-xsl, libxml2 and
libxslt.
* gnu/packages/wm.scm (awesome)[make-flags]: Remove XML_CATALOG_FILES flag.
(i3-wm)[inputs]: Remove docbook-xml.
[native-inputs]: Add libxml2.
2017-03-18 20:40:15 +01:00
|
|
|
|
(list "CC=gcc"
|
|
|
|
|
(string-append "PREFIX=" %output)
|
|
|
|
|
;; This works around the following error:
|
|
|
|
|
;; 'error: ‘for’ loop initial declarations are only allowed in C99
|
|
|
|
|
;; or C11 mode'
|
|
|
|
|
"CFLAGS=-std=c11")
|
2016-12-04 23:39:00 +01:00
|
|
|
|
;; The build system tries to build in a separate directory, but that
|
|
|
|
|
;; seems to be unnecessary.
|
|
|
|
|
#:configure-flags '("--disable-builddir")
|
|
|
|
|
;; The test suite appears to require the unpackaged Perl module AnyEvent.
|
|
|
|
|
#:tests? #f))
|
2015-08-17 22:06:04 +02:00
|
|
|
|
(inputs
|
|
|
|
|
`(("libxcb" ,libxcb)
|
|
|
|
|
("xcb-util" ,xcb-util)
|
|
|
|
|
("xcb-util-cursor" ,xcb-util-cursor)
|
|
|
|
|
("xcb-util-keysyms" ,xcb-util-keysyms)
|
|
|
|
|
("xcb-util-wm" ,xcb-util-wm)
|
2016-12-04 23:39:00 +01:00
|
|
|
|
("xcb-util-xrm" ,xcb-util-xrm)
|
2015-08-17 22:06:04 +02:00
|
|
|
|
("libxkbcommon" ,libxkbcommon)
|
|
|
|
|
("libev" ,libev)
|
|
|
|
|
("libyajl" ,libyajl)
|
|
|
|
|
("asciidoc" ,asciidoc)
|
|
|
|
|
("xmlto" ,xmlto)
|
|
|
|
|
("perl-pod-simple" ,perl-pod-simple)
|
|
|
|
|
("libx11" ,libx11)
|
|
|
|
|
("pcre" ,pcre)
|
|
|
|
|
("startup-notification" ,startup-notification)
|
|
|
|
|
("pango" ,pango)
|
|
|
|
|
("cairo" ,cairo)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("which" ,which)
|
|
|
|
|
("perl" ,perl)
|
2016-12-04 23:39:00 +01:00
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
;; For building the documentation.
|
gnu: Adjust asciidoc-related build options.
Commits 9099a45792306fade2d9ca55138e49ef4f01f1ea and
3078821d1380c26c738be6b5d430c595327d401f make many package inputs and
build configurations related to asciidoc obsolete.
* gnu/packages/compton.scm (compton)[inputs]: Remove docbook-xml,
libxml2 and libxslt.
* gnu/packages/mail.scm (offlinemap)[native-inputs]: Remove libxslt.
* gnu/packages/linux.scm (btrfs-progs)[native-inputs]: Remove docbook-xml.
(perf)[inputs]: Remove docbook-xml and libxslt.
* gnu/packages/text-editors.scm (kakoune)[native-inputs]: Remove libxslt.
* gnu/packages/version-control.scm (cgit)[native-inputs]: Remove
docbook-xml, docbook-xsl, libxml2 and libxslt.
(cvs-fast-export)[native-inputs]: Remove docbook-xml, docbook-xsl,
libxml2 and libxslt.
* gnu/packages/web.scm (qutebrowser)[native-inputs]: Remove docbook-xml,
docbook-xsl, libxml2, and libxslt.
(tinyproxy)[native-inputs]: Remove docbook-xml, docbook-xsl, libxml2 and
libxslt.
* gnu/packages/wm.scm (awesome)[make-flags]: Remove XML_CATALOG_FILES flag.
(i3-wm)[inputs]: Remove docbook-xml.
[native-inputs]: Add libxml2.
2017-03-18 20:40:15 +01:00
|
|
|
|
("libxml2" ,libxml2)
|
2016-12-04 23:39:00 +01:00
|
|
|
|
("docbook-xsl" ,docbook-xsl)))
|
2016-05-06 07:11:28 +02:00
|
|
|
|
(home-page "https://i3wm.org/")
|
2015-08-17 22:06:04 +02:00
|
|
|
|
(synopsis "Improved tiling window manager")
|
gnu: Adjust formatting as recommended by 'guix lint'.
* gnu/packages/aidc.scm (barcode, qrencode),
gnu/packages/bash.scm (bash, bash-completion),
gnu/packages/busybox.scm (busybox),
gnu/packages/cdrom.scm (cdparanoia),
gnu/packages/cmake.scm (cmake),
gnu/packages/conkeror.scm (conkeror),
gnu/packages/cook.scm (cook),
gnu/packages/curl.scm (curl),
gnu/packages/docbook.scm (docbook-xsl),
gnu/packages/enlightenment.scm (enlightenment),
gnu/packages/games.scm (abbaye),
gnu/packages/geeqie.scm (exiv2),
gnu/packages/gimp.scm (gegl),
gnu/packages/gl.scm (glu, freeglut, ftgl),
gnu/packages/glib.scm (glib),
gnu/packages/gnome.scm (orbit2, gconf, geocode-glib),
gnu/packages/gstreamer.scm (gstreamer, gst-plugins-base),
gnu/packages/linux.scm (util-linux),
gnu/packages/lisp.scm (gcl, ecl),
gnu/packages/maths.scm (gnuplot, hdf5),
gnu/packages/ssh.scm (dropbear),
gnu/packages/web.scm (json-c): Remove tabulations and trailing
white spaces or reformat to fit within 80 columns.
* gnu/packages/audio.scm (aubio),
gnu/packages/emacs.scm (emacs-s),
gnu/packages/engineering.scm (geda-gaf),
gnu/packages/games.scm (dosbox),
gnu/packages/gnome.scm (gusb),
gnu/packages/gtk.scm (gtk+),
gnu/packages/guile.scm (guile-wisp),
gnu/packages/hurd.scm (hurd-headers),
gnu/packages/wm.scm (i3-wm): Adjust synopsis or description.
2015-11-13 15:50:36 +01:00
|
|
|
|
(description "A tiling window manager, completely written
|
2015-08-17 22:06:04 +02:00
|
|
|
|
from scratch. i3 is primarily targeted at advanced users and
|
|
|
|
|
developers.")
|
2016-02-28 07:37:22 +01:00
|
|
|
|
(license license:bsd-3)))
|
2015-09-11 10:11:51 +02:00
|
|
|
|
|
2016-12-09 20:50:52 +01:00
|
|
|
|
(define-public perl-anyevent-i3
|
|
|
|
|
(package
|
|
|
|
|
(name "perl-anyevent-i3")
|
2017-07-28 00:55:23 +02:00
|
|
|
|
(version "0.17")
|
2016-12-09 20:50:52 +01:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://cpan/authors/id/M/MS/MSTPLBG/"
|
|
|
|
|
"AnyEvent-I3-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-07-28 00:55:23 +02:00
|
|
|
|
"0qvd9bq16jyy7v3ma82qcnvz9j503bw0mh7h55gkjf7ir62ck0jk"))))
|
2016-12-09 20:50:52 +01:00
|
|
|
|
(build-system perl-build-system)
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("perl-anyevent" ,perl-anyevent)
|
|
|
|
|
("perl-json-xs" ,perl-json-xs)))
|
|
|
|
|
(home-page "http://search.cpan.org/dist/AnyEvent-I3")
|
|
|
|
|
(synopsis
|
|
|
|
|
"Communicate with the i3 window manager through perl")
|
|
|
|
|
(description
|
|
|
|
|
"This module connects to the i3 window manager using the UNIX socket
|
|
|
|
|
based IPC interface it provides (if enabled in the configuration file).
|
|
|
|
|
You can then subscribe to events or send messages and receive their replies.")
|
|
|
|
|
;; Can be used with either license.
|
2017-05-02 16:57:52 +02:00
|
|
|
|
(license (list license:gpl3+ license:perl-license))))
|
2016-12-09 20:50:52 +01:00
|
|
|
|
|
2016-09-21 11:19:07 +02:00
|
|
|
|
(define-public python-i3-py
|
|
|
|
|
(package
|
|
|
|
|
(name "python-i3-py")
|
|
|
|
|
(version "0.6.5")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
;; The latest release is not tagged in Git nor has an entry in PyPi,
|
|
|
|
|
;; but there is still a clear commit for it, and it's been the last one
|
|
|
|
|
;; for years.
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/ziberna/i3-py.git")
|
|
|
|
|
(commit "27f88a616e9ecc340e7d041d3d00782f8a1964c1")))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1nm719dc2xqlll7vj4c4m7mpjb27lpn3bg3c66gajvnrz2x1nmxs"))
|
|
|
|
|
(file-name (string-append name "-" version "-checkout"))))
|
|
|
|
|
(build-system python-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; no tests yet
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(add-after 'install 'install-doc
|
|
|
|
|
;; Copy readme file to documentation directory.
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((doc (string-append (assoc-ref outputs "out")
|
|
|
|
|
"/share/doc/" ,name)))
|
|
|
|
|
(install-file "README.md" doc)
|
|
|
|
|
;; Avoid unspecified return value.
|
|
|
|
|
#t))))))
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("i3-wm" ,i3-wm)))
|
|
|
|
|
(home-page "https://github.com/ziberna/i3-py")
|
|
|
|
|
(synopsis "Python interface to the i3 window manager")
|
|
|
|
|
(description "This package allows you to interact from a Python program
|
|
|
|
|
with the i3 window manager via its IPC socket. It can send commands and other
|
|
|
|
|
kinds of messages to i3, select the affected containers, filter results and
|
|
|
|
|
subscribe to events.")
|
|
|
|
|
(license license:gpl3+)))
|
|
|
|
|
|
|
|
|
|
(define-public python2-i3-py
|
|
|
|
|
(package-with-python2 python-i3-py))
|
|
|
|
|
|
2016-09-21 11:19:20 +02:00
|
|
|
|
(define-public quickswitch-i3
|
|
|
|
|
(let ((commit "ed692b1e8f43b95bd907ced26238ce8ccb2ed28f")
|
|
|
|
|
(revision "1")) ; Guix package revision
|
|
|
|
|
(package
|
|
|
|
|
(name "quickswitch-i3")
|
|
|
|
|
(version (string-append "2.2-" revision "."
|
|
|
|
|
(string-take commit 7)))
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
;; The latest commit is a few years old and just a couple commits
|
|
|
|
|
;; after the last tagged release, so we use that latest commit
|
|
|
|
|
;; instead of the release.
|
|
|
|
|
(method git-fetch)
|
|
|
|
|
(uri (git-reference
|
|
|
|
|
(url "https://github.com/proxypoke/quickswitch-for-i3.git")
|
|
|
|
|
(commit commit)))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0447077sama80jcdg5p64zjsvafmz5rbdrirhm1adcdjhkh6iqc5"))
|
|
|
|
|
(patches (search-patches "quickswitch-fix-dmenu-check.patch"))
|
|
|
|
|
(file-name (string-append name "-" version "-checkout"))))
|
|
|
|
|
(build-system python-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ; no tests yet
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(add-after 'install 'install-doc
|
|
|
|
|
;; Copy readme file to documentation directory.
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
(let ((doc (string-append (assoc-ref outputs "out")
|
|
|
|
|
"/share/doc/" ,name)))
|
|
|
|
|
(install-file "README.rst" doc)
|
|
|
|
|
;; Avoid unspecified return value.
|
|
|
|
|
#t))))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("python-i3-py" ,python-i3-py)
|
|
|
|
|
("dmenu" ,dmenu)))
|
|
|
|
|
(home-page "https://github.com/proxypoke/quickswitch-for-i3")
|
|
|
|
|
(synopsis "Quickly change to and locate windows in the i3 window manager")
|
|
|
|
|
(description
|
|
|
|
|
"This utility for the i3 window manager allows you to quickly switch to
|
|
|
|
|
and locate windows on all your workspaces, using an interactive dmenu
|
|
|
|
|
prompt.")
|
|
|
|
|
(license (license:non-copyleft "http://www.wtfpl.net/txt/copying/")))))
|
|
|
|
|
|
2017-01-24 14:03:42 +01:00
|
|
|
|
(define-public i3lock-color
|
|
|
|
|
(package
|
|
|
|
|
(name "i3lock-color")
|
2018-04-16 20:09:00 +02:00
|
|
|
|
(version "2.11-c")
|
2017-01-24 14:03:42 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/PandorasFox/i3lock-color/"
|
|
|
|
|
"archive/" version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-16 20:09:00 +02:00
|
|
|
|
"0zh7il2y6dmzym3w6r9xii5dma8pjjjlq4dm5iby7m3gvplj4q9p"))))
|
2017-01-24 14:03:42 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
2018-03-11 21:46:30 +01:00
|
|
|
|
`(#:tests? #f)) ;no tests included
|
2017-01-24 14:03:42 +01:00
|
|
|
|
(inputs
|
2018-04-16 20:04:19 +02:00
|
|
|
|
`(("cairo" ,cairo)
|
|
|
|
|
("libev" ,libev)
|
2018-04-16 20:09:00 +02:00
|
|
|
|
("libjpeg" ,libjpeg-turbo)
|
2017-01-24 14:03:42 +01:00
|
|
|
|
("libxcb" ,libxcb)
|
|
|
|
|
("libxkbcommon" ,libxkbcommon)
|
2018-04-16 20:04:19 +02:00
|
|
|
|
("linux-pam" ,linux-pam)
|
|
|
|
|
("xcb-util" ,xcb-util)
|
|
|
|
|
("xcb-util-image" ,xcb-util-image)))
|
2017-01-24 14:03:42 +01:00
|
|
|
|
(native-inputs
|
2018-04-16 20:04:19 +02:00
|
|
|
|
`(("autoconf" ,autoconf)
|
|
|
|
|
("automake" ,automake)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
2017-01-24 14:03:42 +01:00
|
|
|
|
(home-page "https://github.com/PandorasFox/i3lock-color")
|
|
|
|
|
(synopsis "Screen locker with color configuration support")
|
|
|
|
|
(description
|
|
|
|
|
"i3lock-color is a simpler X11 screen locker derived from i3lock.
|
|
|
|
|
Features include:
|
|
|
|
|
|
|
|
|
|
@enumerate
|
|
|
|
|
@item forking process, the locked screen is preserved when you suspend to RAM;
|
|
|
|
|
@item specify background color or image to be displayed in the lock screen;
|
|
|
|
|
@item many additional color options.
|
|
|
|
|
@end enumerate")
|
|
|
|
|
(license license:bsd-3)))
|
|
|
|
|
|
2017-01-24 16:57:13 +01:00
|
|
|
|
(define-public i3lock-fancy
|
|
|
|
|
(package
|
|
|
|
|
(name "i3lock-fancy")
|
|
|
|
|
(version "0.2")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "https://github.com/meskarune/i3lock-fancy/archive/"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"020m7mnfq5cvir7p9v3hkb7cvb4cai33wppxl2zdwscwwjnchc5y"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:tests? #f ;No tests included
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(replace 'configure
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(icons (string-append out "/share/i3lock-fancy/icons/"))
|
|
|
|
|
(wmctrl (string-append (assoc-ref inputs "wmctrl")
|
|
|
|
|
"/bin/wmctrl"))
|
|
|
|
|
(mconvert (string-append (assoc-ref inputs "imagemagick")
|
|
|
|
|
"/bin/convert"))
|
|
|
|
|
(mimport (string-append (assoc-ref inputs "imagemagick")
|
|
|
|
|
"/bin/import"))
|
|
|
|
|
(awk (string-append (assoc-ref inputs "gawk")
|
|
|
|
|
"/bin/gawk")))
|
|
|
|
|
|
|
|
|
|
(substitute* "lock"
|
|
|
|
|
(("$(which wmctrl)") wmctrl)
|
|
|
|
|
(("convert") mconvert)
|
|
|
|
|
(("shot=\\(import") (string-append "shot=\(" mimport))
|
|
|
|
|
(("awk -F") (string-append awk " -F"))
|
|
|
|
|
((" awk") awk)
|
|
|
|
|
(("\\$scriptpath/icons/") icons))
|
|
|
|
|
#t)))
|
|
|
|
|
(delete 'build)
|
|
|
|
|
(replace 'install
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((out (assoc-ref outputs "out"))
|
|
|
|
|
(bin (string-append out "/bin"))
|
|
|
|
|
(icons (string-append out "/share/i3lock-fancy/icons/")))
|
|
|
|
|
|
|
|
|
|
(install-file "lock" bin)
|
|
|
|
|
(rename-file (string-append bin "/lock")
|
|
|
|
|
(string-append bin "/i3lock-fancy"))
|
|
|
|
|
(copy-recursively "icons" icons)
|
|
|
|
|
#t))))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("imagemagick" ,imagemagick)
|
|
|
|
|
("wmctrl" ,wmctrl)
|
|
|
|
|
("gawk" ,gawk)))
|
|
|
|
|
(home-page "https://github.com/meskarune/i3lock-fancy")
|
|
|
|
|
(synopsis "Screen locker with screenshot function")
|
|
|
|
|
(description
|
|
|
|
|
"@code{i3lock-fancy} is a Bash script that takes a screenshot of
|
|
|
|
|
the desktop, blurs the background and adds a lock icon and text.
|
|
|
|
|
It requires @code{i3lock-color} or @code{i3lock} and can optionally
|
|
|
|
|
be passed any screenshot util like @code{scrot}.
|
|
|
|
|
This screen locker can be used with any window manager or
|
|
|
|
|
desktop environment.")
|
|
|
|
|
(license license:expat)))
|
|
|
|
|
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(define-public xmonad
|
|
|
|
|
(package
|
|
|
|
|
(name "xmonad")
|
2018-08-10 00:29:10 +02:00
|
|
|
|
(version "0.14")
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(synopsis "Tiling window manager")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-11-19 18:42:12 +01:00
|
|
|
|
(uri (string-append "mirror://hackage/package/xmonad/"
|
2015-10-14 22:26:55 +02:00
|
|
|
|
name "-" version ".tar.gz"))
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-08-10 00:29:10 +02:00
|
|
|
|
"0lq3k0ap7jxrrswpd954mqa6h8diccbif5srcgbmr39y6y8x0mm4"))))
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(build-system haskell-build-system)
|
|
|
|
|
(inputs
|
2017-01-23 10:48:51 +01:00
|
|
|
|
`(("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
|
|
|
|
|
("ghc-mtl" ,ghc-mtl)
|
|
|
|
|
("ghc-quickcheck" ,ghc-quickcheck)
|
2018-08-10 00:29:10 +02:00
|
|
|
|
("ghc-semigroups" ,ghc-semigroups)
|
2017-01-23 10:48:51 +01:00
|
|
|
|
("ghc-setlocale" ,ghc-setlocale)
|
|
|
|
|
("ghc-utf8-string" ,ghc-utf8-string)
|
|
|
|
|
("ghc-x11" ,ghc-x11)))
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after
|
|
|
|
|
'install 'install-xsession
|
|
|
|
|
(lambda _
|
|
|
|
|
(let* ((xsessions (string-append %output "/share/xsessions")))
|
|
|
|
|
(mkdir-p xsessions)
|
|
|
|
|
(call-with-output-file
|
|
|
|
|
(string-append xsessions "/xmonad.desktop")
|
|
|
|
|
(lambda (port)
|
|
|
|
|
(format port "~
|
|
|
|
|
[Desktop Entry]~@
|
|
|
|
|
Name=~a~@
|
|
|
|
|
Comment=~a~@
|
|
|
|
|
Exec=~a/bin/xmonad~@
|
|
|
|
|
Type=Application~%" ,name ,synopsis %output)))))))))
|
2018-08-10 00:29:33 +02:00
|
|
|
|
(home-page "https://xmonad.org")
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(description
|
|
|
|
|
"Xmonad is a tiling window manager for X. Windows are arranged
|
|
|
|
|
automatically to tile the screen without gaps or overlap, maximising screen
|
|
|
|
|
use. All features of the window manager are accessible from the keyboard: a
|
|
|
|
|
mouse is strictly optional. Xmonad is written and extensible in Haskell.
|
|
|
|
|
Custom layout algorithms, and other extensions, may be written by the user in
|
|
|
|
|
config files. Layouts are applied dynamically, and different layouts may be
|
|
|
|
|
used on each workspace. Xinerama is fully supported, allowing windows to be
|
|
|
|
|
tiled on several screens.")
|
2016-02-28 07:37:22 +01:00
|
|
|
|
(license license:bsd-3)))
|
2015-09-11 10:11:51 +02:00
|
|
|
|
|
2017-07-23 20:31:51 +02:00
|
|
|
|
(define-public xmobar
|
|
|
|
|
(package
|
|
|
|
|
(name "xmobar")
|
2018-04-16 19:56:00 +02:00
|
|
|
|
(version "0.26")
|
2017-07-23 20:31:51 +02:00
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://hackage/package/xmobar/"
|
|
|
|
|
name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-04-16 19:56:00 +02:00
|
|
|
|
"19g40vqj3cs94i27f66194k7d5cazrv1lx54bz9kc0qy2npxjzgz"))))
|
2017-07-23 20:31:51 +02:00
|
|
|
|
(build-system haskell-build-system)
|
2018-04-16 19:56:00 +02:00
|
|
|
|
(native-inputs
|
|
|
|
|
`(("ghc-hspec" ,ghc-hspec)
|
|
|
|
|
("hspec-discover" ,hspec-discover)))
|
2017-07-23 20:31:51 +02:00
|
|
|
|
(inputs
|
2018-02-01 12:58:29 +01:00
|
|
|
|
`(("ghc-hinotify" ,ghc-hinotify)
|
|
|
|
|
("ghc-http" ,ghc-http)
|
|
|
|
|
("ghc-iwlib" ,ghc-iwlib)
|
2017-07-23 20:31:51 +02:00
|
|
|
|
("ghc-parsec" ,ghc-parsec)
|
|
|
|
|
("ghc-regex-compat" ,ghc-regex-compat)
|
|
|
|
|
("ghc-stm" ,ghc-stm)
|
|
|
|
|
("ghc-x11-xft" ,ghc-x11-xft)
|
2018-02-01 12:58:29 +01:00
|
|
|
|
("libxpm" ,libxpm)))
|
2017-07-23 20:31:51 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags
|
2018-02-01 12:58:29 +01:00
|
|
|
|
(list (string-append "--flags="
|
|
|
|
|
(string-join (list "with_inotify"
|
|
|
|
|
"with_iwlib"
|
|
|
|
|
"with_utf8"
|
|
|
|
|
"with_weather"
|
|
|
|
|
"with_xft"
|
|
|
|
|
"with_xpm")
|
|
|
|
|
" ")))))
|
2017-07-23 20:31:51 +02:00
|
|
|
|
(home-page "http://xmobar.org")
|
|
|
|
|
(synopsis "Minimalistic text based status bar")
|
|
|
|
|
(description
|
|
|
|
|
"@code{xmobar} is a lightweight, text-based, status bar written in
|
|
|
|
|
Haskell. It was originally designed to be used together with Xmonad, but it
|
|
|
|
|
is also usable with any other window manager. While xmobar is written in
|
|
|
|
|
Haskell, no knowledge of the language is required to install and use it.")
|
|
|
|
|
(license license:bsd-3)))
|
|
|
|
|
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(define-public ghc-xmonad-contrib
|
|
|
|
|
(package
|
|
|
|
|
(name "ghc-xmonad-contrib")
|
2018-08-10 01:38:53 +02:00
|
|
|
|
(version "0.14")
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
2016-11-19 18:42:12 +01:00
|
|
|
|
(uri (string-append "mirror://hackage/package/xmonad-contrib/"
|
2015-09-11 10:11:51 +02:00
|
|
|
|
"xmonad-contrib-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-08-10 01:38:53 +02:00
|
|
|
|
"1660w3xhbfrlq8b8s1rviq2mcn1vyqpypli4023gqxwry52brk6y"))))
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(build-system haskell-build-system)
|
|
|
|
|
(propagated-inputs
|
|
|
|
|
`(("ghc-mtl" ,ghc-mtl)
|
2015-10-14 22:28:10 +02:00
|
|
|
|
("ghc-old-time" ,ghc-old-time)
|
2015-09-11 10:11:51 +02:00
|
|
|
|
("ghc-random" ,ghc-random)
|
|
|
|
|
("ghc-utf8-string" ,ghc-utf8-string)
|
|
|
|
|
("ghc-extensible-exceptions" ,ghc-extensible-exceptions)
|
|
|
|
|
("ghc-x11" ,ghc-x11)
|
|
|
|
|
("ghc-x11-xft" ,ghc-x11-xft)
|
|
|
|
|
("xmonad" ,xmonad)))
|
2018-08-10 00:29:33 +02:00
|
|
|
|
(home-page "https://xmonad.org")
|
2015-09-11 10:11:51 +02:00
|
|
|
|
(synopsis "Third party extensions for xmonad")
|
|
|
|
|
(description
|
|
|
|
|
"Third party tiling algorithms, configurations, and scripts to Xmonad, a
|
|
|
|
|
tiling window manager for X.")
|
2016-02-28 07:37:22 +01:00
|
|
|
|
(license license:bsd-3)))
|
2015-10-16 00:34:26 +02:00
|
|
|
|
|
|
|
|
|
(define-public evilwm
|
|
|
|
|
(package
|
|
|
|
|
(name "evilwm")
|
|
|
|
|
(version "1.1.1")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://www.6809.org.uk/evilwm/evilwm-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2015-10-23 00:41:39 +02:00
|
|
|
|
"0ak0yajzk3v4dg5wmaghv6acf7v02a4iw8qxmq5yw5ard8lrqn3r"))
|
2016-04-08 14:18:13 +02:00
|
|
|
|
(patches (search-patches "evilwm-lost-focus-bug.patch"))))
|
2015-10-16 00:34:26 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libx11" ,libx11)
|
|
|
|
|
("libxext" ,libxext)
|
|
|
|
|
("libxrandr" ,libxrandr)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:modules ((srfi srfi-26)
|
|
|
|
|
(guix build utils)
|
|
|
|
|
(guix build gnu-build-system))
|
|
|
|
|
#:make-flags (let ((inputs (map (cut assoc-ref %build-inputs <>)
|
|
|
|
|
'("libx11" "libxext" "libxrandr")))
|
|
|
|
|
(join (lambda (proc strs)
|
|
|
|
|
(string-join (map proc strs) " ")))
|
|
|
|
|
(dash-I (cut string-append "-I" <> "/include"))
|
|
|
|
|
(dash-L (cut string-append "-L" <> "/lib")))
|
|
|
|
|
`("desktopfilesdir=$(prefix)/share/xsessions"
|
|
|
|
|
,(string-append "prefix=" (assoc-ref %outputs "out"))
|
|
|
|
|
,(string-append "CPPFLAGS=" (join dash-I inputs))
|
|
|
|
|
,(string-append "LDFLAGS=" (join dash-L inputs))))
|
|
|
|
|
#:tests? #f ;no tests
|
|
|
|
|
#:phases (modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)))) ;no configure script
|
|
|
|
|
(home-page "http://www.6809.org.uk/evilwm/")
|
|
|
|
|
(synopsis "Minimalist window manager for the X Window System")
|
|
|
|
|
(description
|
|
|
|
|
"evilwm is a minimalist window manager based on aewm, extended to feature
|
|
|
|
|
many keyboard controls with repositioning and maximize toggles, solid window
|
|
|
|
|
drags, snap-to-border support, and virtual desktops.")
|
2016-02-28 07:37:22 +01:00
|
|
|
|
(license (license:x11-style "file:///README"))))
|
|
|
|
|
|
|
|
|
|
(define-public fluxbox
|
|
|
|
|
(package
|
|
|
|
|
(name "fluxbox")
|
|
|
|
|
(version "1.3.7")
|
|
|
|
|
(synopsis "Small and fast window manager")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
2016-07-21 08:35:30 +02:00
|
|
|
|
(uri (string-append "mirror://sourceforge/fluxbox/fluxbox/"
|
2016-02-28 07:37:22 +01:00
|
|
|
|
version "/fluxbox-" version ".tar.xz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1h1f70y40qd225dqx937vzb4k2cz219agm1zvnjxakn5jkz7b37w"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags '("CPPFLAGS=-U__TIME__") ;ugly, but for reproducibility
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-after
|
|
|
|
|
'install 'install-xsession
|
|
|
|
|
(lambda _
|
|
|
|
|
(let ((xsessions (string-append %output "/share/xsessions")))
|
|
|
|
|
(mkdir-p xsessions)
|
|
|
|
|
(call-with-output-file
|
|
|
|
|
(string-append xsessions "/fluxbox.desktop")
|
|
|
|
|
(lambda (port)
|
|
|
|
|
(format port "~
|
|
|
|
|
[Desktop Entry]~@
|
|
|
|
|
Name=~a~@
|
|
|
|
|
Comment=~a~@
|
|
|
|
|
Exec=~a/bin/startfluxbox~@
|
|
|
|
|
Type=Application~%" ,name ,synopsis %output)))))))))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("freetype" ,freetype)
|
|
|
|
|
("fribidi" ,fribidi)
|
|
|
|
|
("imlib2" ,imlib2)
|
|
|
|
|
("libx11" ,libx11)
|
|
|
|
|
("libxext" ,libxext)
|
|
|
|
|
("libxft" ,libxft)
|
|
|
|
|
("libxinerama" ,libxinerama)
|
|
|
|
|
("libxpm" ,libxpm)
|
|
|
|
|
("libxrandr" ,libxrandr)
|
|
|
|
|
("libxrender" ,libxrender)))
|
|
|
|
|
(description "Fluxbox is a window manager. It is light on resources
|
|
|
|
|
and easy to handle yet full of features to make an easy and fast desktop
|
|
|
|
|
experience.")
|
|
|
|
|
(home-page "http://fluxbox.org/")
|
|
|
|
|
(license license:expat)))
|
2016-06-15 14:15:33 +02:00
|
|
|
|
|
|
|
|
|
(define-public awesome
|
|
|
|
|
(package
|
|
|
|
|
(name "awesome")
|
2017-11-03 16:07:58 +01:00
|
|
|
|
(version "4.2")
|
2016-06-15 14:15:33 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin (method url-fetch)
|
|
|
|
|
(uri (string-append
|
2016-12-26 21:53:40 +01:00
|
|
|
|
"https://github.com/awesomeWM/awesome-releases/raw/"
|
|
|
|
|
"master/awesome-" version ".tar.xz"))
|
2016-06-15 14:15:33 +02:00
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-11-03 16:07:58 +01:00
|
|
|
|
"0kwpbls9h1alxcmvxh5g9qb995fds5b2ngcr44w0ibazkyls2pdc"))
|
2016-06-15 14:15:33 +02:00
|
|
|
|
(modules '((guix build utils)
|
|
|
|
|
(srfi srfi-19)))
|
gnu: All snippets report errors using exceptions, else return #t.
* gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm,
gnu/packages/backup.scm, gnu/packages/base.scm,
gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm,
gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm,
gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm,
gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm,
gnu/packages/emulators.scm, gnu/packages/engineering.scm,
gnu/packages/enlightenment.scm, gnu/packages/fpga.scm,
gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm,
gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm,
gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm,
gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm,
gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm,
gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm,
gnu/packages/lxde.scm, gnu/packages/machine-learning.scm,
gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm,
gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm,
gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm,
gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm,
gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm,
gnu/packages/pretty-print.scm, gnu/packages/profiling.scm,
gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm,
gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm,
gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm,
gnu/packages/scribus.scm, gnu/packages/sdl.scm,
gnu/packages/serialization.scm, gnu/packages/shells.scm,
gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm,
gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm,
gnu/packages/terminals.scm, gnu/packages/texinfo.scm,
gnu/packages/text-editors.scm, gnu/packages/textutils.scm,
gnu/packages/tls.scm, gnu/packages/unrtf.scm,
gnu/packages/version-control.scm, gnu/packages/video.scm,
gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm,
gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm:
In all snippets, report errors using exceptions, or else return #t.
2018-03-16 12:47:34 +01:00
|
|
|
|
(snippet '(begin
|
|
|
|
|
;; Remove non-reproducible timestamp and use the date
|
|
|
|
|
;; of the source file instead.
|
|
|
|
|
(substitute* "common/version.c"
|
|
|
|
|
(("__DATE__ \" \" __TIME__")
|
|
|
|
|
(date->string
|
|
|
|
|
(time-utc->date
|
|
|
|
|
(make-time time-utc 0
|
|
|
|
|
(stat:mtime (stat "awesome.c"))))
|
|
|
|
|
"\"~c\"")))
|
|
|
|
|
#t))
|
2016-06-15 14:15:33 +02:00
|
|
|
|
(patches (search-patches "awesome-reproducible-png.patch"))))
|
|
|
|
|
(build-system cmake-build-system)
|
|
|
|
|
(native-inputs `(("asciidoc" ,asciidoc)
|
|
|
|
|
("docbook-xsl" ,docbook-xsl)
|
|
|
|
|
("doxygen" ,doxygen)
|
|
|
|
|
("gperf" ,gperf)
|
|
|
|
|
("imagemagick" ,imagemagick)
|
|
|
|
|
("libxml2" ,libxml2) ;for XML_CATALOG_FILES
|
|
|
|
|
("pkg-config" ,pkg-config)
|
|
|
|
|
("xmlto" ,xmlto)))
|
|
|
|
|
(inputs `(("cairo" ,cairo)
|
|
|
|
|
("dbus" ,dbus)
|
|
|
|
|
("gdk-pixbuf" ,gdk-pixbuf)
|
|
|
|
|
("glib" ,glib)
|
2016-09-20 20:02:53 +02:00
|
|
|
|
("gobject-introspection" ,gobject-introspection)
|
2016-06-15 14:15:33 +02:00
|
|
|
|
("imlib2" ,imlib2)
|
|
|
|
|
("libev" ,libev)
|
|
|
|
|
("libxcb" ,libxcb)
|
|
|
|
|
("libxcursor" ,libxcursor)
|
|
|
|
|
("libxdg-basedir" ,libxdg-basedir)
|
2016-12-26 21:53:40 +01:00
|
|
|
|
("libxkbcommon" ,libxkbcommon)
|
2016-09-20 20:02:53 +02:00
|
|
|
|
("lua" ,lua)
|
2018-03-16 16:50:14 +01:00
|
|
|
|
("lua-lgi" ,lua-lgi)
|
2016-06-15 14:15:33 +02:00
|
|
|
|
("pango" ,pango)
|
|
|
|
|
("startup-notification" ,startup-notification)
|
|
|
|
|
("xcb-util" ,xcb-util)
|
|
|
|
|
("xcb-util-cursor" ,xcb-util-cursor)
|
|
|
|
|
("xcb-util-image" ,xcb-util-image)
|
|
|
|
|
("xcb-util-keysyms" ,xcb-util-keysyms)
|
|
|
|
|
("xcb-util-renderutil" ,xcb-util-renderutil)
|
2016-12-26 21:53:40 +01:00
|
|
|
|
("xcb-util-xrm" ,xcb-util-xrm)
|
2016-06-15 14:15:33 +02:00
|
|
|
|
("xcb-util-wm" ,xcb-util-wm)))
|
|
|
|
|
(arguments
|
|
|
|
|
`(;; Let compression happen in our 'compress-documentation' phase so that
|
|
|
|
|
;; '--no-name' is used, which removes timestamps from gzip output.
|
|
|
|
|
#:configure-flags '("-DCOMPRESS_MANPAGES=off")
|
|
|
|
|
|
2017-11-03 16:07:58 +01:00
|
|
|
|
;; Building awesome in its source dir is no longer supported.
|
|
|
|
|
#:out-of-source? #t
|
|
|
|
|
|
2016-09-20 20:02:53 +02:00
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'build 'xmlto-skip-validation
|
|
|
|
|
(lambda _
|
|
|
|
|
;; We can't download the necessary schema, so so skip
|
|
|
|
|
;; validation and assume they're valid.
|
|
|
|
|
(substitute* "../build/CMakeFiles/man.dir/build.make"
|
|
|
|
|
(("/xmlto")
|
|
|
|
|
(string-append "/xmlto --skip-validation")))
|
|
|
|
|
#t))
|
|
|
|
|
(add-before 'configure 'set-lua-paths
|
|
|
|
|
(lambda* (#:key inputs #:allow-other-keys)
|
|
|
|
|
;; The build process needs to load cairo dynamically.
|
|
|
|
|
(let* ((cairo (string-append
|
|
|
|
|
(assoc-ref inputs "cairo") "/lib" ))
|
|
|
|
|
(lua-lgi (assoc-ref inputs "lua-lgi") ))
|
|
|
|
|
(setenv "LD_LIBRARY_PATH" cairo )
|
|
|
|
|
(setenv "LUA_PATH" (string-append lua-lgi
|
|
|
|
|
"/share/lua/5.2/?.lua"))
|
|
|
|
|
(setenv "LUA_CPATH" (string-append lua-lgi
|
|
|
|
|
"/lib/lua/5.2/?.so"))
|
|
|
|
|
#t)))
|
|
|
|
|
(replace 'check
|
|
|
|
|
(lambda _
|
|
|
|
|
;; There aren't any tests, so just make sure the binary
|
|
|
|
|
;; gets built and can be run successfully.
|
|
|
|
|
(zero? (system* "../build/awesome" "-v"))))
|
|
|
|
|
(add-after 'install 'wrap
|
|
|
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
|
|
|
(let* ((awesome (assoc-ref outputs "out"))
|
|
|
|
|
(cairo (string-append
|
|
|
|
|
(assoc-ref inputs "cairo") "/lib" ))
|
|
|
|
|
(lua-lgi (assoc-ref inputs "lua-lgi") ))
|
|
|
|
|
(wrap-program (string-append awesome "/bin/awesome")
|
|
|
|
|
`("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH")))
|
|
|
|
|
`("LD_LIBRARY_PATH" suffix (, cairo))
|
|
|
|
|
`("LUA_PATH" suffix (,(string-append lua-lgi
|
|
|
|
|
"/share/lua/5.2/?.lua")))
|
|
|
|
|
`("LUA_CPATH" suffix (,(string-append
|
|
|
|
|
lua-lgi "/lib/lua/5.2/?.so"))))))))))
|
2016-06-15 14:15:33 +02:00
|
|
|
|
(synopsis "Highly configurable window manager")
|
|
|
|
|
(description
|
2016-08-20 22:56:46 +02:00
|
|
|
|
"Awesome has been designed as a framework window manager. It is fast, small,
|
|
|
|
|
dynamic and extensible using the Lua programming language.")
|
2016-06-15 14:15:33 +02:00
|
|
|
|
(license license:gpl2+)
|
|
|
|
|
(home-page "https://awesome.naquadah.org/")))
|
2017-01-18 13:47:21 +01:00
|
|
|
|
|
|
|
|
|
(define-public menumaker
|
|
|
|
|
(package
|
|
|
|
|
(name "menumaker")
|
|
|
|
|
(version "0.99.10")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "mirror://sourceforge/menumaker/"
|
|
|
|
|
"menumaker-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"1mm4cvg3kphkkd8nwrhcg6d9nm5ar7mgc0wf6fxk6zck1l7xn8ky"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("python" ,python)))
|
|
|
|
|
(synopsis "Heuristics-driven menu generator")
|
|
|
|
|
(description
|
|
|
|
|
"MenuMaker is a menu generation utility for a number of X window
|
|
|
|
|
managers and desktop environments. It is capable of finding lots of
|
|
|
|
|
installed programs and generating a root menu consistent across all
|
|
|
|
|
supported window managers, so one will get (almost) the same menu in
|
|
|
|
|
all of them. Currently supported window managers include:
|
|
|
|
|
|
|
|
|
|
@enumerate
|
|
|
|
|
@item BlackBox
|
|
|
|
|
@item Deskmenu
|
|
|
|
|
@item FluxBox
|
|
|
|
|
@item IceWM
|
|
|
|
|
@item OpenBox
|
|
|
|
|
@item PekWM
|
|
|
|
|
@item WindowMaker
|
|
|
|
|
@item XFCE
|
|
|
|
|
@end enumerate\n")
|
|
|
|
|
(home-page "http://menumaker.sourceforge.net/")
|
|
|
|
|
(license license:bsd-2)))
|
2017-01-23 18:02:49 +01:00
|
|
|
|
|
|
|
|
|
(define-public keybinder
|
|
|
|
|
(package
|
|
|
|
|
(name "keybinder")
|
|
|
|
|
(version "0.3.1")
|
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
2018-01-26 00:21:04 +01:00
|
|
|
|
(uri (string-append "https://github.com/kupferlauncher/keybinder"
|
|
|
|
|
"/releases/download/v" version "/keybinder-"
|
2017-01-23 18:02:49 +01:00
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0h52hj3ay8mfhwvmfxbxlfyq74hifdk8wxgxp7fr4iy6189hg7w7"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("python-2" ,python-2)
|
|
|
|
|
("gtk+-2" ,gtk+-2)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("python2-pygtk" ,python2-pygtk)
|
|
|
|
|
("gtk-doc" ,gtk-doc)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(synopsis "Library for registering global keyboard shortcuts")
|
|
|
|
|
(description
|
|
|
|
|
"Keybinder is a library for registering global keyboard shortcuts.
|
|
|
|
|
Keybinder works with GTK-based applications using the X Window System.")
|
2018-01-26 00:21:04 +01:00
|
|
|
|
(home-page "https://github.com/kupferlauncher/keybinder")
|
2017-01-23 18:02:49 +01:00
|
|
|
|
(license license:gpl2+)))
|
2017-05-04 21:45:54 +02:00
|
|
|
|
|
|
|
|
|
(define-public spectrwm
|
|
|
|
|
(package
|
|
|
|
|
(name "spectrwm")
|
2017-11-15 18:39:06 +01:00
|
|
|
|
(version "3.1.0")
|
2017-05-04 21:45:54 +02:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (let ((version-with-underscores
|
|
|
|
|
(string-join (string-split version #\.) "_")))
|
|
|
|
|
(string-append "https://github.com/conformal/spectrwm/archive/"
|
|
|
|
|
"SPECTRWM_" version-with-underscores ".tar.gz")))
|
|
|
|
|
(file-name (string-append name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2017-11-15 18:39:06 +01:00
|
|
|
|
"16lxcharxslf9rc39wxa3mr2nx5d8kzm9ls7p7dal8yrwr7y59dp"))))
|
2017-05-04 21:45:54 +02:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags (let ((pkg-config (lambda (flag)
|
|
|
|
|
(string-append
|
|
|
|
|
"$(shell pkg-config " flag " "
|
|
|
|
|
"xft fontconfig x11 libpng)"))))
|
|
|
|
|
(list
|
|
|
|
|
"CC=gcc"
|
|
|
|
|
(string-append "PREFIX=" %output)
|
|
|
|
|
(string-append "INCS=-I. " (pkg-config "--cflags"))
|
|
|
|
|
(string-append "LIBS=" (pkg-config "--libs") " -lm")))
|
|
|
|
|
#:tests? #f ;No test suite
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(add-before 'build 'change-dir
|
|
|
|
|
(lambda _
|
|
|
|
|
(chdir "linux") #t))
|
|
|
|
|
(add-after 'change-dir 'patch-makefile
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("-g") ""))))
|
|
|
|
|
(add-after 'change-dir 'fix-freetype-include
|
|
|
|
|
(lambda _
|
|
|
|
|
(substitute* "Makefile"
|
|
|
|
|
(("/usr/include/freetype2")
|
|
|
|
|
(string-append (assoc-ref %build-inputs "freetype")
|
|
|
|
|
"/include/freetype2")))))
|
|
|
|
|
(delete 'configure)))) ;no 'configure' exists
|
|
|
|
|
(inputs
|
|
|
|
|
`(("freetype" ,freetype)
|
|
|
|
|
("fontconfig" ,fontconfig)
|
|
|
|
|
("libx11" ,libx11)
|
|
|
|
|
("libxcursor" ,libxcursor)
|
|
|
|
|
("libxrandr" ,libxrandr)
|
|
|
|
|
("libxtst" ,libxtst)
|
|
|
|
|
("libxft" ,libxft)
|
|
|
|
|
("xcb-util" ,xcb-util)
|
|
|
|
|
("xcb-util-wm" ,xcb-util-wm)
|
|
|
|
|
("xcb-util-keysyms" ,xcb-util-keysyms)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("libxt" ,libxt)
|
|
|
|
|
("pkg-config" ,pkg-config)))
|
|
|
|
|
(synopsis "Minimalistic automatic tiling window manager")
|
|
|
|
|
(description
|
|
|
|
|
"Spectrwm is a small dynamic tiling and reparenting window manager for X11.
|
|
|
|
|
It is inspired by Xmonad and dwm. Its major features include:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item Navigation anywhere on all screens with either the keyboard or mouse
|
|
|
|
|
@item Customizable status bar
|
|
|
|
|
@item Restartable without losing state
|
|
|
|
|
@item Quick launch menu
|
|
|
|
|
@item Many screen layouts possible with a few simple key strokes
|
|
|
|
|
@item Move/resize floating windows
|
2017-11-23 18:40:35 +01:00
|
|
|
|
@item Extended Window Manager Hints (@dfn{EWMH}) support
|
|
|
|
|
@item Configurable tiling
|
2017-05-04 21:45:54 +02:00
|
|
|
|
@item Adjustable tile gap allows for a true one pixel border
|
|
|
|
|
@item Customizable colors and border width
|
|
|
|
|
@end itemize\n")
|
|
|
|
|
(home-page "https://github.com/conformal/spectrwm")
|
|
|
|
|
(license license:isc)))
|
2018-02-04 12:15:19 +01:00
|
|
|
|
|
|
|
|
|
(define-public cwm
|
|
|
|
|
(package
|
|
|
|
|
(name "cwm")
|
2018-05-18 01:34:52 +02:00
|
|
|
|
(version "6.3")
|
2018-02-04 12:15:19 +01:00
|
|
|
|
(source
|
|
|
|
|
(origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://chneukirchen.org/releases/cwm-"
|
|
|
|
|
version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
2018-05-18 01:34:52 +02:00
|
|
|
|
"17pdp9cfgh2n3n3905l4rl9qk7b722i8psnarhlc2h98qzx7zmac"))))
|
2018-02-04 12:15:19 +01:00
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(arguments
|
|
|
|
|
`(#:make-flags (list "CC=gcc"
|
|
|
|
|
(string-append "PREFIX=" %output))
|
|
|
|
|
#:tests? #f
|
|
|
|
|
#:phases
|
|
|
|
|
(modify-phases %standard-phases
|
|
|
|
|
(delete 'configure)
|
|
|
|
|
(add-after 'build 'install-xsession
|
|
|
|
|
(lambda* (#:key outputs #:allow-other-keys)
|
|
|
|
|
;; Add a .desktop file to xsessions.
|
|
|
|
|
(let* ((output (assoc-ref outputs "out"))
|
|
|
|
|
(xsessions (string-append output "/share/xsessions")))
|
|
|
|
|
(mkdir-p xsessions)
|
|
|
|
|
(with-output-to-file
|
|
|
|
|
(string-append xsessions "/cwm.desktop")
|
|
|
|
|
(lambda _
|
|
|
|
|
(format #t
|
|
|
|
|
"[Desktop Entry]~@
|
|
|
|
|
Name=cwm~@
|
|
|
|
|
Comment=OpenBSD Calm Window Manager fork~@
|
|
|
|
|
Exec=~a/bin/cwm~@
|
|
|
|
|
TryExec=~@*~a/bin/cwm~@
|
|
|
|
|
Icon=~@
|
|
|
|
|
Type=Application~%"
|
|
|
|
|
output)))
|
|
|
|
|
#t))))))
|
|
|
|
|
(inputs
|
|
|
|
|
`(("libxft" ,libxft)
|
|
|
|
|
("libxrandr" ,libxrandr)
|
|
|
|
|
("libxinerama" ,libxinerama)))
|
|
|
|
|
(native-inputs
|
|
|
|
|
`(("pkg-config" ,pkg-config)
|
|
|
|
|
("bison" ,bison)))
|
|
|
|
|
(home-page "https://github.com/chneukirchen/cwm")
|
|
|
|
|
(synopsis "OpenBSD fork of the calmwm window manager")
|
|
|
|
|
(description "Cwm is a stacking window manager for X11. It is an OpenBSD
|
|
|
|
|
project derived from the original Calm Window Manager.")
|
|
|
|
|
(license license:isc)))
|
2018-04-30 22:55:48 +02:00
|
|
|
|
|
|
|
|
|
(define-public nitrogen
|
|
|
|
|
(package
|
|
|
|
|
(name "nitrogen")
|
|
|
|
|
(version "1.6.1")
|
|
|
|
|
(source (origin
|
|
|
|
|
(method url-fetch)
|
|
|
|
|
(uri (string-append "http://github.com/l3ib/nitrogen/"
|
|
|
|
|
"releases/download/" version "/"
|
|
|
|
|
name "-" version ".tar.gz"))
|
|
|
|
|
(sha256
|
|
|
|
|
(base32
|
|
|
|
|
"0zc3fl1mbhq0iyndy4ysmy8vv5c7xwf54rbgamzfhfvsgdq160pl"))))
|
|
|
|
|
(build-system gnu-build-system)
|
|
|
|
|
(inputs
|
|
|
|
|
`(("gtk+" ,gtk+-2)
|
|
|
|
|
("gtkmm" ,gtkmm-2)
|
|
|
|
|
("glib" ,glib)
|
|
|
|
|
("glibmm" ,glibmm)))
|
|
|
|
|
(native-inputs
|
2018-06-20 01:03:47 +02:00
|
|
|
|
`(("pkg-config" ,pkg-config)))
|
2018-04-30 22:55:48 +02:00
|
|
|
|
(arguments
|
|
|
|
|
`(#:configure-flags (list
|
|
|
|
|
(string-append "--prefix=" %output)
|
|
|
|
|
"CXXFLAGS=-std=c++11")))
|
|
|
|
|
(home-page "http://projects.l3ib.org/nitrogen/")
|
|
|
|
|
(synopsis "Background browser and setter for X windows")
|
|
|
|
|
(description
|
|
|
|
|
"This package is a background browser and setter for X windows. It's
|
|
|
|
|
features are:
|
|
|
|
|
|
|
|
|
|
@itemize
|
|
|
|
|
@item Multihead and Xinerama aware
|
|
|
|
|
@item Recall mode to used via startup script
|
|
|
|
|
@item Uses freedesktop.org standard for thumbnails
|
|
|
|
|
@item Can set GNOME background
|
|
|
|
|
@item Command lie set modes for script use
|
|
|
|
|
@item Inotify monitoring of browse directory
|
|
|
|
|
@item Lazy loading of thumbnails - conserves memory
|
|
|
|
|
@item \"Automatic\" set mode - determines best mode to set an image based on
|
|
|
|
|
its size
|
|
|
|
|
@item Display preview images in a tiled icon layout
|
|
|
|
|
@end itemize")
|
|
|
|
|
(license license:gpl2+)))
|