bc6c4b3e37
- Rename +workspace/switch-to-last to +workspace/switch-to-final, to avoid ambiguity. - Add +workspace/switch-to-N commands
393 lines
18 KiB
EmacsLisp
393 lines
18 KiB
EmacsLisp
;;; config/default/+emacs-bindings.el -*- lexical-binding: t; -*-
|
|
|
|
;; Sensible deafult key bindings for non-evil users
|
|
(setq doom-leader-alt-key "C-c"
|
|
doom-localleader-alt-key "C-c l")
|
|
|
|
;; persp-mode and projectile in different prefixes
|
|
(setq persp-keymap-prefix (kbd "C-c w"))
|
|
(after! projectile
|
|
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map))
|
|
|
|
|
|
;;
|
|
;;; Autoloads
|
|
|
|
(autoload 'org-capture-goto-target "org-capture" nil t)
|
|
|
|
|
|
;;
|
|
;;; Leader keys
|
|
|
|
(map! :leader
|
|
:desc "Find file in project" "C-f" #'projectile-find-file
|
|
:desc "Evaluate line/region" "e" #'+eval/line-or-region
|
|
:desc "Open scratch buffer" "x" #'doom/open-scratch-buffer
|
|
:desc "Open project scratch buffer" "X" #'doom/switch-to-scratch-buffer
|
|
|
|
(:when (featurep! :term term)
|
|
:desc "Toggle term popup" "`" #'+term/toggle
|
|
:desc "Open term here" "~" #'+term/here)
|
|
(:when (featurep! :term vterm)
|
|
:desc "Toggle vterm popup" "`" #'+vterm/toggle
|
|
:desc "Open vterm here" "~" #'+vterm/here)
|
|
(:when (featurep! :term eshell)
|
|
:desc "Toggle eshell popup" "`" #'+eshell/toggle
|
|
:desc "Open eshell here" "~" #'+eshell/here)
|
|
|
|
(:prefix ("l" . "<localleader>")) ; bound locally
|
|
(:prefix ("!" . "checkers")) ; bound by flycheck
|
|
|
|
;;; <leader> f --- file
|
|
(:prefix-map ("f" . "file")
|
|
:desc "Open project editorconfig" "." #'editorconfig-find-current-editorconfig
|
|
:desc "Find other file" "a" #'projectile-find-other-file
|
|
:desc "Browse private config" "c" #'doom/open-private-config
|
|
:desc "Find file in private config" "C" #'doom/find-file-in-private-config
|
|
:desc "Find directory" "d" #'dired
|
|
:desc "Find file in emacs.d" "e" #'+default/find-in-emacsd
|
|
:desc "Browse emacs.d" "E" #'+default/browse-emacsd
|
|
:desc "Find file from here" "f" (if (fboundp 'counsel-file-jump) #'counsel-file-jump #'find-file)
|
|
:desc "Find file in other project" "F" #'doom/browse-in-other-project
|
|
:desc "Find file in project" "p" #'projectile-find-file
|
|
:desc "Find file in other project" "P" #'doom/find-file-in-other-project
|
|
:desc "Recent files" "r" #'recentf-open-files
|
|
:desc "Recent project files" "R" #'projectile-recentf
|
|
:desc "Sudo this file" "s" #'doom/sudo-this-file
|
|
:desc "Sudo find file" "S" #'doom/sudo-find-file
|
|
:desc "Yank filename" "y" #'+default/yank-buffer-filename
|
|
:desc "Delete this file" "X" #'doom/delete-this-file)
|
|
|
|
;;; <leader> o --- org
|
|
"o" nil ; we need to unbind it first as Org claims this
|
|
(:prefix-map ("o". "org")
|
|
:desc "Search notes for symbol" "." #'+default/search-notes-for-symbol-at-point
|
|
(:prefix ("a" . "org agenda")
|
|
:desc "Agenda" "a" #'org-agenda
|
|
:desc "Todo list" "t" #'org-todo-list
|
|
:desc "Tags view" "m" #'org-tags-view
|
|
:desc "View search" "v" #'org-search-view)
|
|
:desc "Browse notes" "f" #'+default/browse-notes
|
|
:desc "Search org-directory" "s" #'+default/org-notes-search
|
|
:desc "Switch org buffers" "b" #'org-switchb
|
|
:desc "Capture" "c" #'org-capture
|
|
:desc "Goto capture" "C" #'org-capture-goto-target
|
|
:desc "Link store" "l" #'org-store-link
|
|
:desc "Sync org caldav" "S" #'org-caldav-sync)
|
|
|
|
;;; <leader> p --- project
|
|
(:prefix ("p" . "project")
|
|
:desc "Find file in other project" "F" #'doom/find-file-in-other-project
|
|
:desc "Search project" "s" #'+default/search-project
|
|
:desc "List project tasks" "t" #'+default/project-tasks
|
|
:desc "Open project scratch buffer" "x" #'doom/open-project-scratch-buffer
|
|
:desc "Switch to project scratch buffer" "X" #'doom/switch-to-project-scratch-buffer
|
|
;; later expanded by projectile
|
|
(:prefix ("4" . "in other window"))
|
|
(:prefix ("5" . "in other frame")))
|
|
|
|
;;; <leader> q --- quit/restart
|
|
(:prefix-map ("q" . "quit/restart")
|
|
:desc "Quit Emacs" "q" #'kill-emacs
|
|
:desc "Save and quit Emacs" "Q" #'save-buffers-kill-terminal
|
|
(:when (featurep! :ui workspaces)
|
|
:desc "Quit Emacs & forget session" "X" #'+workspace/kill-session-and-quit)
|
|
:desc "Restart & restore Emacs" "r" #'doom/restart-and-restore
|
|
:desc "Restart Emacs" "R" #'doom/restart)
|
|
|
|
;;; <leader> & --- snippets
|
|
(:prefix-map ("&" . "snippets")
|
|
:desc "New snippet" "n" #'yas-new-snippet
|
|
:desc "Insert snippet" "i" #'yas-insert-snippet
|
|
:desc "Find global snippet" "/" #'yas-visit-snippet-file
|
|
:desc "Reload snippets" "r" #'yas-reload-all
|
|
:desc "Create Temp Template" "c" #'aya-create
|
|
:desc "Use Temp Template" "e" #'aya-expand)
|
|
|
|
;;; <leader> v --- versioning
|
|
(:prefix-map ("v" . "versioning")
|
|
:desc "Git revert file" "R" #'vc-revert
|
|
(:when (featurep! :ui vc-gutter)
|
|
:desc "Git revert hunk" "r" #'git-gutter:revert-hunk
|
|
:desc "Git stage hunk" "s" #'git-gutter:stage-hunk
|
|
:desc "Git time machine" "t" #'git-timemachine-toggle
|
|
:desc "Jump to next hunk" "n" #'git-gutter:next-hunk
|
|
:desc "Jump to previous hunk" "p" #'git-gutter:previous-hunk)
|
|
(:when (featurep! :tools magit)
|
|
:desc "Magit dispatch" "/" #'magit-dispatch
|
|
:desc "Forge dispatch" "'" #'forge-dispatch
|
|
:desc "Magit status" "g" #'magit-status
|
|
:desc "Magit file delete" "x" #'magit-file-delete
|
|
:desc "Magit blame" "B" #'magit-blame-addition
|
|
:desc "Magit clone" "C" #'+magit/clone
|
|
:desc "Magit fetch" "F" #'magit-fetch
|
|
:desc "Magit buffer log" "L" #'magit-log
|
|
:desc "Git stage file" "S" #'magit-stage-file
|
|
:desc "Git unstage file" "U" #'magit-unstage-file
|
|
(:prefix ("f" . "find")
|
|
:desc "Find file" "f" #'magit-find-file
|
|
:desc "Find gitconfig file" "g" #'magit-find-git-config-file
|
|
:desc "Find commit" "c" #'magit-show-commit
|
|
:desc "Find issue" "i" #'forge-visit-issue
|
|
:desc "Find pull request" "p" #'forge-visit-pullreq)
|
|
(:prefix ("o" . "open in browser")
|
|
:desc "Browse region or line" "." #'+vc/git-browse-region-or-line
|
|
:desc "Browse remote" "r" #'forge-browse-remote
|
|
:desc "Browse commit" "c" #'forge-browse-commit
|
|
:desc "Browse an issue" "i" #'forge-browse-issue
|
|
:desc "Browse a pull request" "p" #'forge-browse-pullreq
|
|
:desc "Browse issues" "I" #'forge-browse-issues
|
|
:desc "Browse pull requests" "P" #'forge-browse-pullreqs)
|
|
(:prefix ("l" . "list")
|
|
(:when (featurep! :tools gist)
|
|
:desc "List gists" "g" #'+gist:list)
|
|
:desc "List repositories" "r" #'magit-list-repositories
|
|
:desc "List submodules" "s" #'magit-list-submodules
|
|
:desc "List issues" "i" #'forge-list-issues
|
|
:desc "List pull requests" "p" #'forge-list-pullreqs
|
|
:desc "List notifications" "n" #'forge-list-notifications)
|
|
(:prefix ("c" . "create")
|
|
:desc "Initialize repo" "r" #'magit-init
|
|
:desc "Clone repo" "R" #'+magit/clone
|
|
:desc "Commit" "c" #'magit-commit-create
|
|
:desc "Issue" "i" #'forge-create-issue
|
|
:desc "Pull request" "p" #'forge-create-pullreq)))
|
|
|
|
;;; <leader> w --- workspaces/windows
|
|
(:prefix-map ("w" . "workspaces/windows")
|
|
:desc "Autosave session" "a" #'doom/quicksave-session
|
|
:desc "Display workspaces" "d" #'+workspace/display
|
|
:desc "Rename workspace" "r" #'+workspace/rename
|
|
:desc "Create workspace" "c" #'+workspace/new
|
|
:desc "Delete workspace" "k" #'+workspace/delete
|
|
:desc "Save session" "s" #'doom/save-session
|
|
:desc "Save workspace" "S" #'+workspace/save
|
|
:desc "Load session" "l" #'doom/load-session
|
|
:desc "Load last autosaved session" "L" #'doom/quickload-session
|
|
:desc "Switch to other workspace" "o" #'+workspace/other
|
|
:desc "Undo window config" "u" #'winner-undo
|
|
:desc "Redo window config" "U" #'winner-redo
|
|
:desc "Switch to left workspace" "p" #'+workspace/switch-left
|
|
:desc "Switch to right workspace" "n" #'+workspace/switch-right
|
|
:desc "Switch to" "w" #'+workspace/switch-to
|
|
:desc "Switch to workspace 1" "1" #'+workspace/switch-to-0
|
|
:desc "Switch to workspace 2" "2" #'+workspace/switch-to-1
|
|
:desc "Switch to workspace 3" "3" #'+workspace/switch-to-2
|
|
:desc "Switch to workspace 4" "4" #'+workspace/switch-to-3
|
|
:desc "Switch to workspace 5" "5" #'+workspace/switch-to-4
|
|
:desc "Switch to workspace 6" "6" #'+workspace/switch-to-5
|
|
:desc "Switch to workspace 7" "7" #'+workspace/switch-to-6
|
|
:desc "Switch to workspace 8" "8" #'+workspace/switch-to-7
|
|
:desc "Switch to workspace 9" "9" #'+workspace/switch-to-8
|
|
:desc "Switch to last workspace" "0" #'+workspace/switch-to-final)
|
|
|
|
;;; <leader> m --- multiple cursors
|
|
(:when (featurep! :editor multiple-cursors)
|
|
(:prefix-map ("m" . "multiple cursors")
|
|
:desc "Edit lines" "l" #'mc/edit-lines
|
|
:desc "Mark next" "n" #'mc/mark-next-like-this
|
|
:desc "Unmark next" "N" #'mc/unmark-next-like-this
|
|
:desc "Mark previous" "p" #'mc/mark-previous-like-this
|
|
:desc "Unmark previous" "P" #'mc/unmark-previous-like-this
|
|
:desc "Mark all" "t" #'mc/mark-all-like-this
|
|
:desc "Mark all DWIM" "m" #'mc/mark-all-like-this-dwim
|
|
:desc "Edit line endings" "e" #'mc/edit-ends-of-lines
|
|
:desc "Edit line starts" "a" #'mc/edit-beginnings-of-lines
|
|
:desc "Mark tag" "s" #'mc/mark-sgml-tag-pair
|
|
:desc "Mark in defun" "d" #'mc/mark-all-like-this-in-defun
|
|
:desc "Add cursor w/mouse" "<mouse-1>" #'mc/add-cursor-on-click))
|
|
|
|
;; APPs
|
|
;;; <leader> M --- twitter
|
|
(:when (featurep! :email mu4e)
|
|
(:prefix-map ("M" . "mu4e")
|
|
:desc "Open email app" "M" #'=mu4e
|
|
:desc "Compose email" "c" #'+mu4e/compose))
|
|
|
|
;;; <leader> I --- twitter
|
|
(:when (featurep! :app irc)
|
|
(:prefix-map ("I" . "irc")
|
|
:desc "Open irc app" "I" #'=irc
|
|
:desc "Next unread buffer" "a" #'tracking-next-buffer
|
|
:desc "Quit irc" "q" #'+irc/quit
|
|
:desc "Reconnect all" "r" #'circe-reconnect-all
|
|
:desc "Send message" "s" #'+irc/send-message
|
|
(:when (featurep! :completion ivy)
|
|
:desc "Jump to channel" "j" #'irc/ivy-jump-to-channel)))
|
|
|
|
;;; <leader> T --- twitter
|
|
(:when (featurep! :app twitter)
|
|
(:prefix-map ("T" . "twitter")
|
|
:desc "Open twitter app" "T" #'=twitter
|
|
:desc "Quit twitter" "q" #'+twitter/quit
|
|
:desc "Rerender twits" "r" #'+twitter/rerender-all
|
|
:desc "Ace link" "l" #'+twitter/ace-link)))
|
|
|
|
|
|
;;
|
|
;;; Global & plugin keybinds
|
|
|
|
(map! "C-'" #'imenu
|
|
|
|
;;; Text scaling
|
|
[C-mouse-4] #'text-scale-increase
|
|
[C-mouse-5] #'text-scale-decrease
|
|
[C-down-mouse-2] (λ! (text-scale-set 0))
|
|
"M-+" #'doom/reset-font-size
|
|
"M-=" #'doom/increase-font-size
|
|
"M--" #'doom/decrease-font-size
|
|
|
|
;;; newlines
|
|
[remap newline] #'newline-and-indent
|
|
"C-j" #'+default/newline
|
|
|
|
;;; search
|
|
(:when (featurep! :completion ivy)
|
|
"C-S-s" #'swiper
|
|
"C-S-r" #'ivy-resume)
|
|
(:when (featurep! :completion helm)
|
|
"C-S-s" #'swiper-helm
|
|
"C-S-r" #'helm-resume)
|
|
|
|
;;; objed
|
|
(:when (featurep! :editor objed +manual)
|
|
"M-SPC" #'objed-activate)
|
|
|
|
;;; buffer management
|
|
"C-x b" #'persp-switch-to-buffer
|
|
(:when (featurep! :completion ivy)
|
|
"C-x 4 b" #'+ivy/switch-workspace-buffer-other-window)
|
|
"C-x C-b" #'ibuffer-list-buffers
|
|
"C-x B" #'switch-to-buffer
|
|
"C-x 4 B" #'switch-to-buffer-other-window
|
|
"C-x K" #'doom/kill-this-buffer-in-all-windows
|
|
|
|
;;; company-mode
|
|
"C-;" #'+company/complete
|
|
(:after company
|
|
:map company-active-map
|
|
"C-o" #'company-search-kill-others
|
|
"C-n" #'company-select-next
|
|
"C-p" #'company-select-previous
|
|
"C-h" #'company-quickhelp-manual-begin
|
|
"C-S-h" #'company-show-doc-buffer
|
|
"C-s" #'company-search-candidates
|
|
"M-s" #'company-filter-candidates
|
|
"<C-tab>" #'company-complete-common-or-cycle
|
|
[tab] #'company-complete-common-or-cycle
|
|
[backtab] #'company-select-previous
|
|
"C-RET" #'counsel-company
|
|
:map company-search-map
|
|
"C-n" #'company-search-repeat-forward
|
|
"C-p" #'company-search-repeat-backward
|
|
"C-s" (λ! (company-search-abort) (company-filter-candidates)))
|
|
|
|
;;; ein notebooks
|
|
(:after ein:notebook-multilang
|
|
:map ein:notebook-multilang-mode-map
|
|
"C-c h" #'+ein/hydra/body)
|
|
|
|
;;; expand-region
|
|
"C-=" #'er/expand-region
|
|
"C--" #'er/contract-region
|
|
|
|
;;; flycheck
|
|
(:after flycheck
|
|
:map flycheck-error-list-mode-map
|
|
"C-n" #'flycheck-error-list-next-error
|
|
"C-p" #'flycheck-error-list-previous-error
|
|
"RET" #'flycheck-error-list-goto-error)
|
|
|
|
;;; help and info
|
|
(:after help-mode
|
|
:map help-mode-map
|
|
"o" #'ace-link-help
|
|
">" #'help-go-forward
|
|
"<" #'help-go-back
|
|
"n" #'forward-button
|
|
"p" #'backward-button)
|
|
(:after helpful
|
|
:map helpful-mode-map
|
|
"o" #'ace-link-help)
|
|
(:after apropos
|
|
:map apropos-mode-map
|
|
"o" #'ace-link-help
|
|
"n" #'forward-button
|
|
"p" #'backward-button)
|
|
(:after info
|
|
:map Info-mode-map
|
|
"o" #'ace-link-info)
|
|
|
|
;;; ivy & counsel
|
|
(:when (featurep! :completion ivy)
|
|
(:after ivy
|
|
:map ivy-minibuffer-map
|
|
"TAB" #'ivy-alt-done
|
|
"C-g" #'keyboard-escape-quit)
|
|
(:after counsel
|
|
:map counsel-ag-map
|
|
"C-SPC" #'ivy-call-and-recenter ; preview
|
|
"M-RET" (+ivy-do-action! #'+ivy-git-grep-other-window-action))
|
|
"C-M-y" #'counsel-yank-pop)
|
|
|
|
;;; neotree
|
|
(:when (featurep! :ui neotree)
|
|
"<f9>" #'+neotree/open
|
|
"<C-f9>" #'+neotree/find-this-file
|
|
(:after neotree
|
|
:map neotree-mode-map
|
|
"q" #'neotree-hide
|
|
"RET" #'neotree-enter
|
|
"SPC" #'neotree-quick-look
|
|
"v" #'neotree-enter-vertical-split
|
|
"s" #'neotree-enter-horizontal-split
|
|
"c" #'neotree-create-node
|
|
"D" #'neotree-delete-node
|
|
"g" #'neotree-refresh
|
|
"r" #'neotree-rename-node
|
|
"R" #'neotree-refresh
|
|
"h" #'+neotree/collapse-or-up
|
|
"l" #'+neotree/expand-or-open
|
|
"n" #'neotree-next-line
|
|
"p" #'neotree-previous-line
|
|
"N" #'neotree-select-next-sibling-node
|
|
"P" #'neotree-select-previous-sibling-node))
|
|
|
|
;;; popups
|
|
"C-x p" #'+popup/other
|
|
"C-`" #'+popup/toggle
|
|
"C-~" #'+popup/raise
|
|
|
|
;;; repl
|
|
"C-c C-z" #'+eval/open-repl-other-window
|
|
|
|
;;; smartparens
|
|
(:after smartparens
|
|
:map smartparens-mode-map
|
|
"C-M-a" #'sp-beginning-of-sexp
|
|
"C-M-e" #'sp-end-of-sexp
|
|
"C-M-f" #'sp-forward-sexp
|
|
"C-M-b" #'sp-backward-sexp
|
|
"C-M-d" #'sp-splice-sexp
|
|
"C-M-k" #'sp-kill-sexp
|
|
"C-M-t" #'sp-transpose-sexp
|
|
"C-<right>" #'sp-forward-slurp-sexp
|
|
"M-<right>" #'sp-forward-barf-sexp
|
|
"C-<left>" #'sp-backward-slurp-sexp
|
|
"M-<left>" #'sp-backward-barf-sexp)
|
|
|
|
;;; treemacs
|
|
(:when (featurep! :ui treemacs)
|
|
"<f9>" #'+treemacs/toggle
|
|
"<C-f9>" #'+treemacs/find-file)
|
|
|
|
;;; yasnippet
|
|
(:after yasnippet
|
|
:map yas-keymap ; keymap while editing an inserted snippet
|
|
"C-e" #'+snippets/goto-end-of-field
|
|
"C-a" #'+snippets/goto-start-of-field
|
|
"<S-tab>" #'yas-prev-field
|
|
"<M-backspace>" #'+snippets/delete-to-start-of-field
|
|
[backspace] #'+snippets/delete-backward-char
|
|
[delete] #'+snippets/delete-forward-char-or-field))
|