emacs.d/config/init-key-binding.el

   1 ;; This  file is for some global key binding
   2
   3 (require 'key-chord)
   4
   5 (setq mac-command-modifier 'super) ; make cmd key do Meta
   6
   7 (global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
   8
   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)
  18
  19
  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))
  25
  26 ;; Esc s or M-s as prefix key
  27 (pl-make-keymap "\M-s"
  28             '(("j" . pl-switch-buffers)
  29               ("h" . persp-switch)
  30               ("k" . helm-cmd-t)
  31               ("w" . save-buffer)
  32               ("q" . helm-find-files)
  33               ("-" . split-window-below)
  34               ("\\" . split-window-right)
  35               ("o" . occur)
  36               ("b" . helm-find-files)))
  37
  38 ;; if current is not a project, useing helm-mini instead
  39 (defun pl-switch-buffers ()
  40   (interactive)
  41   (if (projectile-project-p)
  42       (helm-projectile-switch-to-buffer)
  43     (helm-mini)))
  44
  45
  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))
  53
  54
  55
  56
  57 ;;; keychord
  58 ;;;
  59 (defun switch-to-previous-buffer ()
  60   "Switch to previously open buffer. Repeated invocations toggle between the two most recently open buffers."
  61   (interactive)
  62   (switch-to-buffer (other-buffer (current-buffer) 1)))
  63
  64
  65 ;; main keymap
  66 ;n(keychord-keymap "ss"
  67 ;                 '(("j" . helm-mini)
  68 ;                   ("k" . find-file)
  69 ;                  ("o" . delete-other-windows)))
  70
  71 ;; for some helm key mapping
  72 ;(key-chord-define-global "sj" 'helm-mini)
  73 ;(key-chord-define-global "sk" 'helm-find-files)
  74
  75
  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)
  88
  89
  90
  91
  92 ;(key-chord-define minibuffer-local-map "qq" "\C-g")
  93
  94
  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)
 103
 104
 105
 106 (key-chord-mode 1)
 107
 108
 109
 110
 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)))
 116
 117 ;; ESC c
 118 ;(pl-make-keymap "\M-c"
 119 ;            '(("v" . split-window-below)
 120 ;             ("h" . split-window-right)
 121 ;             ("b" . helm-find-files)))
 122
 123
 124 ;; Esc o - set font , can change
 125 ;; M-l M-u low/up caps can changed
 126 ;; M-t transpose, not used, changed
 127 ;; M-z
 128 ;; M-c capitialize
 129
 130
 131 ;(global-set-key (kbd "M-s j") 'helm-mini)
 132 ;(global-set-key (kbd "M-s k") 'helm-find-files)
 133
 134 ;; ESC ESC + i
 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)
 157
 158
 159 (global-set-key (kbd "C-; C-j") 'helm-mini)
 160
 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)
 173
 174
 175
 176 ;; project
 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)
 183
 184
 185
 186
 187
 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))))
 190 ;; C-c C-d
 191
 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)))
 201
 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)
 207
 208 ;(global-set-key (kbd "s-k") (lambda () (interactive)
 209 ;                             (split-window-right)
 210 ;                             (other-window 1)
 211 ;                             (ido-find-file)))
 212
 213
 214
 215
 216 ;(global-set-key (kbd "M-g M-w") 'other-window)
 217
 218 ;;----------------------------------------------------------------------------
 219 ;; C-o prefix binding for some File/Buffer switching/openning
 220 ;;
 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)
 230
 231
 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)
 234
 235 ;(global-set-key (kbd "M-g M-g") 'magit-status)
 236
 237 (global-set-key [f7] 'winner-undo)
 238 (global-set-key [C-f7] 'winner-redo)
 239
 240
 241 (defun recentf-ido-find-file ()
 242   "Find a recent file using Ido."
 243   (interactive)
 244   (let ((file (ido-completing-read "Choose recent file: " recentf-list nil t)))
 245     (when file
 246       (find-file file))))
 247
 248
 249 (global-set-key "\C-s" 'isearch-forward-regexp)
 250 (global-set-key "\C-r" 'isearch-backward-regexp)
 251
 252 (provide 'init-key-binding)