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

   1 ;; This  file is for some global key binding
   2
   3 (require 'key-chord)
   4
   5 ;(setq key-chord-two-keys-delay 0.2)
   6
   7 ;; from emacs conference 2015 workshop
   8 (defun keychord-keymap (keychord bindings)
   9   (setq keymap (make-sparse-keymap))
  10   (dolist (binding bindings)
  11     (define-key keymap (car binding) (cdr binding)))
  12   (key-chord-define-global keychord keymap))
  13
  14
  15
  16
  17 ;;; keychord
  18 ;;;
  19 (defun switch-to-previous-buffer ()
  20   "Switch to previously open buffer. Repeated invocations toggle between the two most recently open buffers."
  21   (interactive)
  22   (switch-to-buffer (other-buffer (current-buffer) 1)))
  23
  24
  25 ;; main keymap
  26 ;n(keychord-keymap "ss"
  27 ;                 '(("j" . helm-mini)
  28 ;                   ("k" . find-file)
  29 ;                  ("o" . delete-other-windows)))
  30
  31 ;; for some helm key mapping
  32 ;(key-chord-define-global "sj" 'helm-mini)
  33 ;(key-chord-define-global "sk" 'helm-find-files)
  34
  35
  36 (key-chord-define-global "JJ" 'save-buffer)
  37 (key-chord-define-global "HH" 'save-buffer)
  38 (key-chord-define-global "KK" 'save-buffer)
  39 (key-chord-define-global "LL" 'save-buffer)
  40 (key-chord-define-global "LL" 'save-buffer)
  41 (key-chord-define-global "UU" 'save-buffer)
  42 (key-chord-define-global "II" 'save-buffer)
  43 (key-chord-define-global "OO" 'save-buffer)
  44 (key-chord-define-global "NN" 'save-buffer)
  45 (key-chord-define-global "MM" 'save-buffer)
  46 (key-chord-define-global "PP" 'save-buffer)
  47 (key-chord-define-global "YY" 'save-buffer)
  48
  49
  50
  51
  52 (key-chord-define minibuffer-local-map "qq" "\C-g")
  53
  54
  55 (key-chord-define minibuffer-local-map "jj"  'keyboard-escape-quit)
  56 (key-chord-define minibuffer-local-ns-map "jj"  'keyboard-escape-quit)
  57 (key-chord-define minibuffer-local-isearch-map "jj"  'keyboard-escape-quit)
  58 (key-chord-define minibuffer-local-completion-map "jj"  'keyboard-escape-quit)
  59 (key-chord-define minibuffer-local-must-match-map "jj"  'keyboard-escape-quit)
  60 (key-chord-define minibuffer-local-must-match-filename-map "jj"  'keyboard-escape-quit)
  61 (key-chord-define minibuffer-local-filename-completion-map "jj"  'keyboard-escape-quit)
  62 (key-chord-define minibuffer-local-filename-must-match-map "jj"  'keyboard-escape-quit)
  63
  64
  65
  66 (key-chord-mode 1)
  67
  68
  69
  70 ;;; global key mapping, windows buffer, tab, project
  71 ;;;
  72 (defun pl-make-keymap (key bindings)
  73   (setq keymap (make-sparse-keymap))
  74   (dolist (binding bindings)
  75     (define-key keymap (car binding) (cdr binding)))
  76   (global-set-key key keymap))
  77
  78 ;; ESC s j
  79 (pl-make-keymap "\M-s"
  80             '(("j" . helm-mini)
  81               ("k" . helm-find-files)
  82               ("w" . save-buffer)
  83               ("q" . helm-find-files)
  84               ("-" . split-window-below)
  85               ("\\" . split-window-right)
  86 ;             ("\M-s" . split-window-below)
  87 ;             ("\M-v" . split-window-right)
  88               ("o" . occur)
  89               ("b" . helm-find-files)))
  90
  91 ;; ESC ; j M-; add comment,
  92 (pl-make-keymap "\M-;"
  93             '(("v" . split-window-below)
  94               ("h" . split-window-right)
  95               ("b" . helm-find-files)))
  96
  97 ;; ESC c
  98 (pl-make-keymap "\M-c"
  99             '(("v" . split-window-below)
 100
 101
 102
 103               ("h" . split-window-right)
 104               ("b" . helm-find-files)))
 105
 106
 107 ;; Esc o - set font , can change
 108 ;; M-l M-u low/up caps can changed
 109 ;; M-t transpose, not used, changed
 110 ;; M-z
 111 ;; M-c capitialize
 112
 113
 114 ;(global-set-key (kbd "M-s j") 'helm-mini)
 115 ;(global-set-key (kbd "M-s k") 'helm-find-files)
 116
 117 ;; ESC ESC + i
 118 (global-set-key (kbd "ESC M-h") 'helm-mini)
 119 (global-set-key (kbd "ESC M-j") 'helm-mini)
 120 (global-set-key (kbd "ESC M-k") 'helm-mini)
 121 (global-set-key (kbd "ESC M-l") 'helm-mini)
 122 (global-set-key (kbd "ESC M-;") 'helm-mini)
 123 (global-set-key (kbd "ESC M-y") 'helm-mini)
 124 (global-set-key (kbd "ESC M-u") 'helm-mini)
 125 (global-set-key (kbd "ESC M-i") 'helm-mini)
 126 (global-set-key (kbd "ESC M-o") 'other-window)
 127 (global-set-key (kbd "ESC M-p") 'helm-mini)
 128 (global-set-key (kbd "ESC M-n") 'helm-mini)
 129 (global-set-key (kbd "ESC M-m") 'helm-mini)
 130 (global-set-key (kbd "ESC M-y") 'helm-mini)
 131 (global-set-key (kbd "ESC M-s") 'split-window-below)
 132 (global-set-key (kbd "ESC M-v") 'split-window-right)
 133 (global-set-key (kbd "ESC M-u") 'helm-mini)
 134 (global-set-key (kbd "ESC M-i") 'helm-mini)
 135 (global-set-key (kbd "ESC M-p") 'helm-mini)
 136 (global-set-key (kbd "ESC M-;") 'helm-mini)
 137 (global-set-key (kbd "ESC M-1") 'delete-other-windows)
 138 (global-set-key (kbd "ESC M-2") 'split-window-below)
 139 (global-set-key (kbd "ESC M-3") 'split-window-right)
 140
 141
 142 (global-set-key (kbd "C-; C-j") 'helm-mini)
 143
 144 ;(global-set-key (kbd "<escape> j") 'helm-mini)
 145 ;(global-set-key (kbd "<escape> k") 'helm-find-files)
 146 ;(global-set-key (kbd "<escape> l") 'find-file)
 147 ;(global-set-key (kbd "<escape> f") 'find-file)
 148 ;(global-set-key (kbd "<escape> M-a") 'find-file)
 149 ;(global-set-key (kbd "<escape> M-a") 'find-file)
 150 ;(global-set-key (kbd "<escape> M-a") 'find-file)
 151 ;(global-set-key (kbd "<escape> M-o") 'delete-other-windows)
 152 ;(global-set-key (kbd "<escape> M-h") 'other-window)
 153 ;(global-set-key (kbd "<escape> M-j") 'find-file)
 154 ;(global-set-key (kbd "<escape> M-k") 'find-file)
 155 ;(global-set-key (kbd "<escape> M-l") 'find-file)
 156
 157
 158
 159 (defvar sacha/windmove-map (make-sparse-keymap))
 160 (define-key sacha/windmove-map "h" 'windmove-left)
 161 (define-key sacha/windmove-map "t" 'windmove-up)
 162 (define-key sacha/windmove-map "n" 'windmove-down)
 163 (define-key sacha/windmove-map "s" 'windmove-right)
 164 (define-key sacha/windmove-map "[left]" 'windmove-left)
 165 (define-key sacha/windmove-map "[up]" 'windmove-up)
 166 (define-key sacha/windmove-map "[down]" 'windmove-down)
 167 (define-key sacha/windmove-map "[right]" 'windmove-right)
 168 ;(key-chord-define-global "yy"     sacha/windmove-map)
 169
 170
 171
 172 ;; project
 173 ;(global-set-key (kbd "<escape> M-n") 'find-file)
 174 ;(global-set-key (kbd "<escape> M-m") 'find-file)
 175 ;(global-set-key (kbd "<escape> M-p") 'find-file)
 176 ;(global-set-key (kbd "<escape> M-u") 'find-file)
 177 ;(global-set-key (kbd "<escape> M-y") 'find-file)
 178 ;(global-set-key (kbd "<escape> <escape>") 'find-file)
 179
 180
 181
 182
 183 (setq mac-command-modifier 'super) ; make cmd key do Meta
 184
 185
 186
 187 ;; super key for elscreen tabs
 188 (global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
 189 (global-set-key (kbd "s-t") 'elscreen-create)
 190 (global-set-key (kbd "s-n") 'elscreen-next)
 191 (global-set-key (kbd "s-p") 'elscreen-previous)
 192 ;;(global-set-key (kbd "s-k") (lambda () (interactive) (elscreen-kill (elscreen-get-current-screen))))
 193 ;;(global-set-key (kbd "s-d") (lambda () (interactive) (elscreen-kill (elscreen-get-current-screen))))
 194 ;; C-c C-d
 195
 196 (global-set-key (kbd "s-`") (lambda () (interactive) (elscreen-goto 0)))
 197 (global-set-key (kbd "s-1") (lambda () (interactive) (elscreen-goto 1)))
 198 (global-set-key (kbd "s-2") (lambda () (interactive) (elscreen-goto 2)))
 199 (global-set-key (kbd "s-3") (lambda () (interactive) (elscreen-goto 3)))
 200 (global-set-key (kbd "s-4") (lambda () (interactive) (elscreen-goto 4)))
 201 (global-set-key (kbd "s-5") (lambda () (interactive) (elscreen-goto 5)))
 202 (global-set-key (kbd "s-6") (lambda () (interactive) (elscreen-goto 6)))
 203 (global-set-key (kbd "s-7") (lambda () (interactive) (elscreen-goto 7)))
 204 (global-set-key (kbd "s-8") (lambda () (interactive) (elscreen-goto 8)))
 205
 206 ;; super key for windows
 207 (global-set-key (kbd "s-l") 'split-window-below)
 208 (global-set-key (kbd "s-h") 'split-window-right)
 209 (global-set-key (kbd "s-i") 'other-window)
 210 (global-set-key (kbd "s-j") 'delete-other-windows)
 211
 212 (global-set-key (kbd "s-k") (lambda () (interactive)
 213                               (split-window-right)
 214                               (other-window 1)
 215                               (ido-find-file)))
 216
 217
 218
 219
 220 ;(global-set-key (kbd "M-g M-w") 'other-window)
 221
 222 ;;----------------------------------------------------------------------------
 223 ;; C-o prefix binding for some File/Buffer switching/openning
 224 ;;
 225 ;;(global-unset-key "\C-o")
 226 ;;(global-set-key (kbd "C-o C-o") 'keyboard-quit);; same as C-g to quit
 227 ;;; c-o c-o swith to normal mode
 228 ;(global-set-key (kbd "C-o C-o") 'evil-normal-state)
 229 ;;(global-set-key (kbd "C-o C-o") 'fiplr-find-file)
 230 ;(global-set-key (kbd "C-o C-f") 'ido-find-file)
 231 ;(global-set-key (kbd "C-o C-n") 'recentf-ido-find-file)
 232 ;(global-set-key (kbd "C-o C-j") 'ido-switch-buffer)
 233 ;(global-set-key (kbd "C-o C-j") 'ido-find-file)
 234
 235
 236 ;(global-set-key (kbd "C-o C-g") 'ggtags-find-file)
 237 ;(global-set-key (kbd "C-o C-t") 'ggtags-find-tag-dwim)
 238
 239 ;(global-set-key (kbd "M-g M-g") 'magit-status)
 240
 241 (global-set-key [f7] 'winner-undo)
 242 (global-set-key [C-f7] 'winner-redo)
 243
 244
 245 (defun recentf-ido-find-file ()
 246   "Find a recent file using Ido."
 247   (interactive)
 248   (let ((file (ido-completing-read "Choose recent file: " recentf-list nil t)))
 249     (when file
 250       (find-file file))))
 251
 252
 253 (global-set-key "\C-s" 'isearch-forward-regexp)
 254 (global-set-key "\C-r" 'isearch-backward-regexp)
 255
 256 (provide 'init-key-binding)