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))