;; This file is for some global key binding (setq mac-command-modifier 'super) ; make cmd key do Meta (global-set-key (kbd "") 'toggle-frame-fullscreen) ;; global swith project - plugin projectile (global-set-key (kbd "s-t") 'helm-projectile-switch-project) (global-set-key (kbd "s-n") 'persp-next) (global-set-key (kbd "s-p") 'persp-prev) (global-set-key (kbd "s-h") 'persp-switch) (global-set-key (kbd "s-j") 'helm-projectile-switch-to-buffer) (global-set-key (kbd "s-k") 'helm-cmd-t) (defun pl-make-keymap (key bindings) (setq keymap (make-sparse-keymap)) (dolist (binding bindings) (define-key keymap (car binding) (cdr binding))) (global-set-key key keymap)) ;; Esc s or M-s as prefix key (pl-make-keymap "\M-s" '(("j" . pl-switch-buffers) ("h" . persp-switch) ("k" . helm-cmd-t) ("w" . save-buffer) ("q" . helm-find-files) ("-" . split-window-below) ("\\" . split-window-right) ("o" . occur) ("b" . helm-find-files))) ;; if current is not a project, useing helm-mini instead (defun pl-switch-buffers () (interactive) (if (projectile-project-p) (helm-projectile-switch-to-buffer) (helm-mini))) ;; key-chord (require 'key-chord) (setq key-chord-two-keys-delay 0.5) ;; from emacs conference 2015 workshop (defun keychord-keymap (keychord bindings) (setq keymap (make-sparse-keymap)) (dolist (binding bindings) (define-key keymap (car binding) (cdr binding))) (key-chord-define-global keychord keymap)) (defun switch-to-previous-buffer () "Switch to previously open buffer. Repeated invocations toggle between the two most recently open buffers." (interactive) (switch-to-buffer (other-buffer (current-buffer) 1))) ;; main keymap ;n(keychord-keymap "ss" ; '(("j" . helm-mini) ; ("k" . find-file) ; ("o" . delete-other-windows))) ;; for some helm key mapping ;(key-chord-define-global "sj" 'helm-mini) ;(key-chord-define-global "sk" 'helm-find-files) ;(key-chord-define-global "JJ" 'save-buffer) ;(key-chord-define-global "HH" 'save-buffer) ;(key-chord-define-global "KK" 'save-buffer) ;(key-chord-define-global "LL" 'save-buffer) ;(key-chord-define-global "LL" 'save-buffer) ;(key-chord-define-global "UU" 'save-buffer) ;(key-chord-define-global "II" 'save-buffer) ;(key-chord-define-global "OO" 'save-buffer) ;(key-chord-define-global "NN" 'save-buffer) ;(key-chord-define-global "MM" 'save-buffer) ;(key-chord-define-global "PP" 'save-buffer) ;(key-chord-define-global "YY" 'save-buffer) (key-chord-define minibuffer-local-map "jj" 'keyboard-escape-quit) (key-chord-define minibuffer-local-ns-map "jj" 'keyboard-escape-quit) (key-chord-define minibuffer-local-isearch-map "jj" 'keyboard-escape-quit) (key-chord-define minibuffer-local-completion-map "jj" 'keyboard-escape-quit) (key-chord-define minibuffer-local-must-match-map "jj" 'keyboard-escape-quit) (key-chord-define minibuffer-local-must-match-filename-map "jj" 'keyboard-escape-quit) (key-chord-define minibuffer-local-filename-completion-map "jj" 'keyboard-escape-quit) (key-chord-define minibuffer-local-filename-must-match-map "jj" 'keyboard-escape-quit) (define-key minibuffer-local-map [escape] 'keyboard-escape-quit) (define-key minibuffer-local-ns-map [escape] 'keyboard-escape-quit) (define-key minibuffer-local-isearch-map [escape] 'keyboard-escape-quit) (define-key minibuffer-local-completion-map [escape] 'keyboard-escape-quit) (define-key minibuffer-local-must-match-map [escape] 'keyboard-escape-quit) (define-key minibuffer-local-must-match-filename-map [escape] 'keyboard-escape-quit) (define-key minibuffer-local-filename-completion-map [escape] 'keyboard-escape-quit) (define-key minibuffer-local-filename-must-match-map [escape] 'keyboard-escape-quit) (key-chord-mode 1) ;; ESC ; j M-; add comment, (pl-make-keymap "\M-;" '(("v" . split-window-below) ("h" . split-window-right) ("b" . helm-find-files))) ;; ESC c ;(pl-make-keymap "\M-c" ; '(("v" . split-window-below) ; ("h" . split-window-right) ; ("b" . helm-find-files))) ;; Esc o - set font , can change ;; M-l M-u low/up caps can changed ;; M-t transpose, not used, changed ;; M-z ;; M-c capitialize ;(global-set-key (kbd "M-s j") 'helm-mini) ;(global-set-key (kbd "M-s k") 'helm-find-files) ;; ESC ESC + i (global-set-key (kbd "ESC M-h") 'helm-mini) (global-set-key (kbd "ESC M-j") 'helm-mini) (global-set-key (kbd "ESC M-k") 'helm-mini) (global-set-key (kbd "ESC M-l") 'helm-mini) (global-set-key (kbd "ESC M-;") 'helm-mini) (global-set-key (kbd "ESC M-y") 'helm-mini) (global-set-key (kbd "ESC M-u") 'helm-mini) (global-set-key (kbd "ESC M-i") 'helm-mini) (global-set-key (kbd "ESC M-o") 'other-window) (global-set-key (kbd "ESC M-p") 'helm-mini) (global-set-key (kbd "ESC M-n") 'helm-mini) (global-set-key (kbd "ESC M-m") 'helm-mini) (global-set-key (kbd "ESC M-y") 'helm-mini) (global-set-key (kbd "ESC M-s") 'split-window-below) (global-set-key (kbd "ESC M-v") 'split-window-right) (global-set-key (kbd "ESC M-u") 'helm-mini) (global-set-key (kbd "ESC M-i") 'helm-mini) (global-set-key (kbd "ESC M-p") 'helm-mini) (global-set-key (kbd "ESC M-;") 'helm-mini) (global-set-key (kbd "ESC M-1") 'delete-other-windows) (global-set-key (kbd "ESC M-2") 'split-window-below) (global-set-key (kbd "ESC M-3") 'split-window-right) (global-set-key (kbd "C-; C-j") 'helm-mini) ;(global-set-key (kbd " j") 'helm-mini) ;(global-set-key (kbd " k") 'helm-find-files) ;(global-set-key (kbd " l") 'find-file) ;(global-set-key (kbd " f") 'find-file) ;(global-set-key (kbd " M-a") 'find-file) ;(global-set-key (kbd " M-a") 'find-file) ;(global-set-key (kbd " M-a") 'find-file) ;(global-set-key (kbd " M-o") 'delete-other-windows) ;(global-set-key (kbd " M-h") 'other-window) ;(global-set-key (kbd " M-j") 'find-file) ;(global-set-key (kbd " M-k") 'find-file) ;(global-set-key (kbd " M-l") 'find-file) ;; project ;(global-set-key (kbd " M-n") 'find-file) ;(global-set-key (kbd " M-m") 'find-file) ;(global-set-key (kbd " M-p") 'find-file) ;(global-set-key (kbd " M-u") 'find-file) ;(global-set-key (kbd " M-y") 'find-file) ;(global-set-key (kbd " ") 'find-file) ;;(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-w") 'other-window) ;(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) (global-set-key [f7] 'winner-undo) (global-set-key [C-f7] 'winner-redo) (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)))) (global-set-key "\C-s" 'isearch-forward-regexp) (global-set-key "\C-r" 'isearch-backward-regexp) (provide 'init-key-binding)