From b0ede6b4e59f38a90178fa29859389c8dd14049e Mon Sep 17 00:00:00 2001
From: Peng Li <seudut@gmail.com>
Date: Mon, 1 Jun 2015 20:07:59 +0800
Subject: [PATCH] emacs: key-binding

---
 emacs.d/config/init-elscreen.el    |  8 +-------
 emacs.d/config/init-key-binding.el | 42 +++++++++++++++++++++++++++-----------
 emacs.d/init.el                    | 14 +------------
 3 files changed, 32 insertions(+), 32 deletions(-)

diff --git a/emacs.d/config/init-elscreen.el b/emacs.d/config/init-elscreen.el
index 18d5607..6aba31c 100644
--- a/emacs.d/config/init-elscreen.el
+++ b/emacs.d/config/init-elscreen.el
@@ -3,13 +3,6 @@
 
 (elscreen-set-default-directory (elscreen-get-current-screen) "~/")
 
-;; change default keybinding
-(global-set-key (kbd "<M-tab>") 'elscreen-next) ;; "C-M-I"
-(global-set-key (kbd "M-n") 'elscreen-next)
-(global-set-key (kbd "M-p") 'elscreen-previous)
-(global-set-key (kbd "M-t") 'elscreen-create)
-;;; split 
-
 
 ;; tab face
 
@@ -35,6 +28,7 @@
   (cd dir)
 )
 
+    
 (defun sd-show-dir ()
   "show elscreen default directory."
   (interactive)
diff --git a/emacs.d/config/init-key-binding.el b/emacs.d/config/init-key-binding.el
index 09c9f66..9e030b4 100644
--- a/emacs.d/config/init-key-binding.el
+++ b/emacs.d/config/init-key-binding.el
@@ -1,6 +1,8 @@
+;; This  file is for some global key binding
 
-;; This is file is for some global key binding
-;; Super key binding is for some global windows/tab operations
+;;----------------------------------------------------------------------------
+;; super prefix binding for elscreen TAB/Windows operation
+;
 (setq mac-command-modifier 'super) ; make cmd key do Meta
 
 ;; super key for elscreen tabs
@@ -37,20 +39,23 @@
 
 
 
-(global-set-key (kbd "M-g M-v") 'split-window-right)
-(global-set-key (kbd "M-g M-s") 'split-window-below)
-(global-set-key (kbd "M-g M-o") 'delete-other-windows)
+;(global-set-key (kbd "M-g M-v") 'split-window-right)
+;(global-set-key (kbd "M-g M-s") 'split-window-below)
+;(global-set-key (kbd "M-g M-o") 'delete-other-windows)
 
 
-(global-set-key (kbd "M-g M-w") 'other-window)
+;(global-set-key (kbd "M-g M-w") 'other-window)
 
-;;; C-o 
+;;----------------------------------------------------------------------------
+;; C-o prefix binding for some File/Buffer switching/openning
+;;
 (global-unset-key "\C-o")
-(global-set-key (kbd "C-o C-o") 'keyboard-quit);; same as C-g to quit
+;;(global-set-key (kbd "C-o C-o") 'keyboard-quit);; same as C-g to quit
+(global-set-key (kbd "C-o C-o") 'fiplr-find-file)
 (global-set-key (kbd "C-o C-f") 'ido-find-file)
-(global-set-key (kbd "C-o C-r") 'recentf-ido-find-file)
-(global-set-key (kbd "C-o C-b") 'ido-switch-buffer)
-(global-set-key (kbd "C-o C-j") 'ido-find-file)
+(global-set-key (kbd "C-o C-n") 'recentf-ido-find-file)
+(global-set-key (kbd "C-o C-j") 'ido-switch-buffer)
+;(global-set-key (kbd "C-o C-j") 'ido-find-file)
 
 
 (global-set-key (kbd "C-o C-g") 'ggtags-find-file)
@@ -58,6 +63,19 @@
 
 (global-set-key (kbd "M-g M-g") 'magit-status)
 
-;;;;
+
+(defun recentf-ido-find-file ()
+  "Find a recent file using Ido."
+  (interactive)
+  (let ((file (ido-completing-read "Choose recent file: " recentf-list nil t)))
+    (when file
+      (find-file file))))
+
+
+;;----------------------------------------------------------------------------
+;; M-g prefix binding for some commands
+;;
+
+
 
 (provide 'init-key-binding)
diff --git a/emacs.d/init.el b/emacs.d/init.el
index 1c27dc9..88b081b 100644
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -91,13 +91,6 @@
 
 (global-set-key (kbd "C-x f") 'fiplr-find-file)
 
-;;---------------------------------------------------------------------------------------
-;; Wind-move
-;;
-(global-set-key (kbd "C-x C-l") 'windmove-right)
-(global-set-key (kbd "C-x C-h") 'windmove-left)
-(global-set-key (kbd "C-x C-k") 'windmove-up)
-(global-set-key (kbd "C-x C-j") 'windmove-down)
 
 ;;---------------------------------------------------------------------------------------
 ;; sr-speedbar
@@ -137,12 +130,7 @@
 (require 'recentf)
 (recentf-mode 1)
 (setq recentf-max-menu-items 100)
-(defun recentf-ido-find-file ()
-  "Find a recent file using Ido."
-  (interactive)
-  (let ((file (ido-completing-read "Choose recent file: " recentf-list nil t)))
-    (when file
-      (find-file file))))
+
 
 (require 'recentf-ext)
 
-- 
2.11.0