forked from brandondrew/dotfiles
-
Notifications
You must be signed in to change notification settings - Fork 0
/
.xbindkeysrc.scm
143 lines (115 loc) · 4.46 KB
/
.xbindkeysrc.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Start of xbindkeys guile configuration ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This configuration is guile based.
;; http://www.gnu.org/software/guile/guile.html
;; any functions that work in guile will work here.
;; see EXTRA FUNCTIONS:
;; Version: 1.8.2
;; If you edit this file, do not forget to uncomment any lines
;; that you change.
;; The semicolon(;) symbol may be used anywhere for comments.
;; List of modifier:
;; Release, Control, Shift, Mod1 (Alt), Mod2 (NumLock),
;; Mod3 (CapsLock), Mod4, Mod5 (Scroll).
;; The release modifier is not a standard X modifier, but you can
;; use it if you want to catch release instead of press events
;; By defaults, xbindkeys does not pay attention to modifiers
;; NumLock, CapsLock and ScrollLock.
;; Uncomment the lines below if you want to use them.
;; To dissable them, call the functions with #f
;;;;; Scheme API reference
;;;;
;; Optional modifier state:
;; (set-numlock! #f or #t)
;; (set-scrolllock! #f or #t)
;; (set-capslock! #f or #t)
;;
;; Shell command key:
;; (xbindkey key "foo-bar-command [args]")
;; (xbindkey '(modifier* key) "foo-bar-command [args]")
;;
;; Scheme function key:
;; (xbindkey-function key function-name-or-lambda-function)
;; (xbindkey-function '(modifier* key) function-name-or-lambda-function)
;;
;; Other functions:
;; (remove-xbindkey key)
;; (run-command "foo-bar-command [args]")
;; (grab-all-keys)
;; (ungrab-all-keys)
;; (remove-all-keys)
;; (debug)
;;;; Music functions
(map (lambda (binding) (xbindkey (car binding) (cdr binding)))
(list '(F5 . "~/bin/music-show")
'((Control F5) . "~/bin/music-playlist")
'(F6 . "~/bin/music-random")
'(F7 . "~/bin/music-choose")
'(F8 . "mpc toggle")
'(F9 . "mpc prev")
'(F10 . "mpc next")
'((mod4 F12) . "vlc -f ~/documents/movies/misc/rick.flv"))) ;; tee hee
(xbindkey '(mod4 g) "gmpc")
;;;; Other launchers
;; (xbindkey '(mod1 space) "gnome-do")
(xbindkey '(mod4 e) "emacs")
(xbindkey '(mod4 shift e) "emacs -f safe")
(xbindkey '(mod4 f) "~/bin/firefox/firefox")
(xbindkey '(mod4 c) "conkeror")
(xbindkey '(mod4 r) "chromium-browser")
(xbindkey '(mod4 d) "devilspie")
(xbindkey '(mod4 p) "gnome-display-properties")
(xbindkey '(mod4 s) "shotwell")
(xbindkey '(mod4 i) "gnome-terminal --command \"ssh -t x tmux -2 attach\"")
(xbindkey '(mod4 y) "synergys")
(xbindkey '(mod4 shift y) "killall synergys")
(xbindkey '(mod4 b) "~/bin/dbook.rb")
(xbindkey '(mod4 k) "nautilus ~/documents/books")
(xbindkey '(mod4 m) "nautilus ~/documents/movies")
(xbindkey '(mod4 n) "nautilus ~/")
(xbindkey '(mod4 t) "~/src/stiler/stiler.py swap")
(xbindkey '(mod4 shift t) "~/src/stiler/stiler.py cycle")
(xbindkey '(mod4 v) "~/src/stiler/stiler.py vertical")
(xbindkey '(mod4 u) "uuidgen | xsel -i --clipboard")
(xbindkey '(mod4 grave) "gnome-terminal -e \"tmux attach || tmux\"")
;; (xbindkey '(mod4 grave) "gnome-terminal")
(xbindkey '(mod1 grave) "gnome-terminal")
(xbindkey '(mod4 x) "killall xbindkeys && xbindkeys")
;; Chording keys test: Start differents program if only one key is
;; pressed or another if two keys are pressed.
;; If key1 is pressed start cmd-k1
;; If key2 is pressed start cmd-k2
;; If both are pressed start cmd-k1-k2 or cmd-k2-k1 following the
;; release order
(define (define-chord-keys key1 key2 cmd-k1 cmd-k2 cmd-k1-k2 cmd-k2-k1)
"Define chording keys"
(let ((k1 #f) (k2 #f))
(xbindkey-function key1 (lambda () (set! k1 #t)))
(xbindkey-function key2 (lambda () (set! k2 #t)))
(xbindkey-function (cons 'release key1)
(lambda ()
(if (and k1 k2)
(run-command cmd-k1-k2)
(if k1 (run-command cmd-k1)))
(set! k1 #f) (set! k2 #f)))
(xbindkey-function (cons 'release key2)
(lambda ()
(if (and k1 k2)
(run-command cmd-k2-k1)
(if k2 (run-command cmd-k2)))
(set! k1 #f) (set! k2 #f)))))
;; Example:
;; Shift + b:1 start an xterm
;; Shift + b:3 start an rxvt
;; Shift + b:1 then Shift + b:3 start gv
;; Shift + b:3 then Shift + b:1 start xpdf
;; (define-chord-keys '(shift "b:1") '(shift "b:3")
;; "xterm" "rxvt" "gv" "xpdf")
;; Here the release order have no importance
;; (the same program is started in both case)
;; (define-chord-keys '(alt "b:1") '(alt "b:3")
;; "gv" "xpdf" "xterm" "xterm")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; End of xbindkeys guile configuration ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;