Mercurial > dotfiles
diff .elisp/settings/90.keybindings.el @ 101:0c1db2df2bf8
Experimental keybindings.
author | Augie Fackler <durin42@gmail.com> |
---|---|
date | Thu, 30 Apr 2009 13:51:06 -0500 |
parents | df45e402581c |
children | 34b698771af9 |
line wrap: on
line diff
--- a/.elisp/settings/90.keybindings.el +++ b/.elisp/settings/90.keybindings.el @@ -11,10 +11,32 @@ (global-set-key "\C-h" 'backward-delete-char-untabify) ; M-t is what I want for the textmate file finding (global-set-key [(meta t)] 'textmate-goto-file) -(global-set-key [(meta z)] 'textmate-find-in-project-type) +(global-set-key [(meta control f)] 'textmate-find-in-project-type) (global-set-key [(meta m)] 'iconify-or-deiconify-frame) (global-set-key [(control backspace)] 'kill-word) +;; M-j for jump to function definition +(global-set-key [(meta j)] 'ido-imenu) + +;; commit emacs heresy? +(global-set-key [(meta r)] 'execute-extended-command) + +;; Mac-like keybindings for undo/cut/copy/paste +(global-set-key [(meta c)] 'kill-ring-save) +(global-set-key [(meta x)] 'kill-region) +(global-set-key [(meta z)] 'undo) +(global-set-key [(meta v)] 'yank) +(global-set-key [M-return] 'fullscreen) +(global-set-key [(control v)] 'yank-pop) + +;; Fixup hooks for modes that like taking my keys back +(add-hook 'text-mode-hook '(lambda () + (define-key text-mode-map "\M-s" + 'save-buffer))) +(add-hook 'comint-mode-hook '(lambda () + (local-set-key "\M-r" + 'execute-extended-command))) + (defun server-save-buffer-and-finish () (interactive) (save-buffer) (server-edit))