4
给xbindkeys添加key sequence支持
source link: http://maskray.me/blog/2012-03-14-xbindkeys-key-sequence
Go to the source link to view the article. You can view the picture content, updated content and better typesetting reading experience. If the link is broken, please click the button below to view the snapshot at that time.
给xbindkeys添加key sequence支持
xbindkeys不支持emacs风格的key sequence，不过由于它可以调用guile来支持scheme的配置文件。xbindkeys的tarball里有一个配置文件，支持key sequence的特殊形式：两个键的序列。
最近正好学了些scheme，就好好折腾了一把，写了一份配置文件，可以支持任意长的key sequence(当然太长的一般用不到)。
(define (delete-duplicates l)
(cond ((null? l) '())
((memq (car l) (cdr l)) (delete-duplicates (cdr l)))
(else (cons (car l) (delete-duplicates (cdr l))))
(define global-map '())
(define (register keys action)
(define (loop getmap setmap keys)
(if (null? keys)
(setmap action)
(let ((k (car keys)))
(if (eq? #f (assoc k (getmap)))
(setmap (assoc-set! (getmap) k '())))
(loop (lambda () (cdr (assoc k (getmap))))
(lambda (m) (setmap (assoc-set! (getmap) k m)))
(cdr keys))
(loop (lambda () global-map) (lambda (m) (set! global-map m)) keys)
(define (grab keymap)
(define (proc k)
(define action (cdr (assoc k keymap)))
(ungrab-all-keys)
(remove-all-keys)
(if (string? action)
(begin
(run-command action)
(reset-first-binding)
(grab action)
(grab-all-keys)
(map (lambda (k)
(xbindkey-function k (lambda () (proc k)))
) (delete-duplicates (map car keymap)))
(if (not (eq? global-map keymap))
(xbindkey-function '(control g) (lambda () (reset-first-binding)))
(define (first-binding)
(grab global-map)
(define (reset-first-binding)
(ungrab-all-keys)
(remove-all-keys)
(first-binding)
(grab-all-keys))
(define (simple s)
(string-concatenate `("wmctrl -xa " ,s "||" ,s))
(register '((control semicolon) x) (simple "xterm"))
(register '((control semicolon) u) "wmctrl tmux || -T tmux -e tmux attach -t default")
(register '((control semicolon) e) "wmctrl -xa Emacs || emacsclient -c -n")
(register '((control semicolon) v) "wmctrl -xa Vim || gvim")
(register '((control semicolon) f) (simple "firefox"))
(register '((control semicolon) i) (simple "evince"))
(register '((control semicolon) (control semicolon)) "xdotool send ctrl+semicolon")
(first-binding)
用法很简单，模仿代码中的(register ...)，在这串键绑定里添删你自己的。xbindkeys还支持shift mod3 release等修饰符。release指的是键释放时而不是press时执行动作。xbindkeys -d还有其他一些关于修饰符的例子。
我的键绑定中wmctrl -xa是一个用外部命令搭建的简易jump-or-exec，wmctrl会检查窗口title和class，如果不存在则执行，否则给相应窗口焦点。(simple ...)针对的是title和class相同的情况。
两次control semicolon被我映射为产生一个control semicolon，key sequence按到一半时按control g是取消。
Recommend
About Joyk
Aggregate valuable and interesting links.
Joyk means Joy of geeK