scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-17 04:20:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed demoting and promoting with c-left|right

Browse Source
This commit is contained in:
Thomas von Dein
2023-06-08 19:17:14 +02:00
parent 429a503dc0
commit 89cc82061d
1 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/init-org.el
View File

@@ -91,6 +91,21 @@ down and unfold it, otherwise jump paragraph as usual."
(org-cycle)) (org-cycle))
(forward-paragraph))) (forward-paragraph)))
;; TODO: implement c-<left+right> to demote+promote again
(defun tvd-org-demote-heading()
"Demote heading if on a heading."
(interactive)
(if (org-at-heading-p)
(org-demote-subtree)
(call-interactively 'right-word)))
(defun tvd-org-promote-heading()
"Promote heading if on a heading."
(interactive)
(if (org-at-heading-p)
(org-promote-subtree)
(call-interactively 'left-word)))
;; org-mode specific config, after load ;; org-mode specific config, after load
(eval-after-load "org" (eval-after-load "org"
'(progn '(progn
@@ -177,7 +192,8 @@ down and unfold it, otherwise jump paragraph as usual."
(local-set-key (kbd "<C-down>") 'tvd-org-heading-down) (local-set-key (kbd "<C-down>") 'tvd-org-heading-down)
;; move word left or heading up, depending where point is ;; move word left or heading up, depending where point is
(local-set-key (kbd "<C-left>") 'tvd-org-left-or-level-up) (local-set-key (kbd "<C-right>") 'tvd-org-demote-heading)
(local-set-key (kbd "<C-left>") 'tvd-org-promote-heading)
;; use nicer bullets ;; use nicer bullets
(when (fboundp 'org-bullets-mode) (when (fboundp 'org-bullets-mode)