Skip to content

Commit

Permalink
Refactored key-bindings
Browse files Browse the repository at this point in the history
  • Loading branch information
kaid committed Dec 22, 2015
1 parent afa96a4 commit ae7b03e
Show file tree
Hide file tree
Showing 6 changed files with 50 additions and 38 deletions.
27 changes: 10 additions & 17 deletions core/init-pkgs.el
Expand Up @@ -21,6 +21,14 @@
:config (evil-mode t))

(use-package evil-surround :ensure t)
(use-package evil-jumper :ensure t)
(use-package evil-magit :ensure t)

(use-package evil-leader
:ensure t
:config (global-evil-leader-mode))

(use-package evil-org :ensure t)
(use-package ruby-tools :ensure t)
(use-package ruby-electric :ensure t)
(use-package flycheck :ensure t)
Expand All @@ -40,12 +48,7 @@
(ac-config-default)
(global-auto-complete-mode t)))

(use-package js2-mode
:ensure t
:config (progn
(modify-syntax-entry ?< "(>")
(modify-syntax-entry ?> ")<")))

(use-package js2-mode :ensure t)
(use-package json-mode :ensure t)
(use-package json-reformat :ensure t)
(use-package powerline :ensure t)
Expand All @@ -56,16 +59,6 @@
:config (progn
(ivy-mode 1)
(setq ivy-use-virtual-buffers t)
(setq projectile-completion-system 'ivy)
(global-set-key "\C-s" 'swiper)
(global-set-key
(kbd "M-t")
(lambda ()
(interactive)
(setq ivy-re-builders-alist '((t . ivy--regex-fuzzy)))
(unwind-protect
(projectile-find-file)
(setq ivy-re-builders-alist '((t . ivy--regex-plus))))
(print ivy-re-builders-alist)))))
(setq projectile-completion-system 'ivy)))

(provide 'init-pkgs)
24 changes: 24 additions & 0 deletions core/key-bindings.el
@@ -0,0 +1,24 @@
(setq mac-option-modifier 'meta)
(setq mac-command-modifier 'hyper)
(setq mac-right-command-modifier 'super)

(windmove-default-keybindings 'hyper)

(global-set-key [(ctrl c) (w)] 'backward-kill-word)
(global-set-key [(ctrl c) (i)] 'indent-region)
(global-set-key [(ctrl c) (c)] 'comment-or-uncomment-region)

(global-set-key [(ctrl s)] 'swiper)

(global-set-key [(hyper a)] 'mark-whole-buffer)
(global-set-key [(hyper v)] 'yank)
(global-set-key [(hyper c)] 'kill-ring-save)
(global-set-key [(hyper s)] 'save-buffer)
(global-set-key [(hyper l)] 'goto-line)
(global-set-key [(hyper w)] 'close-window)
(global-set-key [(hyper z)] 'undo)
(global-set-key [(hyper t)] 'projectile-H-t)

(define-key emacs-lisp-mode-map [(ctrl c) (v)] 'eval-buffer)

(provide 'key-bindings)
3 changes: 3 additions & 0 deletions core/modeline.el
@@ -1,3 +1,6 @@
(setq powerline-height 20)
(setq powerline-default-separator 'slant)

(powerline-default-theme)

(provide 'modeline)
21 changes: 0 additions & 21 deletions core/preferences.el
Expand Up @@ -58,27 +58,6 @@
(setq-default tab-width 2)
(setq c-basic-offset 4)

;; Key bindings
(define-key emacs-lisp-mode-map (kbd "C-c v") 'eval-buffer)

;; Set super key
(setq mac-right-command-modifier 'super)

;; Winner mode
(windmove-default-keybindings 'super)

;; Swap M-x to C-c C-m
(global-set-key "\C-c\C-m" 'execute-extended-command)

;; Backward kill word
(global-set-key "\C-c\w" 'backward-kill-word)

;; Indent region
(global-set-key "\C-c\i" 'indent-region)

;; Comment/Uncomment region
(global-set-key "\C-c\c" 'comment-or-uncomment-region)

(set-exec-path-from-shell-PATH)

(provide 'preferences)
12 changes: 12 additions & 0 deletions core/utils.el
Expand Up @@ -16,4 +16,16 @@
(setenv "PATH" path-from-shell)
(setq exec-path (split-string path-from-shell path-separator))))

(defun projectile-H-t ()
(interactive)
(setq ivy-re-builders-alist '((t . ivy--regex-fuzzy)))
(unwind-protect
(projectile-find-file)
(setq ivy-re-builders-alist '((t . ivy--regex-plus))))
(print ivy-re-builders-alist))

(defun close-window ()
(interactive)
delete-window)

(provide 'utils)
1 change: 1 addition & 0 deletions init.el
Expand Up @@ -6,4 +6,5 @@
(require 'auto-modes)
(require 'hooks)
(require 'modeline)
(require 'key-bindings)
(require 'preferences)

0 comments on commit ae7b03e

Please sign in to comment.