鍚堝苟鏈湴浠撳簱鍜岃繙绋嬩粨搴

lisp/init-kbd.el

@@ -125,6 +125,7 @@
 (global-set-key (kbd "C-c f l") 'consult-locate) ;; consult-locate
 (global-set-key (kbd "C-c f g") 'consult-ripgrep) ;; consult-ripgrep
 (global-set-key (kbd "C-c y") 'consult-yank-from-kill-ring) ;; 从kill ring中粘贴
+(global-set-key (kbd "C-x r b") 'consult-bookmark) ;; 书签菜单，embark中有更多操作
 
 ;; hungry-delete
 (global-set-key (kbd "C-c DEL") 'hungry-delete-backward) ;; 向后删除到第一个非空字符
@@ -165,5 +166,13 @@
   (consult-directory-externally default-directory))
 
 (global-set-key (kbd "C-c f d") 'my-open-current-directory)
- 
+
+;; org-mode
+(defun org-cycle-current-subtree()
+  "Cycle current org-mode subtree."
+  (interactive)
+  (org-back-to-heading)
+  (org-cycle))
+(global-set-key (kbd "C-<tab>") 'org-cycle-current-subtree)
+
 (provide 'init-kbd)