legacy-dotfiles/.sawfish/rc

;; -*- mode: sawfish; eval: (git-auto-commit-mode 1); -*-
(define oni:extended-keymap (make-keymap))
(define oni:window-management-keymap (make-keymap))
(define oni:window-packing-keymap (make-keymap))
(define oni:window-growing-keymap (make-keymap))
(define oni:window-shrinking-keymap (make-keymap))
(define oni:window-yanking-keymap (make-keymap))

(setq user-apps-menu
      '(("Emacs" (system "emacsclient -c &"))
        ("Terminal" (system "urxvt &"))))

(bind-keys oni:window-packing-keymap
           "p" 'pack-window-up
           "n" 'pack-window-down
           "b" 'pack-window-left
           "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-yanking-keymap
           "p" 'yank-window-up
           "n" 'yank-window-down
           "b" 'yank-window-left
           "f" 'yank-window-right)

(bind-keys oni:window-management-keymap
           "M" 'maximize-window
           "p" oni:window-packing-keymap
           "g" oni:window-growing-keymap
           "s" oni:window-shrinking-keymap
           "y" oni:window-yanking-keymap)

(bind-keys oni:extended-keymap
           "w" oni:window-management-keymap)

;; (ungrab-keymap global-keymap)
(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")
           "Super-TAB" 'cycle-windows
           "Super-x" oni:extended-keymap
           "Menu" 'popup-root-menu)
;; (grab-keymap global-keymap)