-
Notifications
You must be signed in to change notification settings - Fork 0
/
xbindkeysrc.scm
167 lines (133 loc) · 4.69 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
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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.3
;; If you edit this file, do not forget to uncomment any lines
;; that you change.
;; The semicolon(;) symbol may be used anywhere for comments.
;; To specify a key, you can use 'xbindkeys --key' or
;; 'xbindkeys --multikey' and put one of the two lines in this file.
;; A list of keys is in /usr/include/X11/keysym.h and in
;; /usr/include/X11/keysymdef.h
;; The XK_ is not needed.
;; 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
;;;;EXTRA FUNCTIONS: Enable numlock, scrolllock or capslock usage
;;(set-numlock! #t)
;;(set-scrolllock! #t)
;;(set-capslock! #t)
;;;;; 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)
;; Examples of commands:
(xbindkey '(control shift q) "xbindkeys_show")
;; set directly keycode (here control + f with my keyboard)
(xbindkey '("m:0x4" "c:41") "xterm")
;; specify a mouse button
(xbindkey '(control "b:2") "xterm")
;;(xbindkey '(shift mod2 alt s) "xterm -geom 50x20+20+20")
;; set directly keycode (control+alt+mod2 + f with my keyboard)
(xbindkey '(alt "m:4" mod2 "c:0x29") "xterm")
;; Control+Shift+a release event starts rxvt
;;(xbindkey '(release control shift a) "rxvt")
;; Control + mouse button 2 release event starts rxvt
;;(xbindkey '(releace control "b:2") "rxvt")
;; Extra features
(xbindkey-function '(control a)
(lambda ()
(display "Hello from Scheme!")
(newline)))
(xbindkey-function '(shift p)
(lambda ()
(run-command "xterm")))
;; Double click test
(xbindkey-function '(control w)
(let ((count 0))
(lambda ()
(set! count (+ count 1))
(if (> count 1)
(begin
(set! count 0)
(run-command "xterm"))))))
;; Time double click test:
;; - short double click -> run an xterm
;; - long double click -> run an rxvt
(xbindkey-function '(shift w)
(let ((time (current-time))
(count 0))
(lambda ()
(set! count (+ count 1))
(if (> count 1)
(begin
(if (< (- (current-time) time) 1)
(run-command "xterm")
(run-command "rxvt"))
(set! count 0)))
(set! time (current-time)))))
;; 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 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;