ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.sawfish/rc

Browse source
This commit is contained in:
Tom Willemsen 2012-11-27 11:13:52 +01:00
parent b7afba2c86
commit 7af92b4abc
1 changed files with 30 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
.sawfish/rc
View file

@ -2,11 +2,11 @@
(require 'rep.regexp) (require 'rep.regexp)
(require 'sawfish.wm.commands.grow-pack) (require 'sawfish.wm.commands.grow-pack)
(require 'sawfish.wm.commands.shrink-yank) (require 'sawfish.wm.commands.shrink-yank)
(require 'sawfish.wm.commands.x-cycle)
(require 'sawfish.wm.ext.match-window) (require 'sawfish.wm.ext.match-window)
(require 'sawfish.wm.util.display-window) (require 'sawfish.wm.util.display-window)
(require 'sawfish.wm.util.prompt) (require 'sawfish.wm.util.prompt)
(require 'sawfish.wm.util.window-order) (require 'sawfish.wm.util.window-order)
(require 'sawfish.wm.commands.x-cycle)
(define oni:window-packing-keymap (make-keymap)) (define oni:window-packing-keymap (make-keymap))
(define oni:window-growing-keymap (make-keymap)) (define oni:window-growing-keymap (make-keymap))
@ -61,6 +61,7 @@ raise it."
(call-command `(run-shell-command ,command))))) (call-command `(run-shell-command ,command)))))
(setq default-frame-style 'naquadah) (setq default-frame-style 'naquadah)
(setq grow-is-maximize nil)
(setq prompt-color (cons (get-color "#eeeeec") (setq prompt-color (cons (get-color "#eeeeec")
(get-color "#111113"))) (get-color "#111113")))
(setq user-apps-menu (setq user-apps-menu
@ -115,23 +116,39 @@ raise it."
;; (ungrab-keymap global-keymap) ;; (ungrab-keymap global-keymap)
(bind-keys (bind-keys
global-keymap global-keymap
"Super-!" '(run-shell-command (prompt-for-string "Run: "))
"C-M-l" '(run-shell-command "i3lock -c \"#000000\"") "C-M-l" '(run-shell-command "i3lock -c \"#000000\"")
"Super-e" '(oni:run-or-raise (getenv "EDITOR") #:class "Emacs") "C-Super-B" 'shrink-window-left
"Super-E" '(run-shell-command (getenv "EDITOR")) "C-Super-F" 'shrink-window-right
"Super-w" '(oni:run-or-raise (getenv "BROWSER") #:class "Conkeror") "C-Super-N" 'shrink-window-down
"Super-W" '(run-shell-command (getenv "BROWSER")) "C-Super-P" 'shrink-window-up
"Super-c" '(oni:run-or-raise "urxvt" #:class "URxvt")
"Super-C" '(run-shell-command "urxvt")
"Super-TAB" 'cycle-windows
"C-Super-TAB" 'cycle-class "C-Super-TAB" 'cycle-class
"Super-x" oni:extended-keymap "C-Super-`" 'popup-window-menu
"Super-f" 'pack-window-right "C-Super-b" 'grow-window-left
"C-Super-f" 'grow-window-right
"C-Super-n" 'grow-window-down
"C-Super-p" 'grow-window-up
"Menu" 'popup-root-menu
"Super-!" '(run-shell-command (prompt-for-string "Run: "))
"Super-:" 'call-command
"Super-B" 'yank-window-left
"Super-C" '(run-shell-command "urxvt")
"Super-E" '(run-shell-command (getenv "EDITOR"))
"Super-F" 'yank-window-right
"Super-M" 'maximize-window-toggle
"Super-N" 'yank-window-down
"Super-P" 'yank-window-up
"Super-TAB" 'cycle-windows
"Super-W" '(run-shell-command (getenv "BROWSER"))
"Super-`" 'popup-root-menu
"Super-b" 'pack-window-left "Super-b" 'pack-window-left
"Super-c" '(oni:run-or-raise "urxvt" #:class "URxvt")
"Super-e" '(oni:run-or-raise (getenv "EDITOR") #:class "Emacs")
"Super-f" 'pack-window-right
"Super-n" 'pack-window-down "Super-n" 'pack-window-down
"Super-p" 'pack-window-up "Super-p" 'pack-window-up
"Menu" 'popup-root-menu "Super-w" '(oni:run-or-raise (getenv "BROWSER") #:class "Conkeror")
"Super-M" 'maximize-window-toggle) "Super-x" oni:extended-keymap
)
;; (grab-keymap global-keymap) ;; (grab-keymap global-keymap)
(add-window-matcher '((WM_CLASS . "^(Firefox|Conkeror)/Navigator$")) (add-window-matcher '((WM_CLASS . "^(Firefox|Conkeror)/Navigator$"))