Files
.emacs.d/lisp/init-kbd.el

283 lines
6.6 KiB
EmacsLisp

;;; init-kbd.el --- keybindings -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:
;; 修改mac键位
(when *is-mac*
(setq mac-command-modifier 'meta)
(setq mac-option-modifier 'none))
;; g for gptel
(general-def
:prefix "C-c g"
"o" 'gptel
"m" 'gptel-menu
"s" 'gptel-send
"a" 'gptel-agent
"t" 'gptel-tools)
(general-def gptel-mode-map
"C-c C-s" 'my-gptel-save-session)
;; u for ui
(general-def
:prefix "C-c u"
"l" 'global-tab-line-mode
"d" 'disable-theme
"r" 'rainbow-mode
"b" 'indent-bars-mode
"t" 'consult-theme
"c" 'my-color-picker
"f" 'describe-face)
;; f for find and consult command
(general-def
:prefix "C-c f"
"r" 'consult-recent-file
"f" 'consult-fd
"g" 'consult-ripgrep
"e" 'consult-flycheck
"l" 'consult-locate
"m" 'consult-fd-global
"d" 'my-open-current-directory
"j" 'consult-jinx)
;; t for modes toggle
(general-def
:prefix "C-c t"
"f" 'global-flycheck-mode
"j" 'my/jinx-smart-toggle
"g" 'gptel-mode)
;; o for org-mode
(general-def
:prefix "C-c o"
"s" 'consult-notes
"g" 'consult-org-ripgrep
"C" 'calendar
"c" 'org-capture
"p" 'my-blog-publish
"v" 'my-blog-preview)
;; q for org-ql
(general-def
:prefix "C-c q"
"s" 'org-ql-search
"v" 'org-ql-view)
;; j for journal
(general-def
:prefix "C-c j"
"o" 'org-journal-open-current-journal-file-delete-other-window
"n" 'org-journal-new-entry-delete-other-window)
;; m for media
(general-def
:prefix "C-c m"
"n" 'emms-next
"p" 'emms-previous
"b" 'emms-browser
"q" 'emms-stop
"S" 'emms-toggle-single-track
"l" 'switch-to-emms-playlist
"d" 'my-emms-play-directory)
;; d for dired
(general-def
:prefix "C-c d"
"a" 'dirvish-quick-access
"s" 'dirvish-side
"h" 'dirvish-history-menu)
;; scratch buffer
(if *is-mac*
(general-def "C-c <f12>" 'scratch-buffer)
(general-def "C-c <delete>" 'scratch-buffer))
;; dired
(general-def (dired-mode-map dirvish-mode-map)
"h" 'dirvish-history-menu
"M-," 'scroll-other-window-down
"M-." 'scroll-other-window
"<mouse-2>" 'emms-play-dired
"C-c m a" 'emms-add-dired
"<down>" 'my/dired-next-line
"C-n" 'my/dired-next-line
"n" 'my/dired-next-line
"b" 'dired-up-directory
"C-b" 'dired-up-directory
"<right>" 'dired-find-file
"<left>" 'dired-up-directory
"C-f" 'dired-find-file
"<SPC>" 'dirvish-layout-toggle)
;; flycheck
(general-def flycheck-mode-map
"M-{" 'flycheck-previous-error
"M-}" 'flycheck-next-error)
;; vterm
(general-def vterm-mode-map
"M-]" nil
"C-x C-x" 'vterm-send-C-x)
;; embark
(general-def embark-file-map
"d" 'consult-directory-externally
"p" 'emms-play-dired)
(general-def minibuffer-local-map
"C-c C-e" 'embark-export)
;; markdown
(general-def markdown-mode-map
"M-p" nil
"M-n" nil)
;; org-mode
(general-def org-mode-map
"C-<tab>" 'org-cycle-current-subtree
"C-c i" 'consult-org-heading
"C-c o w" 'my-org-refile-to-new-file)
;; emms
(general-def emms-playlist-mode-map
"<prior>" 'emms-previous
"<next>" 'emms-next)
;; perspective
(general-def persp-mode-map
"C-c p c" nil
"C-M-<left>" 'persp-prev
"C-M-<right>" 'persp-next
"C-c p d" 'persp-kill)
;; global map with C-c prefix
(general-def
:prefix "C-c"
"c" 'hydra-multiple-cursors/body
"r" 'restart-emacs
"e" 'er/expand-region
"s" 'consult-focus-lines
"i" 'consult-imenu
"a" 'org-agenda
"l" 'org-store-link
"k" 'comment-line
"v" 'vterm)
;; global map
(general-def
;; buffer, file, and window
"<f2>" 'open-init-file
"<mouse-4>" 'previous-buffer
"<mouse-5>" 'next-buffer
"M-[" 'previous-buffer
"M-]" 'next-buffer
"C-x C-b" 'ibuffer-other-window
"C-x K" 'crux-kill-other-buffers
"C-x b" 'consult-buffer
"M-o" 'other-window
;; edit
"M-c" 'capitalize-dwim
"M-u" 'upcase-dwim
"M-l" 'downcase-dwim
"C-," 'duplicate-and-move-to-next-line
"C-k" 'crux-smart-kill-line
"C-<backspace>" 'crux-kill-line-backwards
"C-o" 'crux-smart-open-line
"C-a" 'crux-move-beginning-of-line
"M-y" 'consult-yank-from-kill-ring
"C-c <backspace>" 'hungry-delete-backward
"C-c C-<backspace>" 'hungry-delete-forward
"M-P" 'drag-stuff-up
"M-N" 'drag-stuff-down
;; undo
"C-/" 'undo-fu-only-undo
"C-?" 'undo-fu-only-redo
"C-x u" 'vundo
;; navigate
"M-p" 'backward-paragraph
"M-n" 'forward-paragraph
"<mouse-2>" 'xref-find-definitions-at-mouse
"C-s" 'consult-line
"C-M-;" 'avy-goto-char
"C-M-'" 'avy-goto-word-1
"M-g g" 'avy-goto-line
;; window
"M-<left>" 'shrink-window-horizontally
"M-<right>" 'enlarge-window-horizontally
"M-<down>" 'shrink-window
"M-<up>" 'enlarge-window
"<f10>" 'esw/swap-two-windows
"M-`" 'popper-toggle
"C-M-=" 'popper-toggle-type-delete-other-window
;; other
"C-x r b" 'consult-bookmark
"C-;" 'embark-act
"<mouse-3>" 'global-tab-line-mode)
;; expand region
(setq expand-region-reset-fast-key "r")
(setq expand-region-contract-fast-key "c")
;; save-some-buffer时diff更改
(add-to-list 'save-some-buffers-action-alist
(list "d"
(lambda (buffer) (diff-buffer-with-file (buffer-file-name buffer)))
"show diff between the buffer and its file"))
;; 在calendar中快速打开当天日记
(general-def calendar-mode-map
"j o" 'org-journal-open-entry-for-editing
"<RET>" 'org-journal-open-entry-for-editing)
;; hydra
(use-package hydra
:defines (consult-imenu-config)
:init
(with-eval-after-load 'consult-imenu
(setq consult-imenu-config
'((emacs-lisp-mode :toplevel "Functions"
:types ((?f "Functions" font-lock-function-name-face)
(?h "Hydras" font-lock-constant-face)
(?m "Macros" font-lock-function-name-face)
(?p "Packages" font-lock-constant-face)
(?t "Types" font-lock-type-face)
(?v "Variables" font-lock-variable-name-face)))))))
;; multiple-cursors
(defhydra hydra-multiple-cursors ()
"
^Mark^ ^Unmark^ ^Other^
------------------------------------------------------------------
_p_ : prev line _P_ : previous _c_ : edit lines
_n_ : next line _N_ : next _._ : pop
_f_ : next symbol _q_ : quit
_b_ : prev symbol
_s_ : in region
_a_ : all dwim
"
("p" mc/mark-previous-like-this)
("n" mc/mark-next-like-this)
("b" mc/mark-previous-like-this-symbol)
("f" mc/mark-next-like-this-symbol)
("P" mc/unmark-previous-like-this)
("N" mc/unmark-next-like-this)
("a" mc/mark-all-dwim)
("s" mc/mark-all-in-region)
("c" mc/edit-lines)
("." mc/mark-pop)
("q" nil))
(provide 'init-kbd)
;;; init-kbd.el ends here