X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig%2Finit-key-binding.el;h=6b303fc98615cd13b24d07c80f162d1a7de6bcc6;hb=ed0f4ed4fd3b9c5af7d4c10bd6d5c734ab61b269;hp=d38e0c5fe371b6ed2a92d0fc16e9192403d6a9a8;hpb=23e6037f0d163de376a1d0e50546cc520483f45e;p=dotfiles.git diff --git a/emacs.d/config/init-key-binding.el b/emacs.d/config/init-key-binding.el index d38e0c5..6b303fc 100644 --- a/emacs.d/config/init-key-binding.el +++ b/emacs.d/config/init-key-binding.el @@ -2,8 +2,40 @@ (require 'key-chord) -;(setq key-chord-two-keys-delay 0.2) +(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) +;(global-set-key (kbd "s-m") 'helm-cmd-t) +;(global-set-key (kbd "s-u") '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" . helm-projectile-switch-to-buffer) + ("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))) +;(setq key-chord-two-keys-delay 0.2) ;; from emacs conference 2015 workshop (defun keychord-keymap (keychord bindings) (setq keymap (make-sparse-keymap)) @@ -67,26 +99,6 @@ -;;; global key mapping, windows buffer, tab, project -;;; -(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 j -(pl-make-keymap "\M-s" - '(("j" . helm-mini) - ("k" . helm-find-files) - ("w" . save-buffer) - ("q" . helm-find-files) - ("-" . split-window-below) - ("\\" . split-window-right) -; ("\M-s" . split-window-below) -; ("\M-v" . split-window-right) - ("o" . occur) - ("b" . helm-find-files))) ;; ESC ; j M-; add comment, (pl-make-keymap "\M-;" @@ -164,15 +176,7 @@ -(setq mac-command-modifier 'super) ; make cmd key do Meta - - -;; super key for elscreen tabs -(global-set-key (kbd "") '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 @@ -188,15 +192,15 @@ (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 "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)))