admin/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Config: fix my/org-journal-mark-old-todos-as-comment function , keybinding optimize , undo enhance , refactor some code.

Browse Source
This commit is contained in:
User
2026-03-27 07:54:40 +08:00
parent d7d81d8fbf
commit 922ac00f7c
4 changed files with 124 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
lisp/init-kbd.el
View File

@@ -38,6 +38,14 @@
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "<mouse-5>") 'mc/mark-pop)
;; 大小写
(global-set-key (kbd "M-c") 'capitalize-dwim)
(global-set-key (kbd "M-u") 'upcase-dwim)
(global-set-key (kbd "M-l") 'downcase-dwim)
;; pair编辑
(global-set-key (kbd "C-c p d") 'delete-pair)
;; 快速复制当前行
(defun duplicate-and-move-to-next-line()
(interactive)
@@ -91,7 +99,8 @@
(global-set-key (kbd "M-]") 'next-buffer)
;; 打开ibuffer
(global-set-key (kbd "C-x B") '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)
@@ -112,8 +121,8 @@
;; 调整window
(global-set-key (kbd "<f5>") 'shrink-window-horizontally)
(global-set-key (kbd "<f6>") 'enlarge-window-horizontally)
(global-set-key (kbd "<f7>") 'enlarge-window)
(global-set-key (kbd "<f8>") 'shrink-window)
(global-set-key (kbd "C-<f5>") 'enlarge-window)
(global-set-key (kbd "C-<f6>") 'shrink-window)
;; crux相关
(global-set-key (kbd "C-<backspace>") 'crux-kill-line-backwards) ;; C-DEL kill line backwards
@@ -122,6 +131,14 @@
(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)
(global-set-key (kbd "C-c C-/") 'undo-fu-clear-all)
;; 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) ;; 搜索
@@ -139,6 +156,10 @@
(global-set-key (kbd "C-c f l") 'consult-locate)
(global-set-key (kbd "C-c f m") 'consult-fd-global))
;; avy
(global-set-key (kbd "C-M-;") 'avy-goto-char)
(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 d") 'hungry-delete-forward) ;; 向前删除到第一个非空字符
@@ -188,6 +209,10 @@
(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))
;; 存储一个链接
(global-set-key (kbd "C-c l") 'org-store-link)
@@ -196,7 +221,9 @@
;; 在calendar中快速打开当天日记
(eval-after-load "calendar"
'(define-key calendar-mode-map (kbd "j o") 'org-journal-open-entry-for-editing))
(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)))
;; 日记
(global-set-key (kbd "C-c j o") 'org-journal-open-current-journal-file)