ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.xbindkeysrc.scm

Browse source
This commit is contained in:
Tom Willemsen 2012-02-06 21:51:01 +01:00
parent 9fa57d0fce
commit 2f10eab467
1 changed files with 27 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
.xbindkeysrc.scm
View file

@ -1,4 +1,7 @@
;; -*- eval: (git-auto-commit-mode 1) -*-
(use-modules (ice-9 popen)
(ice-9 rdelim))
;;; Modkey
(define modkey 'mod4)
@ -16,6 +19,28 @@
(main-binding)
(grab-all-keys))
(define (get-tags)
(let* ((file (open-input-pipe
"TAGS=( $(herbstclient tag_status 0 | tr \":\\!.+#\" \" \") ); echo ${TAGS[@]}"))
(tags (string-split (read-line file) #\ )))
(close-port file)
tags))
(define (get-tag tags pipe)
(read-line pipe))
(define (choose-tag tags)
(let* ((file (open-input-pipe (string-append "echo '" (string-join tags "\n") "' | dmenu")))
(tag (read-line file)))
(close-port file)
tag))
(define (switch-tags)
"Switch to another tag"
(let ((tag (choose-tag (get-tags))))
(run-command (string-append "herbtsclient use " tag))
(reset-main-binding)))
;;; Maps
(define (main-binding)
"First binding"
@ -41,7 +66,8 @@
"Second binding"
(ungrab-all-keys)
(remove-all-keys)
(xbindkey-function '(b) (cmd "~/bin/switch_tags"))
;;(xbindkey-function '(b) (cmd "~/bin/switch_tags"))
(xbindkey-function '(b) switch-tags)
(xbindkey-function `(,modkey c) (cmd "herbstclient quit"))
(xbindkey-function `(,modkey r) (cmd "herbstclient reload"))
(xbindkey-function '(k) (cmd "~/bin/kill_tag"))