From 5c32f1c4a5d3a13f87211b2993c4fb292a96ab74 Mon Sep 17 00:00:00 2001
From: Peng Li <seudut@gmail.com>
Date: Sun, 31 May 2015 23:16:53 +0800
Subject: [PATCH] emacs: add key-bindings config file

---
 emacs.d/config/init-key-binding.el | 63 ++++++++++++++++++++++++++++++++++++++
 emacs.d/init.el                    | 28 ++---------------
 2 files changed, 65 insertions(+), 26 deletions(-)
 create mode 100644 emacs.d/config/init-key-binding.el

diff --git a/emacs.d/config/init-key-binding.el b/emacs.d/config/init-key-binding.el
new file mode 100644
index 0000000..09c9f66
--- /dev/null
+++ b/emacs.d/config/init-key-binding.el
@@ -0,0 +1,63 @@
+
+;; This is file is for some global key binding
+;; Super key binding is for some global windows/tab operations
+(setq mac-command-modifier 'super) ; make cmd key do Meta
+
+;; super key for elscreen tabs
+(global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
+(global-set-key (kbd "s-t") 'elscreen-create)
+(global-set-key (kbd "s-n") 'elscreen-next)
+(global-set-key (kbd "s-p") 'elscreen-previous)
+;;(global-set-key (kbd "s-k") (lambda () (interactive) (elscreen-kill (elscreen-get-current-screen))))
+;;(global-set-key (kbd "s-d") (lambda () (interactive) (elscreen-kill (elscreen-get-current-screen))))
+;; C-c C-d
+
+(global-set-key (kbd "s-`") (lambda () (interactive) (elscreen-goto 0)))
+(global-set-key (kbd "s-1") (lambda () (interactive) (elscreen-goto 1)))
+(global-set-key (kbd "s-2") (lambda () (interactive) (elscreen-goto 2)))
+(global-set-key (kbd "s-3") (lambda () (interactive) (elscreen-goto 3)))
+(global-set-key (kbd "s-4") (lambda () (interactive) (elscreen-goto 4)))
+(global-set-key (kbd "s-5") (lambda () (interactive) (elscreen-goto 5)))
+(global-set-key (kbd "s-6") (lambda () (interactive) (elscreen-goto 6)))
+(global-set-key (kbd "s-7") (lambda () (interactive) (elscreen-goto 7)))
+(global-set-key (kbd "s-8") (lambda () (interactive) (elscreen-goto 8)))
+
+;; super key for windows
+(global-set-key (kbd "s-l") 'split-window-below)
+(global-set-key (kbd "s-h") 'split-window-right)
+(global-set-key (kbd "s-i") 'other-window)
+(global-set-key (kbd "s-j") 'delete-other-windows)
+
+(global-set-key (kbd "s-k") (lambda () (interactive)
+			      (split-window-right)
+			      (other-window 1)
+			      (ido-find-file)))
+				
+			      
+
+
+
+(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)
+
+;;; C-o 
+(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-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-g") 'ggtags-find-file)
+(global-set-key (kbd "C-o C-t") 'ggtags-find-tag-dwim)
+
+(global-set-key (kbd "M-g M-g") 'magit-status)
+
+;;;;
+
+(provide 'init-key-binding)
diff --git a/emacs.d/init.el b/emacs.d/init.el
index a549bfd..1c27dc9 100644
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -120,38 +120,12 @@
 
 ;(setq ecb-layout-name "leftright3")
 
-
-;(setq mac-command-modifier 'super) ; make cmd key do Meta
-(global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
-
-
-
-
-(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)
-
 ;; gnu global support
 ;(require 'semantic/db)
 ;(global-semanticdb-minor-mode 1)
 
 (require 'init-ggtags)
 
-(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-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-g") 'ggtags-find-file)
-(global-set-key (kbd "C-o C-t") 'ggtags-find-tag-dwim)
-
-(global-set-key (kbd "M-g M-g") 'magit-status)
-
 
 (setq scroll-margin 5)
 (setq scroll-conservatively 10000)
@@ -171,3 +145,5 @@
       (find-file file))))
 
 (require 'recentf-ext)
+
+(require 'init-key-binding)
-- 
2.11.0