1 ;; This file is for some global key binding
5 (setq mac-command-modifier 'super) ; make cmd key do Meta
7 (global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
9 ;; global swith project - plugin projectile
10 (global-set-key (kbd "s-t") 'helm-projectile-switch-project)
11 (global-set-key (kbd "s-n") 'persp-next)
12 (global-set-key (kbd "s-p") 'persp-prev)
13 (global-set-key (kbd "s-h") 'persp-switch)
14 (global-set-key (kbd "s-j") 'helm-projectile-switch-to-buffer)
15 (global-set-key (kbd "s-k") 'helm-cmd-t)
16 ;(global-set-key (kbd "s-m") 'helm-cmd-t)
17 ;(global-set-key (kbd "s-u") 'helm-cmd-t)
20 (defun pl-make-keymap (key bindings)
21 (setq keymap (make-sparse-keymap))
22 (dolist (binding bindings)
23 (define-key keymap (car binding) (cdr binding)))
24 (global-set-key key keymap))
26 ;; Esc s or M-s as prefix key
27 (pl-make-keymap "\M-s"
28 '(("j" . pl-switch-buffers)
32 ("q" . helm-find-files)
33 ("-" . split-window-below)
34 ("\\" . split-window-right)
36 ("b" . helm-find-files)))
38 ;; if current is not a project, useing helm-mini instead
39 (defun pl-switch-buffers ()
41 (if (projectile-project-p)
42 (helm-projectile-switch-to-buffer)
46 ;(setq key-chord-two-keys-delay 0.2)
47 ;; from emacs conference 2015 workshop
48 (defun keychord-keymap (keychord bindings)
49 (setq keymap (make-sparse-keymap))
50 (dolist (binding bindings)
51 (define-key keymap (car binding) (cdr binding)))
52 (key-chord-define-global keychord keymap))
59 (defun switch-to-previous-buffer ()
60 "Switch to previously open buffer. Repeated invocations toggle between the two most recently open buffers."
62 (switch-to-buffer (other-buffer (current-buffer) 1)))
66 ;n(keychord-keymap "ss"
69 ; ("o" . delete-other-windows)))
71 ;; for some helm key mapping
72 ;(key-chord-define-global "sj" 'helm-mini)
73 ;(key-chord-define-global "sk" 'helm-find-files)
76 ;(key-chord-define-global "JJ" 'save-buffer)
77 ;(key-chord-define-global "HH" 'save-buffer)
78 ;(key-chord-define-global "KK" 'save-buffer)
79 ;(key-chord-define-global "LL" 'save-buffer)
80 ;(key-chord-define-global "LL" 'save-buffer)
81 ;(key-chord-define-global "UU" 'save-buffer)
82 ;(key-chord-define-global "II" 'save-buffer)
83 ;(key-chord-define-global "OO" 'save-buffer)
84 ;(key-chord-define-global "NN" 'save-buffer)
85 ;(key-chord-define-global "MM" 'save-buffer)
86 ;(key-chord-define-global "PP" 'save-buffer)
87 ;(key-chord-define-global "YY" 'save-buffer)
92 ;(key-chord-define minibuffer-local-map "qq" "\C-g")
95 (key-chord-define minibuffer-local-map "jj" 'keyboard-escape-quit)
96 (key-chord-define minibuffer-local-ns-map "jj" 'keyboard-escape-quit)
97 (key-chord-define minibuffer-local-isearch-map "jj" 'keyboard-escape-quit)
98 (key-chord-define minibuffer-local-completion-map "jj" 'keyboard-escape-quit)
99 (key-chord-define minibuffer-local-must-match-map "jj" 'keyboard-escape-quit)
100 (key-chord-define minibuffer-local-must-match-filename-map "jj" 'keyboard-escape-quit)
101 (key-chord-define minibuffer-local-filename-completion-map "jj" 'keyboard-escape-quit)
102 (key-chord-define minibuffer-local-filename-must-match-map "jj" 'keyboard-escape-quit)
111 ;; ESC ; j M-; add comment,
112 (pl-make-keymap "\M-;"
113 '(("v" . split-window-below)
114 ("h" . split-window-right)
115 ("b" . helm-find-files)))
118 ;(pl-make-keymap "\M-c"
119 ; '(("v" . split-window-below)
120 ; ("h" . split-window-right)
121 ; ("b" . helm-find-files)))
124 ;; Esc o - set font , can change
125 ;; M-l M-u low/up caps can changed
126 ;; M-t transpose, not used, changed
131 ;(global-set-key (kbd "M-s j") 'helm-mini)
132 ;(global-set-key (kbd "M-s k") 'helm-find-files)
135 (global-set-key (kbd "ESC M-h") 'helm-mini)
136 (global-set-key (kbd "ESC M-j") 'helm-mini)
137 (global-set-key (kbd "ESC M-k") 'helm-mini)
138 (global-set-key (kbd "ESC M-l") 'helm-mini)
139 (global-set-key (kbd "ESC M-;") 'helm-mini)
140 (global-set-key (kbd "ESC M-y") 'helm-mini)
141 (global-set-key (kbd "ESC M-u") 'helm-mini)
142 (global-set-key (kbd "ESC M-i") 'helm-mini)
143 (global-set-key (kbd "ESC M-o") 'other-window)
144 (global-set-key (kbd "ESC M-p") 'helm-mini)
145 (global-set-key (kbd "ESC M-n") 'helm-mini)
146 (global-set-key (kbd "ESC M-m") 'helm-mini)
147 (global-set-key (kbd "ESC M-y") 'helm-mini)
148 (global-set-key (kbd "ESC M-s") 'split-window-below)
149 (global-set-key (kbd "ESC M-v") 'split-window-right)
150 (global-set-key (kbd "ESC M-u") 'helm-mini)
151 (global-set-key (kbd "ESC M-i") 'helm-mini)
152 (global-set-key (kbd "ESC M-p") 'helm-mini)
153 (global-set-key (kbd "ESC M-;") 'helm-mini)
154 (global-set-key (kbd "ESC M-1") 'delete-other-windows)
155 (global-set-key (kbd "ESC M-2") 'split-window-below)
156 (global-set-key (kbd "ESC M-3") 'split-window-right)
159 (global-set-key (kbd "C-; C-j") 'helm-mini)
161 ;(global-set-key (kbd "<escape> j") 'helm-mini)
162 ;(global-set-key (kbd "<escape> k") 'helm-find-files)
163 ;(global-set-key (kbd "<escape> l") 'find-file)
164 ;(global-set-key (kbd "<escape> f") 'find-file)
165 ;(global-set-key (kbd "<escape> M-a") 'find-file)
166 ;(global-set-key (kbd "<escape> M-a") 'find-file)
167 ;(global-set-key (kbd "<escape> M-a") 'find-file)
168 ;(global-set-key (kbd "<escape> M-o") 'delete-other-windows)
169 ;(global-set-key (kbd "<escape> M-h") 'other-window)
170 ;(global-set-key (kbd "<escape> M-j") 'find-file)
171 ;(global-set-key (kbd "<escape> M-k") 'find-file)
172 ;(global-set-key (kbd "<escape> M-l") 'find-file)
177 ;(global-set-key (kbd "<escape> M-n") 'find-file)
178 ;(global-set-key (kbd "<escape> M-m") 'find-file)
179 ;(global-set-key (kbd "<escape> M-p") 'find-file)
180 ;(global-set-key (kbd "<escape> M-u") 'find-file)
181 ;(global-set-key (kbd "<escape> M-y") 'find-file)
182 ;(global-set-key (kbd "<escape> <escape>") 'find-file)
188 ;;(global-set-key (kbd "s-k") (lambda () (interactive) (elscreen-kill (elscreen-get-current-screen))))
189 ;;(global-set-key (kbd "s-d") (lambda () (interactive) (elscreen-kill (elscreen-get-current-screen))))
192 (global-set-key (kbd "s-`") (lambda () (interactive) (elscreen-goto 0)))
193 (global-set-key (kbd "s-1") (lambda () (interactive) (elscreen-goto 1)))
194 (global-set-key (kbd "s-2") (lambda () (interactive) (elscreen-goto 2)))
195 (global-set-key (kbd "s-3") (lambda () (interactive) (elscreen-goto 3)))
196 (global-set-key (kbd "s-4") (lambda () (interactive) (elscreen-goto 4)))
197 (global-set-key (kbd "s-5") (lambda () (interactive) (elscreen-goto 5)))
198 (global-set-key (kbd "s-6") (lambda () (interactive) (elscreen-goto 6)))
199 (global-set-key (kbd "s-7") (lambda () (interactive) (elscreen-goto 7)))
200 (global-set-key (kbd "s-8") (lambda () (interactive) (elscreen-goto 8)))
202 ;; super key for windows
203 ;(global-set-key (kbd "s-l") 'split-window-below)
204 ;(global-set-key (kbd "s-h") 'split-window-right)
205 ;(global-set-key (kbd "s-i") 'other-window)
206 ;(global-set-key (kbd "s-j") 'delete-other-windows)
208 ;(global-set-key (kbd "s-k") (lambda () (interactive)
209 ; (split-window-right)
216 ;(global-set-key (kbd "M-g M-w") 'other-window)
218 ;;----------------------------------------------------------------------------
219 ;; C-o prefix binding for some File/Buffer switching/openning
221 ;;(global-unset-key "\C-o")
222 ;;(global-set-key (kbd "C-o C-o") 'keyboard-quit);; same as C-g to quit
223 ;;; c-o c-o swith to normal mode
224 ;(global-set-key (kbd "C-o C-o") 'evil-normal-state)
225 ;;(global-set-key (kbd "C-o C-o") 'fiplr-find-file)
226 ;(global-set-key (kbd "C-o C-f") 'ido-find-file)
227 ;(global-set-key (kbd "C-o C-n") 'recentf-ido-find-file)
228 ;(global-set-key (kbd "C-o C-j") 'ido-switch-buffer)
229 ;(global-set-key (kbd "C-o C-j") 'ido-find-file)
232 ;(global-set-key (kbd "C-o C-g") 'ggtags-find-file)
233 ;(global-set-key (kbd "C-o C-t") 'ggtags-find-tag-dwim)
235 ;(global-set-key (kbd "M-g M-g") 'magit-status)
237 (global-set-key [f7] 'winner-undo)
238 (global-set-key [C-f7] 'winner-redo)
241 (defun recentf-ido-find-file ()
242 "Find a recent file using Ido."
244 (let ((file (ido-completing-read "Choose recent file: " recentf-list nil t)))
249 (global-set-key "\C-s" 'isearch-forward-regexp)
250 (global-set-key "\C-r" 'isearch-backward-regexp)
252 (provide 'init-key-binding)