.sawfish/rc

This commit is contained in:
Tom Willemsen 2012-06-20 09:36:52 +02:00
parent a32d5d0041
commit 8e45da4df0

View file

@ -2,6 +2,8 @@
(define oni:extended-keymap (make-keymap)) (define oni:extended-keymap (make-keymap))
(define oni:window-management-keymap (make-keymap)) (define oni:window-management-keymap (make-keymap))
(define oni:window-packing-keymap (make-keymap)) (define oni:window-packing-keymap (make-keymap))
(define oni:window-growing-keymap (make-keymap))
(define oni:window-shrinking-keymap (make-keymap))
(setq user-apps-menu (setq user-apps-menu
'(("Emacs" (system "emacsclient -c &")) '(("Emacs" (system "emacsclient -c &"))
@ -13,9 +15,23 @@
"b" 'pack-window-left "b" 'pack-window-left
"f" 'pack-window-right) "f" 'pack-window-right)
(bind-keys oni:window-growing-keymap
"p" 'grow-window-up
"n" 'grow-window-down
"b" 'grow-window-left
"f" 'grow-window-right)
(bind-keys oni:window-shrinking-keymap
"p" 'shrink-window-up
"n" 'shrink-window-down
"b" 'shrink-window-left
"f" 'shrink-window-right)
(bind-keys oni:window-management-keymap (bind-keys oni:window-management-keymap
"M" 'maximize-window "M" 'maximize-window
"p" oni:window-packing-keymap) "p" oni:window-packing-keymap
"g" oni:window-growing-keymap
"s" oni:window-shrinking-keymap)
(bind-keys oni:extended-keymap (bind-keys oni:extended-keymap
"w" oni:window-management-keymap) "w" oni:window-management-keymap)