|
|
|
|
@ -1598,13 +1598,15 @@ |
|
|
|
|
#+begin_src emacs-lisp |
|
|
|
|
(defhydra wilder/hydra-org-move () |
|
|
|
|
"Move subtree" |
|
|
|
|
("f" org-backward-heading-same-level "move up" :column "Movement") |
|
|
|
|
("s" org-forward-heading-same-level "move down") |
|
|
|
|
("r" outline-up-heading "level down") |
|
|
|
|
("n" org-promote-subtree "promote" :column "Bubbling") |
|
|
|
|
("l" org-demote-subtree "demote") |
|
|
|
|
("p" outline-previous-visible-heading "move up" :column "Movement") |
|
|
|
|
("n" outline-next-visible-heading "move down") |
|
|
|
|
("r" outline-up-heading "level up") |
|
|
|
|
("f" org-promote-subtree "promote" :column "Bubble") |
|
|
|
|
("s" org-demote-subtree "demote") |
|
|
|
|
("i" org-move-subtree-up "bubble up") |
|
|
|
|
("e" org-move-subtree-down "bubble down") |
|
|
|
|
("h" org-archive-subtree "archive" :column "Edit") |
|
|
|
|
("d" kill-line "kill") |
|
|
|
|
("q" nil "cancel")) |
|
|
|
|
(define-key org-mode-map (kbd "C-x SPC") 'wilder/hydra-org-move/body) |
|
|
|
|
#+end_src |
|
|
|
|
|