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

Use C-z as prefix key for most-used commands

Browse source
This commit is contained in:
Tom Willemse 2013-06-17 16:21:28 +02:00
parent 8fa2ae804b
commit 916095eb4c
1 changed files with 16 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
.sawfish/rc
View file

@ -15,6 +15,7 @@
(define oni:window-yanking-keymap (make-keymap))
(define oni:window-management-keymap (make-keymap))
(define oni:extended-keymap (make-keymap))
(define my-keymap (make-keymap))
(defun oni:emacs-main-window-p (window)
"Check wether or not WINDOW is Emacs' main window."
@ -61,6 +62,10 @@ raise it."
(if w (display-window w)
(call-command `(run-shell-command ,command)))))
(define (send-cz window #!optional arg)
(synthesize-event "C-z" window))
(define-command 'send-cz send-cz #:spec "%W\nP")
(setq custom-show-symbols t)
(setq default-frame-style 'naquadah)
(setq default-font (get-font-typed "Xft" "Monaco-10"))
@ -116,6 +121,16 @@ raise it."
"w" oni:window-management-keymap
"Super-b" 'popup-window-list-menu)
(bind-keys my-keymap
"C" '(run-shell-command "urxvt")
"C-b" 'popup-window-list-menu
"E" '(run-shell-command (getenv "EDITOR"))
"W" '(run-shell-command (getenv "BROWSER"))
"c" '(oni:run-or-raise "urxvt" #:class "URxvt")
"e" '(oni:run-or-raise (getenv "EDITOR") #:class "Emacs")
"w" '(oni:run-or-raise (getenv "BROWSER") #:class "Conkeror")
"z" 'send-cz)
;; (ungrab-keymap global-keymap)
(bind-keys
global-keymap
@ -134,23 +149,18 @@ raise it."
"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-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-p" 'pack-window-up
"Super-w" '(oni:run-or-raise (getenv "BROWSER") #:class "Conkeror")
"Super-x" oni:extended-keymap
"C-z" my-keymap
)
;; (grab-keymap global-keymap)