legacy-dotfiles/.sawfish/rc

22 lines
753 B
Text
Raw Normal View History

2012-06-17 23:06:56 +02:00
;; -*- mode: sawfish; eval: (git-auto-commit-mode 1); -*-
2012-06-19 09:31:34 +02:00
(define oni:extended-keymap (make-keymap))
(define oni:window-management-keymap (make-keymap))
2012-06-17 23:06:56 +02:00
(setq user-apps-menu
'(("Emacs" (system "emacsclient -c &"))
("Terminal" (system "urxvt &"))))
2012-06-19 09:31:34 +02:00
(bind-keys window-management-keymap
"M" 'maximize-window)
(bind-keys oni:extended-keymap
"w" 'oni:window-management-keymap)
2012-06-17 23:06:56 +02:00
(bind-keys global-keymap
"C-M-l" '(run-shell-command "i3lock -c \"#000000\"")
"Super-e" '(run-shell-command (getenv "EDITOR"))
"Super-w" '(run-shell-command (getenv "BROWSER"))
"Super-c" '(run-shell-command "urxvt")
2012-06-19 09:31:34 +02:00
"Super-TAB" 'cycle-windows
"Super-x" 'oni:extended-keymap)