riyyi
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Browse Source

Change leader keys into variables

master
Riyyi 4 years ago
parent
0aa80d2522
commit
98d806ca1b
2 changed files with 135 additions and 127 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 245
      .emacs.d/config.org
  2. 17
      .emacs.d/init.el

245
.emacs.d/config.org
Unescape View File

@ -146,7 +146,9 @@ Install and configure packages.
:after evil :after evil
:custom :custom
(evil-collection-company-use-tng nil) (evil-collection-company-use-tng nil)
(evil-collection-key-blacklist '("M-h" "M-j" "M-k" "M-l" "SPC")) (evil-collection-key-blacklist (list dot/leader-key dot/localleader-key
dot/leader-alt-key dot/localleader-alt-key
"M-h" "M-j" "M-k" "M-l"))
(evil-collection-setup-minibuffer t) (evil-collection-setup-minibuffer t)
:config (evil-collection-init)) :config (evil-collection-init))
@ -300,7 +302,7 @@ On the fly syntax checking.
:config :config
;; Enable which-key descriptions ;; Enable which-key descriptions
(dolist (leader-key (list "SPC" "M-SPC")) (dolist (leader-key (list dot/leader-key dot/leader-alt-key))
(let ((lsp-keymap-prefix (concat leader-key " l"))) (let ((lsp-keymap-prefix (concat leader-key " l")))
(lsp-enable-which-key-integration))) (lsp-enable-which-key-integration)))
@ -889,7 +891,7 @@ Disable spacebar in evil motion.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(with-eval-after-load 'evil-states (with-eval-after-load 'evil-states
(define-key evil-motion-state-map (kbd "SPC") nil)) (define-key evil-motion-state-map (kbd dot/leader-key) nil))
(with-eval-after-load 'php-mode (with-eval-after-load 'php-mode
(define-key php-mode-map (kbd "C-M-h") nil)) (define-key php-mode-map (kbd "C-M-h") nil))
@ -1001,120 +1003,119 @@ General.el ~leader key binds.
*** Global *** Global
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(with-eval-after-load 'general (general-create-definer space-leader
(general-create-definer space-leader :prefix dot/leader-key
:prefix "SPC" :non-normal-prefix dot/leader-alt-key
:non-normal-prefix "M-SPC" :global-prefix dot/leader-alt-key
:global-prefix "M-SPC" :states '(normal visual insert motion emacs))
:states '(normal visual insert motion emacs))
(space-leader
(space-leader "SPC" '(smex :which-key "Smex")
"SPC" '(smex :which-key "Smex") "RET" '(bookmark-jump-ido :which-key "Jump to bookmark")
"RET" '(bookmark-jump-ido :which-key "Jump to bookmark")
;; Buffer / bookmark
;; Buffer / bookmark "b" '(:ignore t :which-key "buffer/bookmark")
"b" '(:ignore t :which-key "buffer/bookmark") "b b" '(ido-switch-buffer :which-key "Switch buffer")
"b b" '(ido-switch-buffer :which-key "Switch buffer") "b B" '(ibuffer :which-key "List buffers")
"b B" '(ibuffer :which-key "List buffers") "b d" '(kill-current-buffer :which-key "Kill buffer")
"b d" '(kill-current-buffer :which-key "Kill buffer") "b h" '(previous-buffer :which-key "Previous buffer")
"b h" '(previous-buffer :which-key "Previous buffer") "b k" '(kill-current-buffer :which-key "Kill buffer")
"b k" '(kill-current-buffer :which-key "Kill buffer") "b l" '(next-buffer :which-key "Next buffer")
"b l" '(next-buffer :which-key "Next buffer") "b m" '(bookmark-set :which-key "Make bookmark")
"b m" '(bookmark-set :which-key "Make bookmark") "b M" '(bookmark-delete-ido :which-key "Delete bookmark")
"b M" '(bookmark-delete-ido :which-key "Delete bookmark") "b n" '(evil-buffer-new :which-key "New empty buffer")
"b n" '(evil-buffer-new :which-key "New empty buffer") "b r" '(revert-buffer :which-key "Revert buffer")
"b r" '(revert-buffer :which-key "Revert buffer") "b s" '(basic-save-buffer :which-key "Save buffer")
"b s" '(basic-save-buffer :which-key "Save buffer") "b S" '(evil-write-all :which-key "Save all buffers")
"b S" '(evil-write-all :which-key "Save all buffers") "b <left>" '(previous-buffer :which-key "Previous buffer")
"b <left>" '(previous-buffer :which-key "Previous buffer") "b <right>" '(next-buffer :which-key "Next buffer")
"b <right>" '(next-buffer :which-key "Next buffer")
;; Comments / config
;; Comments / config "c" '(:ignore t :which-key "comment/config")
"c" '(:ignore t :which-key "comment/config") "c c" '(evilnc-comment-or-uncomment-lines :which-key "Toggle comment")
"c c" '(evilnc-comment-or-uncomment-lines :which-key "Toggle comment") "c p" '(evilnc-comment-or-uncomment-paragraphs :which-key "Toggle comment paragraph")
"c p" '(evilnc-comment-or-uncomment-paragraphs :which-key "Toggle comment paragraph") "c r" '(config-reload :which-key "Config reload")
"c r" '(config-reload :which-key "Config reload") "c v" '(config-visit :which-key "Config visit")
"c v" '(config-visit :which-key "Config visit") "c y" '(evilnc-comment-and-kill-ring-save :which-key "Comment and copy")
"c y" '(evilnc-comment-and-kill-ring-save :which-key "Comment and copy")
;; Elisp
;; Elisp "e" '(:ignore t :which-key "elisp")
"e" '(:ignore t :which-key "elisp") "e b" '(eval-buffer :which-key "Evaluate buffer")
"e b" '(eval-buffer :which-key "Evaluate buffer") "e e" '(eval-last-sexp :which-key "Evaluate last sexp")
"e e" '(eval-last-sexp :which-key "Evaluate last sexp") "e r" '(eval-region :which-key "Evaluate region")
"e r" '(eval-region :which-key "Evaluate region")
;; Find file
;; Find file "f" '(:ignore t :which-key "file")
"f" '(:ignore t :which-key "file") "f f" '(find-file-in-project-root :which-key "Find file")
"f f" '(find-file-in-project-root :which-key "Find file") "f r" '(rename-file-and-buffer :which-key "Rename file")
"f r" '(rename-file-and-buffer :which-key "Rename file") "f s" '(basic-save-buffer :which-key "Save file")
"f s" '(basic-save-buffer :which-key "Save file")
;; Help
;; Help "h" '(help-command :which-key "help")
"h" '(help-command :which-key "help") "h o" '(dot/describe-symbol-at-point :which-key "describe-symbol-at-point")
"h o" '(dot/describe-symbol-at-point :which-key "describe-symbol-at-point")
;; Insert
;; Insert "i" '(:ignore t :which-key "insert")
"i" '(:ignore t :which-key "insert") "i s" '(yas-insert-snippet :which-key "Snippet")
"i s" '(yas-insert-snippet :which-key "Snippet")
;; Neotree
;; Neotree "n" '(neotree-toggle-in-project-root :which-key "Toggle Neotree")
"n" '(neotree-toggle-in-project-root :which-key "Toggle Neotree")
;; Projectile
;; Projectile "p" '(:keymap projectile-command-map :which-key "projectile")
"p" '(:keymap projectile-command-map :which-key "projectile")
;; Quit
;; Quit "q" '(:ignore t :which-key "quit")
"q" '(:ignore t :which-key "quit") "q q" '(save-buffers-kill-terminal :which-key "Quit Emacs")
"q q" '(save-buffers-kill-terminal :which-key "Quit Emacs") "q Q" '(save-buffers-kill-emacs :which-key "Quit Emacs (and daemon)")
"q Q" '(save-buffers-kill-emacs :which-key "Quit Emacs (and daemon)") "q f" '(delete-frame :which-key "Close frame")
"q f" '(delete-frame :which-key "Close frame") "q o" '(delete-other-frames :which-key "Close other frames")
"q o" '(delete-other-frames :which-key "Close other frames")
;; Reformat region
;; Reformat region "r" '(:ignore t :which-key "region")
"r" '(:ignore t :which-key "region") "r b" '(dot/indent-buffer :which-key "Indent buffer")
"r b" '(dot/indent-buffer :which-key "Indent buffer") "r r" '(indent-region :which-key "Indent region")
"r r" '(indent-region :which-key "Indent region")
;; Search
;; Search "s" '(:ignore t :which-key "search")
"s" '(:ignore t :which-key "search") "s a" '(avy-goto-char-timer :which-key "Avy goto char")
"s a" '(avy-goto-char-timer :which-key "Avy goto char") "s b" '(bookmark-jump-ido :which-key "Jump to bookmark")
"s b" '(bookmark-jump-ido :which-key "Jump to bookmark")
;; Tabs
;; Tabs "t" '(:ignore t :which-key "tabs")
"t" '(:ignore t :which-key "tabs") "t b" '(centaur-tabs-group-buffer-groups :which-key "Group tabs by buffer")
"t b" '(centaur-tabs-group-buffer-groups :which-key "Group tabs by buffer") "t p" '(centaur-tabs-group-by-projectile-project :which-key "Group tabs by project")
"t p" '(centaur-tabs-group-by-projectile-project :which-key "Group tabs by project") "t h" '(centaur-tabs-backward-group :which-key "Tab backward group")
"t h" '(centaur-tabs-backward-group :which-key "Tab backward group") "t j" '(centaur-tabs-select-end-tab :which-key "Tab select first")
"t j" '(centaur-tabs-select-end-tab :which-key "Tab select first") "t k" '(centaur-tabs-select-beg-tab :which-key "Tab select last")
"t k" '(centaur-tabs-select-beg-tab :which-key "Tab select last") "t l" '(centaur-tabs-forward-group :which-key "Tab forward group")
"t l" '(centaur-tabs-forward-group :which-key "Tab forward group")
;; Update packages
;; Update packages "u" '(auto-package-update-now :which-key "Update packages")
"u" '(auto-package-update-now :which-key "Update packages")
;; Window
;; Window ;; "w" '(:keymap evil-window-map :which-key "window")
;; "w" '(:keymap evil-window-map :which-key "window") "w" '(:ignore t :which-key "window")
"w" '(:ignore t :which-key "window") "w =" '(balance-windows-area :which-key "Balance windows area")
"w =" '(balance-windows-area :which-key "Balance windows area") "w h" '(windmove-left :which-key "Focus window left")
"w h" '(windmove-left :which-key "Focus window left") "w j" '(windmove-down :which-key "Focus window down")
"w j" '(windmove-down :which-key "Focus window down") "w k" '(windmove-up :which-key "Focus window up")
"w k" '(windmove-up :which-key "Focus window up") "w l" '(windmove-right :which-key "Focus window right")
"w l" '(windmove-right :which-key "Focus window right") "w o" '(delete-other-windows :which-key "Close other windows")
"w o" '(delete-other-windows :which-key "Close other windows") "w s" '(:ignore t :which-key "split")
"w s" '(:ignore t :which-key "split") "w s h" '(split-follow-horizontally :which-key "Split horizontal")
"w s h" '(split-follow-horizontally :which-key "Split horizontal") "w s v" '(split-follow-vertically :which-key "Split vertical")
"w s v" '(split-follow-vertically :which-key "Split vertical") "w w" '(other-window :which-key "Focus other window")
"w w" '(other-window :which-key "Focus other window") "w q" '(delete-window :which-key "Close window")
"w q" '(delete-window :which-key "Close window") "w <left>" '(windmove-left :which-key "Focus window left")
"w <left>" '(windmove-left :which-key "Focus window left") "w <right>" '(windmove-right :which-key "Focus window right")
"w <right>" '(windmove-right :which-key "Focus window right") "w <up>" '(windmove-up :which-key "Focus window up")
"w <up>" '(windmove-up :which-key "Focus window up") "w <down>" '(windmove-down :which-key "Focus window down")
"w <down>" '(windmove-down :which-key "Focus window down") ;; winner-redo (built-in window history)
;; winner-redo (built-in window history) ;; winner-undo
;; winner-undo
"x" '(smex-major-mode-commands :which-key "Smex major mode")
"x" '(smex-major-mode-commands :which-key "Smex major mode") )
))
#+END_SRC #+END_SRC
Evaluated keybinds. Evaluated keybinds.
@ -1135,14 +1136,14 @@ https://github.com/suyashbire1/emacs.d/blob/master/init.el
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(general-create-definer local-leader (general-create-definer local-leader
:prefix "SPC m" :prefix dot/localleader-key
:non-normal-prefix "M-SPC m" :non-normal-prefix dot/localleader-alt-key
:global-prefix "M-SPC m" :global-prefix dot/localleader-alt-key
:states '(normal visual insert motion emacs) :states '(normal visual insert motion emacs)
) )
(which-key-add-key-based-replacements "SPC m" "<local leader>") (which-key-add-key-based-replacements dot/localleader-key "<localleader>")
(which-key-add-key-based-replacements "M-SPC m" "<local leader>") (which-key-add-key-based-replacements dot/localleader-alt-key "<localleader>")
(local-leader org-mode-map (local-leader org-mode-map
"'" '(org-edit-special :which-key "Org edit") "'" '(org-edit-special :which-key "Org edit")

17
.emacs.d/init.el
Unescape View File

@ -1,4 +1,4 @@
;;; package --- Emacs init file ;;; init.el --- Emacs init file
;;; Commentary: ;;; Commentary:
@ -7,17 +7,24 @@
;;; Code: ;;; Code:
;; Increases garbage collection during startup ;; Increases garbage collection during startup
(defvar startup/gc-cons-threshold gc-cons-threshold)
(setq gc-cons-threshold most-positive-fixnum) (setq gc-cons-threshold most-positive-fixnum)
(defun startup/reset-gc () "." (setq gc-cons-threshold startup/gc-cons-threshold)) (add-hook 'emacs-startup-hook (lambda () (setq gc-cons-threshold 8000000)))
(add-hook 'emacs-startup-hook 'startup/reset-gc)
; -------------------------------------- ; --------------------------------------
(defvar emacs-cache (concat (getenv "XDG_CACHE_HOME") "/emacs") (defvar emacs-cache (concat (getenv "XDG_CACHE_HOME") "/emacs")
"Directory where Emacs cache data is stored.") "Directory where Emacs cache data is stored.")
(defvar emacs-d (concat (getenv "HOME") "/.emacs.d") (defvar emacs-d (concat (getenv "HOME") "/.emacs.d")
"Additional per-user Emacs-specific files.") "Directory where Emacs config files are stored.")
(defvar dot/leader-key "SPC"
"Leader prefix key.")
(defvar dot/leader-alt-key "M-SPC"
"Alternative leader prefix key, used for Insert and Emacs states.")
(defvar dot/localleader-key "SPC m"
"Local leader prefix key, for 'major-mode' specific commands.")
(defvar dot/localleader-alt-key "M-SPC m"
"Alternative local leader prefix key, used for Insert and Emacs states.")
; -------------------------------------- ; --------------------------------------

Write Preview
Loading…
Cancel
Save