571 lines
28 KiB
EmacsLisp
571 lines
28 KiB
EmacsLisp
;;; bindings.el -*- lexical-binding: t; -*-
|
|
|
|
(map! (:when (modulep! :ui popup)
|
|
"C-`" #'+popup/toggle
|
|
"C-~" #'+popup/raise
|
|
"C-x p" #'+popup/other)
|
|
|
|
(:when (modulep! :ui workspaces)
|
|
(:when (featurep :system 'macos)
|
|
"s-t" #'+workspace/new
|
|
"s-T" #'+workspace/display
|
|
"s-1" #'+workspace/switch-to-0
|
|
"s-2" #'+workspace/switch-to-1
|
|
"s-3" #'+workspace/switch-to-2
|
|
"s-4" #'+workspace/switch-to-3
|
|
"s-5" #'+workspace/switch-to-4
|
|
"s-6" #'+workspace/switch-to-5
|
|
"s-7" #'+workspace/switch-to-6
|
|
"s-8" #'+workspace/switch-to-7
|
|
"s-9" #'+workspace/switch-to-8
|
|
"s-0" #'+workspace/switch-to-final)))
|
|
|
|
(map! :leader
|
|
"`" nil
|
|
(:prefix ("m" . "<localleader>")) ; bound locally
|
|
(:prefix-map ("!" . "checkers")) ; bound by flycheck
|
|
|
|
:desc "M-x" ":" #'execute-extended-command
|
|
:desc "Pop up scratch buffer" "x" #'doom/open-scratch-buffer
|
|
:desc "Universal argument" "u" #'universal-argument
|
|
|
|
|
|
:desc "help" "h" help-map
|
|
:desc "Toggle last popup" "~" #'+popup/toggle
|
|
:desc "Find file" "." #'find-file
|
|
:desc "Switch workspace buffer" "," #'persp-switch-to-buffer
|
|
:desc "Switch buffer" "<" #'switch-to-buffer
|
|
:desc "Repeat" "'" #'vertico-repeat
|
|
|
|
:desc "Search for symbol in project" "*" #'+default/search-project-for-symbol-at-point
|
|
:desc "Search project" "/" #'+default/search-project
|
|
|
|
:desc "Find file in project" "SPC" #'projectile-find-file
|
|
:desc "Jump to bookmark" "RET" #'bookmark-jump
|
|
|
|
(:prefix-map ("w" . "window")
|
|
:desc "ace-window" "w" #'ace-window
|
|
:desc "split vertical" "v" #'split-window-horizontally
|
|
:desc "split horizontal" "h" #'split-window-vertically
|
|
:desc "make taller" "+" #'enlarge-window
|
|
:desc "make taller" "-" #'shrink-window
|
|
:desc "make wider" ">" #'enlarge-window-horizontally
|
|
:desc "make narrower" "<" #'shrink-window-horizontally
|
|
:desc "delete current window" "d" #'delete-window
|
|
:desc "delete other windows" "o" #'delete-other-windows)
|
|
|
|
;;; <leader> b --- buffer
|
|
(:prefix-map ("b" . "buffer")
|
|
:desc "Toggle narrowing" "-" #'doom/toggle-narrow-buffer
|
|
:desc "Previous buffer" "[" #'previous-buffer
|
|
:desc "Next buffer" "]" #'next-buffer
|
|
:desc "Switch workspace buffer" "b" #'persp-switch-to-buffer
|
|
:desc "Switch buffer" "B" #'switch-to-buffer
|
|
:desc "ibuffer workspace" "I" #'+ibuffer/open-for-current-workspace
|
|
:desc "Clone buffer" "c" #'clone-indirect-buffer
|
|
:desc "Clone buffer other window" "C" #'clone-indirect-buffer-other-window
|
|
:desc "Kill buffer" "d" #'kill-current-buffer
|
|
:desc "ibuffer" "i" #'ibuffer
|
|
:desc "Kill buffer" "k" #'kill-current-buffer
|
|
:desc "Kill all buffers" "K" #'doom/kill-all-buffers
|
|
:desc "Set bookmark" "m" #'bookmark-set
|
|
:desc "Delete bookmark" "M" #'bookmark-delete
|
|
:desc "Next buffer" "n" #'next-buffer
|
|
:desc "New empty buffer" "N" #'+default/new-buffer
|
|
:desc "Kill other buffers" "O" #'doom/kill-other-buffers
|
|
:desc "Previous buffer" "p" #'previous-buffer
|
|
:desc "Revert buffer" "r" #'revert-buffer
|
|
:desc "Rename buffer" "R" #'rename-buffer
|
|
:desc "Save buffer" "s" #'basic-save-buffer
|
|
:desc "Save buffer as root" "u" #'doom/sudo-save-buffer
|
|
:desc "Pop up scratch buffer" "x" #'doom/open-scratch-buffer
|
|
:desc "Switch to scratch buffer" "X" #'doom/switch-to-scratch-buffer
|
|
:desc "Yank buffer" "y" #'+default/yank-buffer-contents
|
|
:desc "Bury buffer" "z" #'bury-buffer
|
|
:desc "Kill buried buffers" "Z" #'doom/kill-buried-buffers)
|
|
|
|
(:prefix-map ("TAB" . "workspace")
|
|
:desc "Display tab bar" "TAB" #'+workspace/display
|
|
:desc "Switch workspace" "." #'+workspace/switch-to
|
|
:desc "Switch to last workspace" "`" #'+workspace/other
|
|
:desc "New workspace" "n" #'+workspace/new
|
|
:desc "New named workspace" "N" #'+workspace/new-named
|
|
:desc "Load workspace from file" "l" #'+workspace/load
|
|
:desc "Save workspace to file" "s" #'+workspace/save
|
|
:desc "Delete session" "x" #'+workspace/kill-session
|
|
:desc "Delete this workspace" "d" #'+workspace/delete
|
|
:desc "Rename workspace" "r" #'+workspace/rename
|
|
:desc "Restore last session" "R" #'+workspace/restore-last-session
|
|
:desc "Next workspace" "]" #'+workspace/switch-right
|
|
:desc "Previous workspace" "[" #'+workspace/switch-left
|
|
:desc "Switch to 1st workspace" "1" #'+workspace/switch-to-0
|
|
:desc "Switch to 2nd workspace" "2" #'+workspace/switch-to-1
|
|
:desc "Switch to 3rd workspace" "3" #'+workspace/switch-to-2
|
|
:desc "Switch to 4th workspace" "4" #'+workspace/switch-to-3
|
|
:desc "Switch to 5th workspace" "5" #'+workspace/switch-to-4
|
|
:desc "Switch to 6th workspace" "6" #'+workspace/switch-to-5
|
|
:desc "Switch to 7th workspace" "7" #'+workspace/switch-to-6
|
|
:desc "Switch to 8th workspace" "8" #'+workspace/switch-to-7
|
|
:desc "Switch to 9th workspace" "9" #'+workspace/switch-to-8
|
|
:desc "Switch to final workspace" "0" #'+workspace/switch-to-final)
|
|
|
|
(:prefix-map ("f" . "file")
|
|
:desc "Open project editorconfig" "c" #'editorconfig-find-current-editorconfig
|
|
:desc "Copy this file" "C" #'doom/copy-this-file
|
|
:desc "Find directory" "d" #'+default/dired
|
|
:desc "Delete this file" "D" #'doom/delete-this-file
|
|
:desc "Find file in emacs.d" "e" #'doom/find-file-in-emacsd
|
|
:desc "Browse emacs.d" "E" #'doom/browse-in-emacsd
|
|
:desc "Find file" "f" #'find-file
|
|
:desc "Find file from here" "F" #'+default/find-file-under-here
|
|
:desc "Find file in private config" "p" #'doom/find-file-in-private-config
|
|
:desc "Browse private config" "P" #'doom/open-private-config
|
|
:desc "Recent files" "r" #'recentf-open-files
|
|
:desc "Rename/move file" "R" #'doom/move-this-file
|
|
:desc "Save file" "s" #'save-buffer
|
|
:desc "Save file as..." "S" #'write-file
|
|
:desc "Sudo find file" "u" #'doom/sudo-find-file
|
|
:desc "Sudo this file" "U" #'doom/sudo-this-file
|
|
:desc "Yank file path" "y" #'+default/yank-buffer-path
|
|
:desc "Yank file path from project" "Y" #'+default/yank-buffer-path-relative-to-project)
|
|
|
|
(:prefix-map ("p" . "project")
|
|
:desc "Browse project" "." #'+default/browse-project
|
|
:desc "Browse other project" ">" #'doom/browse-in-other-project
|
|
:desc "Run cmd in project root" "!" #'projectile-run-shell-command-in-root
|
|
:desc "Async cmd in project root" "&" #'projectile-run-async-shell-command-in-root
|
|
:desc "Add new project" "a" #'projectile-add-known-project
|
|
:desc "Switch to project buffer" "b" #'projectile-switch-to-buffer
|
|
:desc "Compile in project" "c" #'projectile-compile-project
|
|
:desc "Repeat last command" "C" #'projectile-repeat-last-command
|
|
:desc "Remove known project" "d" #'projectile-remove-known-project
|
|
:desc "Discover projects in folder" "D" #'+default/discover-projects
|
|
:desc "Edit project .dir-locals" "e" #'projectile-edit-dir-locals
|
|
:desc "Find file in project" "f" #'projectile-find-file
|
|
:desc "Find file in other project" "F" #'doom/find-file-in-other-project
|
|
:desc "Configure project" "g" #'projectile-configure-project
|
|
:desc "Invalidate project cache" "i" #'projectile-invalidate-cache
|
|
:desc "Kill project buffers" "k" #'projectile-kill-buffers
|
|
:desc "Find other file" "o" #'projectile-find-other-file
|
|
:desc "Switch project" "p" #'projectile-switch-project
|
|
:desc "Find recent project files" "r" #'projectile-recentf
|
|
:desc "Run project" "R" #'projectile-run-project
|
|
:desc "Save project files" "s" #'projectile-save-project-buffers
|
|
:desc "List project todos" "t" #'magit-todos-list
|
|
:desc "Test project" "T" #'projectile-test-project
|
|
:desc "Pop up scratch buffer" "x" #'doom/open-project-scratch-buffer
|
|
:desc "Switch to scratch buffer" "X" #'doom/switch-to-project-scratch-buffer
|
|
:desc "Justfile Commands" "j" #'justl)
|
|
|
|
;;; <leader> i --- insert
|
|
(:prefix-map ("i" . "insert")
|
|
(:when (> emacs-major-version 28)
|
|
:desc "Emoji" "e" #'emoji-search)
|
|
(:when (modulep! :ui emoji)
|
|
:desc "Emoji" "e" #'emojify-insert-emoji)
|
|
:desc "Current file name" "f" #'+default/insert-file-path
|
|
:desc "Current file path" "F" (cmd!! #'+default/insert-file-path t)
|
|
:desc "Snippet" "s" #'+default/insert-snippet
|
|
:desc "Unicode" "u" #'insert-char
|
|
:desc "From clipboard" "y" #'+default/yank-pop)
|
|
|
|
|
|
;;; <leader> s --- search
|
|
(:prefix-map ("s" . "search")
|
|
:desc "Search buffer" "b" #'+default/search-buffer
|
|
:desc "Search all open buffers" "B" (cmd!! #'consult-line-multi 'all-buffers)
|
|
:desc "Search current directory" "d" #'+default/search-cwd
|
|
:desc "Search other directory" "D" #'+default/search-other-cwd
|
|
:desc "Search .emacs.d" "e" #'+default/search-emacsd
|
|
:desc "Jump to symbol" "i" #'imenu
|
|
:desc "Jump to visible link" "l" #'link-hint-open-link
|
|
:desc "Jump to link" "L" #'ffap-menu
|
|
:desc "Jump to bookmark" "m" #'bookmark-jump
|
|
:desc "Look up online" "o" #'+lookup/online
|
|
:desc "Look up online (w/ prompt)" "O" #'+lookup/online-select
|
|
:desc "Look up in local docsets" "k" #'+lookup/in-docsets
|
|
:desc "Look up in all docsets" "K" #'+lookup/in-all-docsets
|
|
:desc "Search project" "p" #'+default/search-project
|
|
:desc "Search other project" "P" #'+default/search-other-project
|
|
:desc "Search buffer" "s" #'+default/search-buffer
|
|
:desc "Search buffer for thing at point" "S" #'+vertico/search-symbol-at-point
|
|
:desc "Dictionary" "t" #'+lookup/dictionary-definition
|
|
:desc "Thesaurus" "T" #'+lookup/synonyms)
|
|
|
|
;;; <leader> t --- toggle
|
|
(:prefix-map ("t" . "toggle")
|
|
:desc "Artist mode" "a" #'artist-mode
|
|
:desc "Follow mode" "x" #'follow-mode
|
|
:desc "Big mode" "b" #'doom-big-font-mode
|
|
:desc "Fill Column Indicator" "c" #'global-display-fill-column-indicator-mode
|
|
:desc "Flymake" "f" #'flymake-mode
|
|
(:when (modulep! :checkers syntax)
|
|
:desc "Flycheck" "f" #'flycheck-mode)
|
|
:desc "Frame fullscreen" "F" #'toggle-frame-fullscreen
|
|
(:when (modulep! :ui indent-guides)
|
|
:desc "Indent guides" "i" #'highlight-indent-guides-mode)
|
|
:desc "Indent style" "I" #'doom/toggle-indent-style
|
|
:desc "Line numbers" "l" #'doom/toggle-line-numbers
|
|
(:when (modulep! :ui minimap)
|
|
:desc "Minimap" "m" #'minimap-mode)
|
|
(:when (modulep! :lang org +present)
|
|
:desc "org-tree-slide mode" "p" #'org-tree-slide-mode)
|
|
:desc "Read-only mode" "r" #'read-only-mode
|
|
(:when (and (modulep! :checkers spell) (not (modulep! :checkers spell +flyspell)))
|
|
:desc "Spell checker" "s" #'spell-fu-mode)
|
|
(:when (modulep! :checkers spell +flyspell)
|
|
:desc "Spell checker" "s" #'flyspell-mode)
|
|
(:when (modulep! :lang org +pomodoro)
|
|
:desc "Pomodoro timer" "t" #'org-pomodoro)
|
|
:desc "Visible mode" "v" #'visible-mode
|
|
:desc "Soft line wrapping" "w" #'visual-line-mode
|
|
(:when (modulep! :editor word-wrap)
|
|
:desc "Soft line wrapping" "w" #'+word-wrap-mode)
|
|
:desc "PlatformIO Mode Toggle" "o" #'platformio-mode)
|
|
|
|
|
|
(:prefix-map ("o" . "open")
|
|
:desc "Process List" "a" #'list-processes
|
|
:desc "Start debugger" "d" #'+debugger/start
|
|
:desc "New frame" "f" #'make-frame
|
|
:desc "Select frame" "F" #'select-frame-by-name
|
|
:desc "REPL" "r" #'+eval/open-repl-other-window
|
|
:desc "REPL (same window)" "R" #'+eval/open-repl-same-window
|
|
:desc "Dired" "-" #'dired-jump
|
|
(:when (modulep! :ui treemacs)
|
|
:desc "Project sidebar" "p" #'+treemacs/toggle
|
|
:desc "Find file in project sidebar" "P" #'treemacs-find-file)
|
|
(:when (modulep! :term vterm)
|
|
:desc "Toggle vterm popup" "v" #'+vterm/toggle
|
|
:desc "Open vterm here" "V" #'+vterm/here)
|
|
(:when (modulep! :os macos)
|
|
:desc "Reveal in Finder" "o" #'+macos/reveal-in-finder
|
|
:desc "Reveal project in Finder" "O" #'+macos/reveal-project-in-finder
|
|
:desc "Open in Kitty" "k" #'terminal-here
|
|
:desc "Open project root in Kitty" "K" #'terminal-here-project-launch)
|
|
(:when (modulep! :tools docker)
|
|
:desc "Docker" "D" #'docker)
|
|
(:when (modulep! :email mu4e)
|
|
:desc "mu4e" "m" #'=mu4e))
|
|
|
|
(:prefix-map ("n" . "notes")
|
|
:desc "Search notes for symbol" "*" #'+default/search-notes-for-symbol-at-point
|
|
(:when (modulep! :tools biblio)
|
|
:desc "Bibliographic notes" "b" #'citar-open-notes)
|
|
|
|
:desc "Find file in notes" "f" #'+default/find-in-notes
|
|
:desc "Browse notes" "F" #'+default/browse-notes)
|
|
|
|
(:prefix-map ("g" . "git")
|
|
:desc "Revert file" "R" #'vc-revert
|
|
:desc "Copy link to remote" "y" #'+vc/browse-at-remote-kill
|
|
:desc "Copy link to homepage" "Y" #'+vc/browse-at-remote-kill-homepage
|
|
(:when (modulep! :ui vc-gutter)
|
|
:desc "Revert hunk at point" "r" #'+vc-gutter/revert-hunk
|
|
:desc "stage hunk at point" "s" #'+vc-gutter/stage-hunk
|
|
:desc "Git time machine" "t" #'git-timemachine-toggle
|
|
:desc "Jump to next hunk" "]" #'+vc-gutter/next-hunk
|
|
:desc "Jump to previous hunk" "[" #'+vc-gutter/previous-hunk)
|
|
(:when (modulep! :tools magit)
|
|
:desc "Magit dispatch" "/" #'magit-dispatch
|
|
:desc "Magit file dispatch" "." #'magit-file-dispatch
|
|
:desc "Forge dispatch" "'" #'forge-dispatch
|
|
:desc "Magit switch branch" "b" #'magit-branch-checkout
|
|
:desc "Magit status" "g" #'magit-status
|
|
:desc "Magit status here" "G" #'magit-status-here
|
|
:desc "Magit file delete" "D" #'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-buffer-file
|
|
:desc "Git stage file" "S" #'magit-stage-file
|
|
:desc "Git unstage file" "U" #'magit-unstage-file
|
|
:desc "Git push current" "P" #'magit-push-implicitly
|
|
:desc "Git push with options" "p" #'magit-push
|
|
(: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 file or region" "o" #'+vc/browse-at-remote
|
|
:desc "Browse homepage" "h" #'+vc/browse-at-remote-homepage
|
|
: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")
|
|
: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 "Fixup" "f" #'magit-commit-fixup
|
|
:desc "Branch" "b" #'magit-branch-and-checkout
|
|
:desc "Issue" "i" #'forge-create-issue
|
|
:desc "Pull request" "p" #'forge-create-pullreq)))
|
|
|
|
;; code map
|
|
(:prefix-map ("c" . "code")
|
|
(:when (and (modulep! :tools lsp) (not (modulep! :tools lsp +eglot)))
|
|
:desc "LSP Execute code action" "a" #'lsp-execute-code-action
|
|
:desc "LSP Organize imports" "o" #'lsp-organize-imports
|
|
:desc "Jump to symbol in current workspace" "j" #'consult-lsp-symbols
|
|
:desc "Jump to symbol in any workspace" "J" (cmd!! #'consult-lsp-symbols 'all-workspaces)
|
|
(:when (modulep! :ui treemacs +lsp)
|
|
:desc "Errors list" "X" #'lsp-treemacs-errors-list
|
|
:desc "Incoming call hierarchy" "y" #'lsp-treemacs-call-hierarchy
|
|
:desc "Outgoing call hierarchy" "Y" (cmd!! #'lsp-treemacs-call-hierarchy t)
|
|
:desc "References tree" "R" (cmd!! #'lsp-treemacs-references t)
|
|
:desc "Symbols" "S" #'lsp-treemacs-symbols)
|
|
:desc "LSP" "l" #'+default/lsp-command-map
|
|
:desc "LSP Rename" "r" #'lsp-rename)
|
|
(:when (modulep! :tools lsp +eglot)
|
|
:desc "LSP Execute code action" "a" #'eglot-code-actions
|
|
:desc "LSP Rename" "r" #'eglot-rename
|
|
:desc "LSP Find declaration" "j" #'eglot-find-declaration
|
|
(:when (modulep! :completion vertico)
|
|
:desc "Jump to symbol in current workspace" "j" #'consult-eglot-symbols))
|
|
:desc "Compile" "c" #'compile
|
|
:desc "Recompile" "C" #'recompile
|
|
:desc "Jump to definition" "d" #'+lookup/definition
|
|
:desc "Jump to references" "D" #'+lookup/references
|
|
:desc "Evaluate buffer/region" "e" #'+eval/buffer-or-region
|
|
:desc "Evaluate & replace region" "E" #'+eval:replace-region
|
|
:desc "Toggle Fold" "z" #'+fold/toggle
|
|
:desc "Format buffer/region" "f" #'+format/region-or-buffer
|
|
:desc "Find implementations" "i" #'+lookup/implementations
|
|
:desc "Jump to documentation" "k" #'+lookup/documentation
|
|
:desc "Send to repl" "s" #'+eval/send-region-to-repl
|
|
:desc "Find type definition" "t" #'+lookup/type-definition
|
|
:desc "Delete trailing whitespace" "w" #'delete-trailing-whitespace
|
|
:desc "Delete trailing newlines" "W" #'doom/delete-trailing-newlines
|
|
:desc "List errors" "x" #'+default/diagnostics
|
|
:desc "Spaces -> Tabs" "<tab>" #'tabify
|
|
:desc "Tabs -> Spaces" "<S-tab>" #'untabify
|
|
:desc "Diff buffer and file" "b" #'diff-buffer-with-file
|
|
(:prefix ("-" . "String Case")
|
|
:desc "cycle" "~" #'string-inflection-all-cycle
|
|
:desc "CamelCase" "c" #'string-inflection-camelcase
|
|
:desc "downCase" "d" #'string-inflection-lower-camelcase
|
|
:desc "kebab-case" "-" #'string-inflection-kebab-case
|
|
:desc "under_score" "_" #'string-inflection-underscore
|
|
:desc "Upper_Score" "u" #'string-inflection-capital-underscore
|
|
:desc "UP_CASE" "U" #'string-inflection-upcase
|
|
:desc "ALL CAPS" "A" #'upcase-dwim
|
|
:desc "all lower" "a" #'downcase-dwim
|
|
:desc "Capitalize Sentence" "s" #'capitalize-dwim))
|
|
|
|
|
|
;;; <leader> q --- quit/restart
|
|
(:prefix-map ("q" . "quit/session")
|
|
:desc "Restart emacs server" "d" #'+default/restart-server
|
|
:desc "Delete frame" "f" #'delete-frame
|
|
:desc "Clear current frame" "F" #'doom/kill-all-buffers
|
|
:desc "Kill Emacs (and daemon)" "K" #'save-buffers-kill-emacs
|
|
:desc "Quit Emacs" "q" #'kill-emacs
|
|
:desc "Save and quit Emacs" "Q" #'save-buffers-kill-terminal
|
|
:desc "Quick save current session" "s" #'doom/quicksave-session
|
|
:desc "Restore last session" "l" #'doom/quickload-session
|
|
:desc "Save session to file" "S" #'doom/save-session
|
|
:desc "Restore session from file" "L" #'doom/load-session
|
|
:desc "Restart & restore Emacs" "r" #'doom/restart-and-restore
|
|
:desc "Restart Emacs" "R" #'doom/restart))
|
|
|
|
|
|
;; some helpful general keys
|
|
(map! "s-c" #'kill-ring-save
|
|
"s-v" #'yank
|
|
"s-V" #'consult-yank-from-kill-ring ; paste from previous copdied text
|
|
"s-x" #'kill-region
|
|
"s-a" #'mark-whole-buffer
|
|
"s-z" #'undo
|
|
"s-w" #'kill-buffer
|
|
"s-f" #'+default/search-buffer
|
|
"s-g" #'vertico-repeat
|
|
"C-M-s-b" #'bookmark-set
|
|
"M-s-<up>" #'next-window-any-frame
|
|
"M-s-<down>" #'previous-window-any-frame
|
|
"s-<up>" #'beginning-of-buffer
|
|
"s-<down>" #'end-of-buffer
|
|
"s-<return>" #'split-window-below
|
|
"C-M-S-s-<mouse-1>" #'+fold/toggle)
|
|
|
|
(map!
|
|
:localleader
|
|
:map lisp-mode-map
|
|
:desc "Load cl-patterns helpers" "p" #'cl-patterns-helpers-load)
|
|
|
|
(map!
|
|
:map smartparens-mode-map
|
|
"M-[" #'sp-forward-barf-sexp
|
|
"M-]" #'sp-forward-slurp-sexp
|
|
"M-{" #'sp-backward-slurp-sexp
|
|
"M-}" #'sp-backward-barf-sexp
|
|
"M-)" #'sp-split-sexp
|
|
"M-(" #'sp-splice-sexp
|
|
"s-(" #'sp-wrap-round
|
|
"s-)" #'sp-unwrap-sexp
|
|
"s-[" #'sp-wrap-square
|
|
"s-]" #'sp-unwrap-sexp
|
|
"s-{" #'sp-wrap-curly
|
|
"s-}" #'sp-unwrap-sexp)
|
|
|
|
;; platform io local leader bindings
|
|
(map!
|
|
:map platformio-mode-map
|
|
:localleader
|
|
"b" #'platformio-build
|
|
"u" #'platformio-upload
|
|
"B" #'platformio-boards
|
|
"c" #'platformio-clean
|
|
"m" #'platformio-device-monitor)
|
|
|
|
(defun sclang-show-scope ()
|
|
(interactive)
|
|
(sclang-eval-expression "s.scope"))
|
|
|
|
(defun sclang-show-levels ()
|
|
(interactive)
|
|
(sclang-eval-expression "s.levels"))
|
|
|
|
(defun sclang-show-gui ()
|
|
(interactive)
|
|
(sclang-eval-expression "s.makeGui"))
|
|
|
|
(map!
|
|
:map sclang-mode-map
|
|
"M-C-x" 'sclang-eval-region-or-line
|
|
"M-C-z" 'sclang-server-free-all
|
|
:localleader
|
|
"b" #'sclang-server-boot
|
|
"." #'sclang-main-stop
|
|
"l" #'sclang-show-levels
|
|
"R" #'sclang-recompile
|
|
"s" #'sclang-show-scope
|
|
"g" #'sclang-show-gui
|
|
"k" #'sclang-kill
|
|
"r" #'sclang-server-reboot
|
|
"e" #'sclang-eval-region-or-line
|
|
"h" #'sclang-find-help
|
|
"H" #'sclang-open-help-gui
|
|
"s" #'sclang-start)
|
|
|
|
(map!
|
|
:map web-mode-map
|
|
"s-<" #'web-mode-element-wrap)
|
|
|
|
(map!
|
|
:map chezmoi-mode-map
|
|
:localleader
|
|
"f" #'chezmoi-find
|
|
"w" #'chezmoi-write)
|
|
|
|
(map!
|
|
:map mu4e-main-mode-map
|
|
:localleader
|
|
:desc "Compose" "c" #'compose-mail)
|
|
|
|
(map!
|
|
:map mu4e-compose-mode-map
|
|
:localleader
|
|
:desc "Send message and exit" "s" #'message-send-and-exit)
|
|
|
|
(map!
|
|
:map dired-mode-map
|
|
"h" #'dired-up-directory
|
|
"l" #'dired-find-file
|
|
"<right>" #'dired-up-directory
|
|
"<left>" #'dired-find-file)
|
|
|
|
(setq ns-alternate-modifier 'meta)
|
|
(setq ns-right-alternate-modifier 'none)
|
|
|
|
(after! which-key
|
|
(let ((prefix-re (regexp-opt (list doom-leader-key doom-leader-alt-key))))
|
|
(cl-pushnew `((,(format "\\`\\(?:C-w\\|%s w\\) m\\'" prefix-re))
|
|
nil . "maximize")
|
|
which-key-replacement-alist)))
|
|
|
|
;; main meow normal mode keymap
|
|
(map! :map meow-normal-state-keymap
|
|
"<" #'meow-beginning-of-thing
|
|
">" #'meow-end-of-thing
|
|
"a" #'meow-append
|
|
"A" #'meow-open-below
|
|
"b" #'meow-back-word
|
|
"B" #'meow-back-symbol
|
|
"c" #'meow-change
|
|
"d" #'meow-delete
|
|
"D" #'meow-backward-delete
|
|
"e" #'meow-next-word
|
|
"E" #'meow-next-symbol
|
|
"f" #'meow-find
|
|
"g" #'meow-cancel-selection
|
|
"G" #'meow-grab
|
|
"h" #'meow-left
|
|
"H" #'meow-left-expand
|
|
"i" #'meow-insert
|
|
"I" #'meow-open-above
|
|
"j" #'meow-next
|
|
"J" #'meow-next-expand
|
|
"k" #'meow-prev
|
|
"K" #'meow-prev-expand
|
|
"l" #'meow-right
|
|
"L" #'meow-right-expand
|
|
"m" #'meow-join
|
|
"n" #'meow-search
|
|
"o" #'meow-block
|
|
"O" #'meow-to-block
|
|
"p" #'meow-yank
|
|
"q" #'meow-quit
|
|
"Q" #'meow-goto-line
|
|
"r" #'meow-replace
|
|
"R" #'meow-swap-grab
|
|
"s" #'meow-kill
|
|
"t" #'meow-till
|
|
"u" #'meow-undo
|
|
"U" #'meow-undo-in-selection
|
|
"v" #'meow-visit
|
|
"w" #'meow-mark-word
|
|
"W" #'meow-mark-symbol
|
|
"x" #'meow-line
|
|
"X" #'meow-goto-line
|
|
"y" #'meow-save
|
|
"Y" #'meow-sync-grab
|
|
"z" #'meow-pop-selection
|
|
"0" #'meow-expand-0
|
|
"1" #'meow-expand-1
|
|
"2" #'meow-expand-2
|
|
"3" #'meow-expand-3
|
|
"4" #'meow-expand-4
|
|
"5" #'meow-expand-5
|
|
"6" #'meow-expand-6
|
|
"7" #'meow-expand-7
|
|
"8" #'meow-expand-8
|
|
"9" #'meow-expand-9
|
|
"-" #'negative-argument
|
|
";" #'meow-reverse
|
|
"," #'meow-inner-of-thing
|
|
"." #'meow-bounds-of-thing
|
|
"/" #'bookmark-in-project-jump
|
|
"?" #'bookmark-jump
|
|
"\\" #'bookmark-set
|
|
"|" #'bookmark-delete
|
|
"#" #'string-inflection-all-cycle
|
|
"'" #'repeat
|
|
"=" #'meow--eval-sexp
|
|
"[" #'sp-backward-sexp
|
|
"]" #'sp-forward-sexp
|
|
"{" #'sp-backward-up-sexp
|
|
"}" #'sp-down-sexp
|
|
"!" #'meow-start-kmacro-or-insert-counter
|
|
"@" #'meow-end-or-call-kmacro
|
|
"<escape>" #'corfu-quit)
|