From: Ivan Vilata i Balaguer <ivan@selidor.net>
To: guix-devel@gnu.org
Subject: [PATCH 2/2] gnu: wm: Add quickswitch-i3.
Date: Mon, 19 Sep 2016 14:45:00 +0200 [thread overview]
Message-ID: <20160919124500.GA19342@sax.terramar.selidor.net> (raw)
In-Reply-To: <cover.1474288491.git.ivan@selidor.net>
[-- Attachment #1: Type: text/plain, Size: 4488 bytes --]
Thanks to Brendan Tildesley, Leo Famulari and Hartmut Goebel for testing and
advice.
* gnu/packages/wm.scm (quickswitch-i3): New variable.
---
| 26 ++++++++++++
gnu/packages/wm.scm | 46 ++++++++++++++++++++++
2 files changed, 72 insertions(+)
create mode 100644 gnu/packages/patches/quickswitch-fix-dmenu-check.patch
--git a/gnu/packages/patches/quickswitch-fix-dmenu-check.patch b/gnu/packages/patches/quickswitch-fix-dmenu-check.patch
new file mode 100644
index 0000000..3328af3
--- /dev/null
+++ b/gnu/packages/patches/quickswitch-fix-dmenu-check.patch
@@ -0,0 +1,26 @@
+Fix Debian-specific check for dmenu.
+
+See <https://github.com/proxypoke/quickswitch-for-i3/pull/28>.
+
+--- quickswitch-for-i3-2.2/quickswitch.py 2016-09-18 19:59:10.257765542 +0200
++++ quickswitch-for-i3-2.2/quickswitch.py 2016-09-19 11:00:51.147101323 +0200
+@@ -37,11 +37,14 @@
+
+ def check_dmenu():
+ '''Check if dmenu is available.'''
+- devnull = open(os.devnull)
+- retcode = subprocess.call(["which", "dmenu"],
+- stdout=devnull,
+- stderr=devnull)
+- return True if retcode == 0 else False
++ with open(os.devnull, 'w') as devnull:
++ try:
++ retcode = subprocess.call(["dmenu", "-v"],
++ stdout=devnull,
++ stderr=devnull)
++ return retcode == 0
++ except OSError:
++ return False
+
+
+ def dmenu(options, dmenu):
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 39ecb20..a8db05f 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -59,6 +59,7 @@
#:use-module (gnu packages gperf)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages lua)
+ #:use-module (gnu packages suckless)
#:use-module (guix download)
#:use-module (guix git-download))
@@ -246,6 +247,51 @@ subscribe to events.")
(define-public python2-i3-py
(package-with-python2 python-i3-py))
+(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
+ (alist-cons-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 "-" ,version)))
+ (mkdir-p doc)
+ (copy-file "README.rst" (string-append doc "/README.rst"))))
+ %standard-phases)))
+ (propagated-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. It has since gained a lot of other functionality to make
+working with i3 even more efficient.")
+ (license (license:non-copyleft "http://www.wtfpl.net/txt/copying/")))))
+
(define-public xmonad
(package
(name "xmonad")
--
2.10.0
--
Ivan Vilata i Balaguer -- https://elvil.net/
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 819 bytes --]
next prev parent reply other threads:[~2016-09-19 12:45 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <cover.1474288491.git.ivan@selidor.net>
2016-09-19 12:44 ` [PATCH 1/2] gnu: wm: Add python-i3-py Ivan Vilata i Balaguer
2016-09-20 14:44 ` Alex Kost
2016-09-19 12:45 ` Ivan Vilata i Balaguer [this message]
[not found] <cover.1474449049.git.ivan@selidor.net>
2016-09-21 9:19 ` [PATCH 2/2] gnu: wm: Add quickswitch-i3 Ivan Vilata i Balaguer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20160919124500.GA19342@sax.terramar.selidor.net \
--to=ivan@selidor.net \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.