Config: extract keybinding functions and clean up key configs
- Add init-kbd-func.el for keybinding helper functions - Move global-display-line-numbers-mode from early-init.el to init.el - Slim down init-kbd.el: remove hydra-multiple-cursors, migrate defs - Reorganize dirvish config - Remove scattered global-set-key bindings from init-org, init-ui, etc. - Guard server-start with server-running-p check - Set ibuffer-default-sorting-mode to filename - Tweak gptel config
This commit is contained in:
User
661
lisp/init-kbd.el
661
lisp/init-kbd.el
@@ -4,13 +4,243 @@
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; 好像是ivy-posframe里的函数，后面要用
|
||||
(defun childframe-completion-workable-p ()
|
||||
"Check if childframe completion is workable."
|
||||
(and (display-graphic-p)
|
||||
(not (eq system-type 'windows-nt))
|
||||
(>= emacs-major-version 26)))
|
||||
(use-package general)
|
||||
|
||||
;; 修改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
|
||||
"f" 'rainbow-mode
|
||||
"b" 'indent-bars-mode
|
||||
"t" 'consult-theme
|
||||
"c" 'my-color-picker)
|
||||
|
||||
;; 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-org-agenda
|
||||
"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" 'ace-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
|
||||
@@ -26,7 +256,7 @@
|
||||
|
||||
;; multiple-cursors
|
||||
(defhydra hydra-multiple-cursors ()
|
||||
"
|
||||
"
|
||||
^Mark^ ^Unmark^ ^Other^
|
||||
------------------------------------------------------------------
|
||||
_p_ : prev line _P_ : previous _c_ : edit lines
|
||||
@@ -36,412 +266,17 @@ _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))
|
||||
|
||||
(global-set-key (kbd "C-c c") 'hydra-multiple-cursors/body)
|
||||
|
||||
(use-package general)
|
||||
|
||||
;; 修改mac键位
|
||||
(when *is-mac*
|
||||
(setq mac-command-modifier 'meta)
|
||||
(setq mac-option-modifier 'none))
|
||||
|
||||
;; 使用F2打开init.el
|
||||
(defun open-init-file()
|
||||
"Open user's init.el file in ~/.emacs.d ."
|
||||
(interactive)
|
||||
(find-file "~/.emacs.d/init.el"))
|
||||
|
||||
(global-set-key (kbd "<f2>") 'open-init-file)
|
||||
|
||||
;; 根据平台使用不同的重启方式
|
||||
(if *is-windows*
|
||||
(progn
|
||||
(defun restart-emacs ()
|
||||
"Restart emacs (for Windows)"
|
||||
(interactive)
|
||||
(save-some-buffers)
|
||||
(w32-shell-execute "open" "runemacs.exe")
|
||||
(kill-emacs))
|
||||
(global-set-key (kbd "C-c r") 'restart-emacs))
|
||||
(global-set-key (kbd "C-c r") 'restart-emacs))
|
||||
|
||||
;; expand region
|
||||
(global-set-key (kbd "C-c e") 'er/expand-region)
|
||||
(setq expand-region-reset-fast-key "r")
|
||||
(setq expand-region-contract-fast-key "c")
|
||||
|
||||
;; 大小写
|
||||
(global-set-key (kbd "M-c") 'capitalize-dwim)
|
||||
(global-set-key (kbd "M-u") 'upcase-dwim)
|
||||
(global-set-key (kbd "M-l") 'downcase-dwim)
|
||||
|
||||
;; jinx相关
|
||||
(defun my/jinx-smart-toggle ()
|
||||
"Toggle jinx-mode smartly.
|
||||
Disable jinx-mode if it's enable and global-jinx-mode is disable , otherwise toggle global-jinx-mode."
|
||||
(interactive)
|
||||
(unless (featurep 'jinx)
|
||||
(require 'jinx))
|
||||
(let ((local-on (bound-and-true-p jinx-mode))
|
||||
(global-on (bound-and-true-p global-jinx-mode)))
|
||||
(cond
|
||||
((and local-on (not global-on))
|
||||
(message "disable jinx-mode in current buffer")
|
||||
(jinx-mode -1))
|
||||
(t
|
||||
(if global-on
|
||||
(progn
|
||||
(message "disable global-jinx-mode")
|
||||
(global-jinx-mode -1))
|
||||
(progn
|
||||
(message "enable global-jinx-mode")
|
||||
(global-jinx-mode 1)))))))
|
||||
|
||||
(global-set-key (kbd "C-c j j") 'my/jinx-smart-toggle)
|
||||
(with-eval-after-load 'init-jinx
|
||||
(global-set-key (kbd "C-c f j") 'consult-jinx))
|
||||
|
||||
;; pair编辑
|
||||
;; (global-set-key (kbd "C-c p d") 'delete-pair)
|
||||
|
||||
;; 快速复制当前行
|
||||
(defun duplicate-and-move-to-next-line()
|
||||
"Duplicate current line and move to next line."
|
||||
(interactive)
|
||||
(progn
|
||||
(duplicate-line)
|
||||
(next-line)))
|
||||
(global-set-key (kbd "C-,") 'duplicate-and-move-to-next-line)
|
||||
|
||||
;; 切换buffer
|
||||
(defun my-tab-line-buffers ()
|
||||
"Get list of buffers shown in tab-line."
|
||||
(mapcar (lambda (tab)
|
||||
(if (consp tab) (cdr tab) tab))
|
||||
(funcall tab-line-tabs-function)))
|
||||
|
||||
(defun previous-buffer-with-tab-line ()
|
||||
"Switch to previous buffer in tab-line order."
|
||||
(interactive)
|
||||
(let ((already-enabled global-tab-line-mode))
|
||||
(unless already-enabled
|
||||
(global-tab-line-mode 1))
|
||||
(let* ((buffers (my-tab-line-buffers))
|
||||
(current (current-buffer))
|
||||
(pos (cl-position current buffers)))
|
||||
(when pos
|
||||
(switch-to-buffer
|
||||
(nth (mod (1- pos) (length buffers)) buffers))))
|
||||
(unless already-enabled
|
||||
(run-with-idle-timer 0.5 nil (lambda () (global-tab-line-mode -1))))))
|
||||
|
||||
(defun next-buffer-with-tab-line ()
|
||||
"Switch to next buffer in tab-line order."
|
||||
(interactive)
|
||||
(let ((already-enabled global-tab-line-mode))
|
||||
(unless already-enabled
|
||||
(global-tab-line-mode 1))
|
||||
(let* ((buffers (my-tab-line-buffers))
|
||||
(current (current-buffer))
|
||||
(pos (cl-position current buffers)))
|
||||
(when pos
|
||||
(switch-to-buffer
|
||||
(nth (mod (1+ pos) (length buffers)) buffers))))
|
||||
(unless already-enabled
|
||||
(run-with-idle-timer 0.5 nil (lambda () (global-tab-line-mode -1))))))
|
||||
|
||||
(global-set-key (kbd "<f3>") 'previous-buffer-with-tab-line)
|
||||
(global-set-key (kbd "<mouse-4>") 'previous-buffer)
|
||||
(global-set-key (kbd "M-[") 'previous-buffer)
|
||||
(global-set-key (kbd "<f4>") 'next-buffer-with-tab-line)
|
||||
(global-set-key (kbd "<mouse-5>") 'next-buffer)
|
||||
(global-set-key (kbd "M-]") 'next-buffer)
|
||||
|
||||
;; 打开tab-line-mode
|
||||
(global-set-key (kbd "C-c u l") 'global-tab-line-mode)
|
||||
(global-set-key (kbd "<mouse-3>") 'global-tab-line-mode)
|
||||
|
||||
;; 关闭主题
|
||||
(global-set-key (kbd "C-c u d") 'disable-theme)
|
||||
(global-set-key (kbd "C-c u f") 'describe-face)
|
||||
(global-set-key (kbd "C-c u r") 'rainbow-mode)
|
||||
|
||||
;; indent-bars
|
||||
(global-set-key (kbd "C-c u b") 'indent-bars-mode)
|
||||
|
||||
;; 打开ibuffer
|
||||
(global-set-key (kbd "C-x C-b") 'ibuffer-other-window)
|
||||
(setq ibuffer-default-sorting-mode 'filename)
|
||||
|
||||
;; 段落导航
|
||||
(global-set-key (kbd "M-p") 'backward-paragraph)
|
||||
(global-set-key (kbd "M-n") 'forward-paragraph)
|
||||
|
||||
;; 中键使用embark打开定义
|
||||
(global-set-key (kbd "<mouse-2>") 'xref-find-definitions)
|
||||
|
||||
;; 使用快速切换到scratch buffer
|
||||
(if *is-mac*
|
||||
(global-set-key (kbd "C-c <f12>") 'scratch-buffer)
|
||||
(global-set-key (kbd "C-c <delete>") 'scratch-buffer))
|
||||
|
||||
;; 调整window
|
||||
(global-set-key (kbd "M-<left>") 'shrink-window-horizontally)
|
||||
(global-set-key (kbd "M-<right>") 'enlarge-window-horizontally)
|
||||
(global-set-key (kbd "M-<up>") 'enlarge-window)
|
||||
(global-set-key (kbd "M-<down>") 'shrink-window)
|
||||
|
||||
;; es-windows
|
||||
(global-set-key (kbd "<f10>") 'esw/swap-two-windows)
|
||||
|
||||
;; popper
|
||||
(global-set-key (kbd "M-`") 'popper-toggle-latest)
|
||||
|
||||
(defun popper-toggle-type-delete-other-window()
|
||||
"Toggle type of popper window and delete other window."
|
||||
(interactive)
|
||||
(popper-toggle-type)
|
||||
(delete-other-windows))
|
||||
(global-set-key (kbd "C-M-=") 'popper-toggle-type-delete-other-window)
|
||||
|
||||
;; crux相关
|
||||
(global-set-key (kbd "C-<backspace>") 'crux-kill-line-backwards) ;; C-DEL kill line backwards
|
||||
(global-set-key (kbd "C-c k") 'comment-line) ;; 快速注释
|
||||
(global-set-key (kbd "C-k") 'crux-smart-kill-line) ;; smart kill line
|
||||
(global-set-key (kbd "C-a") 'crux-move-beginning-of-line) ;; 移动到第一个缩进而非行首
|
||||
(global-set-key (kbd "C-x K") 'crux-kill-other-buffers) ;; 删除除当前buffer之外的buffer
|
||||
|
||||
;; undo-fu
|
||||
(global-set-key (kbd "C-/") 'undo-fu-only-undo)
|
||||
(global-set-key (kbd "C-?") 'undo-fu-only-redo)
|
||||
|
||||
;; vundo
|
||||
(global-set-key (kbd "C-x u") 'vundo)
|
||||
|
||||
;; consult
|
||||
(global-set-key (kbd "C-x b") 'consult-buffer) ;; buffer菜单
|
||||
(global-set-key (kbd "C-s") 'consult-line) ;; 搜索
|
||||
(global-set-key (kbd "C-c s") 'consult-focus-lines) ;; focus line
|
||||
(global-set-key (kbd "C-c i") 'consult-imenu) ;; imenu
|
||||
(global-set-key (kbd "C-c f r") 'consult-recent-file) ;; 最近打开
|
||||
(global-set-key (kbd "C-c f f") 'consult-fd) ;; 调用fd进行目录内搜索
|
||||
(global-set-key (kbd "C-c f g") 'consult-ripgrep) ;; consult-ripgrep
|
||||
(global-set-key (kbd "M-y") 'consult-yank-from-kill-ring) ;; 从kill ring中粘贴
|
||||
(global-set-key (kbd "C-x r b") 'consult-bookmark) ;; 书签菜单，embark中有更多操作
|
||||
(define-key minibuffer-local-map (kbd "C-c C-e") 'embark-export) ;; 把minibuffer结果在一个菜单中显示
|
||||
(global-set-key (kbd "C-c f e") 'consult-flycheck) ;; flycheck菜单
|
||||
(global-set-key (kbd "C-c u t") 'consult-theme) ;; 主题预览
|
||||
|
||||
(if *is-mac*
|
||||
(progn
|
||||
(global-set-key (kbd "C-c f l") 'consult-fd-global)
|
||||
(global-set-key (kbd "C-c f m") 'consult-locate))
|
||||
(global-set-key (kbd "C-c f l") 'consult-locate)
|
||||
(global-set-key (kbd "C-c f m") 'consult-fd-global))
|
||||
|
||||
;; flycheck
|
||||
(global-set-key (kbd "C-c f c") 'global-flycheck-mode)
|
||||
(with-eval-after-load 'flycheck
|
||||
(define-key flycheck-mode-map (kbd "M-{") 'flycheck-previous-error)
|
||||
(define-key flycheck-mode-map (kbd "M-}") 'flycheck-next-error))
|
||||
|
||||
;; avy
|
||||
(global-set-key (kbd "C-M-;") 'avy-goto-char)
|
||||
(global-set-key (kbd "C-M-'") 'avy-goto-word-1)
|
||||
(global-set-key (kbd "M-g g") 'avy-goto-line)
|
||||
|
||||
;; hungry-delete
|
||||
(global-set-key (kbd "C-c DEL") 'hungry-delete-backward) ;; 向后删除到第一个非空字符
|
||||
(global-set-key (kbd "C-c C-<backspace>") 'hungry-delete-forward) ;; 向前删除到第一个非空字符
|
||||
|
||||
;; drag-stuff
|
||||
(global-set-key (kbd "M-P") 'drag-stuff-up)
|
||||
(global-set-key (kbd "M-N") 'drag-stuff-down)
|
||||
|
||||
;; ace-windows
|
||||
(global-set-key (kbd "M-o") 'ace-window)
|
||||
|
||||
;; embark，修饰键之后加C-h可以查看所有指令
|
||||
(global-set-key (kbd "C-;") 'embark-act)
|
||||
|
||||
;; vterm
|
||||
(global-set-key (kbd "C-c v") 'vterm)
|
||||
(with-eval-after-load 'vterm
|
||||
(define-key vterm-mode-map (kbd "M-]") nil)
|
||||
(define-key vterm-mode-map (kbd "C-x C-x") 'vterm-send-C-x))
|
||||
|
||||
;; ;; eshell
|
||||
;; (with-eval-after-load 'eshell
|
||||
;; (define-key eshell-mode-map (kbd "M-n") nil)
|
||||
;; (define-key eshell-mode-map (kbd "M-p") nil)
|
||||
;; (define-key eshell-mode-map (kbd "M-{") 'eshell-previous-matching-input-from-input)
|
||||
;; (define-key eshell-mode-map (kbd "M-}") 'eshell-next-matching-input-from-input))
|
||||
|
||||
;; 打开目录
|
||||
(defun consult-directory-externally (file)
|
||||
"Open FILE externally using the default application of the system."
|
||||
(interactive "fOpen externally: ")
|
||||
(if (and (eq system-type 'windows-nt)
|
||||
(fboundp 'w32-shell-execute))
|
||||
(shell-command-to-string (encode-coding-string (replace-regexp-in-string "/" "\\\\"
|
||||
(format "explorer.exe %s" (file-name-directory (expand-file-name file))))
|
||||
'gbk))
|
||||
(call-process (pcase system-type
|
||||
('darwin "open")
|
||||
('cygwin "cygstart")
|
||||
(_ "xdg-open"))
|
||||
nil 0 nil
|
||||
(file-name-directory (expand-file-name file)))))
|
||||
|
||||
(with-eval-after-load 'embark
|
||||
(define-key embark-file-map (kbd "d") 'consult-directory-externally))
|
||||
|
||||
;;打开当前文件的目录
|
||||
(defun my-open-current-directory ()
|
||||
"Open current directory in default file explorer."
|
||||
(interactive)
|
||||
(consult-directory-externally default-directory))
|
||||
|
||||
(global-set-key (kbd "C-c f d") 'my-open-current-directory)
|
||||
|
||||
;; 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"))
|
||||
;; markdown
|
||||
(with-eval-after-load 'markdown-mode
|
||||
(define-key markdown-mode-map (kbd "M-p") nil)
|
||||
(define-key markdown-mode-map (kbd "M-n") nil))
|
||||
|
||||
;; org-mode相关
|
||||
;; cycle当前subtree
|
||||
(defun org-cycle-current-subtree()
|
||||
"Cycle current subtree."
|
||||
(interactive)
|
||||
(org-back-to-heading)
|
||||
(org-cycle))
|
||||
(global-set-key (kbd "C-<tab>") 'org-cycle-current-subtree)
|
||||
|
||||
;; heading菜单
|
||||
(with-eval-after-load 'org
|
||||
(define-key org-mode-map (kbd "C-c i") 'consult-org-heading))
|
||||
|
||||
;; 用consult检索org-agenda-file标题
|
||||
(global-set-key (kbd "C-c o s") 'consult-org-agenda)
|
||||
|
||||
;; 用ripgrep搜索org-agenda-file
|
||||
(defun my/org-agenda-rifle ()
|
||||
"Jump to org agenda files use consult-ripgrep."
|
||||
(interactive)
|
||||
(consult-ripgrep org-agenda-files))
|
||||
|
||||
(global-set-key (kbd "C-c o g") 'my/org-agenda-rifle)
|
||||
|
||||
;; 存储一个链接
|
||||
(global-set-key (kbd "C-c l") 'org-store-link)
|
||||
|
||||
;; 打开calendar
|
||||
(global-set-key (kbd "C-c o C") 'calendar)
|
||||
|
||||
;; 在calendar中快速打开当天日记
|
||||
(eval-after-load "calendar"
|
||||
(progn
|
||||
'(define-key calendar-mode-map (kbd "j o") 'org-journal-open-entry-for-editing)
|
||||
'(define-key calendar-mode-map (kbd "<RET>") 'org-journal-open-entry-for-editing)))
|
||||
|
||||
;; org-ql
|
||||
(global-set-key (kbd "C-c q s") 'org-ql-search)
|
||||
(global-set-key (kbd "C-c q v") 'org-ql-view)
|
||||
|
||||
;; 日记
|
||||
(defun org-journal-open-current-journal-file-delete-other-window()
|
||||
"Call org-journal-open-current-journal-file and delete other window."
|
||||
(interactive)
|
||||
(org-journal-open-current-journal-file)
|
||||
(delete-other-windows))
|
||||
|
||||
(defun org-journal-new-entry-delete-other-window()
|
||||
"Call org-journal-new-entry and delete other window."
|
||||
(interactive)
|
||||
(org-journal-new-entry nil)
|
||||
(delete-other-windows))
|
||||
|
||||
(global-set-key (kbd "C-c j o") 'org-journal-open-current-journal-file-delete-other-window)
|
||||
(global-set-key (kbd "C-c j n") 'org-journal-new-entry-delete-other-window)
|
||||
|
||||
;; emms
|
||||
(global-set-key (kbd "C-c m n") 'emms-next)
|
||||
(global-set-key (kbd "C-c m p") 'emms-previous)
|
||||
(global-set-key (kbd "C-c m b") 'emms-browser)
|
||||
(global-set-key (kbd "C-c m q") 'emms-stop)
|
||||
(global-set-key (kbd "C-c m S") 'emms-toggle-single-track) ;自动连播开关
|
||||
|
||||
(with-eval-after-load 'embark
|
||||
(define-key embark-file-map (kbd "p") 'emms-play-dired))
|
||||
|
||||
(add-hook 'dired-mode-hook
|
||||
(lambda ()
|
||||
(local-unset-key (kbd "<mouse-2>"))
|
||||
(local-set-key (kbd "<mouse-2>") 'emms-play-dired)
|
||||
(local-set-key (kbd "C-c m a") 'emms-add-dired)))
|
||||
|
||||
(add-hook 'emms-playlist-mode-hook
|
||||
(lambda ()
|
||||
(local-unset-key (kbd "<prior>"))
|
||||
(local-unset-key (kbd "<next>"))
|
||||
(local-set-key (kbd "<prior>") 'emms-previous)
|
||||
(local-set-key (kbd "<next>") 'emms-next)))
|
||||
|
||||
(defun switch-to-emms-playlist()
|
||||
"Switch to emms playlist."
|
||||
(interactive)
|
||||
(switch-to-buffer "*EMMS Playlist*"))
|
||||
(global-set-key (kbd "C-c m l") 'switch-to-emms-playlist)
|
||||
|
||||
(global-set-key (kbd "C-c m d") 'my-emms-play-directory)
|
||||
|
||||
;; dashboard
|
||||
(global-set-key (kbd "C-c D") 'dashboard-open)
|
||||
|
||||
;; dired
|
||||
(with-eval-after-load 'dirvish
|
||||
(global-set-key (kbd "C-c d a") 'dirvish-quick-access)
|
||||
(global-set-key (kbd "C-c d s") 'dirvish-side)
|
||||
(global-set-key (kbd "C-c d h") 'dirvish-history-menu)
|
||||
(global-set-key (kbd "C-x d") 'dired-jump)
|
||||
(global-set-key (kbd "C-x C-j") 'dired)
|
||||
(define-key dired-mode-map (kbd "h") 'dirvish-history-menu)
|
||||
(define-key dired-mode-map (kbd "M-,") 'scroll-other-window-down)
|
||||
(define-key dired-mode-map (kbd "M-.") 'scroll-other-window))
|
||||
|
||||
;; perspective
|
||||
(global-set-key (kbd "C-M-<left>") 'persp-prev)
|
||||
(global-set-key (kbd "C-M-<right>") 'persp-next)
|
||||
(define-key persp-mode-map (kbd "C-c p c") nil)
|
||||
(global-set-key (kbd "C-c p d") 'persp-kill)
|
||||
|
||||
;; gptel
|
||||
(general-def
|
||||
:prefix "C-c g"
|
||||
"o" 'gptel
|
||||
"m" 'gptel-menu
|
||||
"s" 'gptel-send
|
||||
"a" 'gptel-agent
|
||||
"t" 'gptel-tools
|
||||
"g" 'gptel-mode)
|
||||
("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)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user