tim.mccarthy/dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update move-to-beginnings to work with org headers

Browse Source
This commit is contained in:
Tim McCarthy
2024-04-18 13:43:35 -07:00
parent 8bc3bf8e1c
commit 1f782981fe
1 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
thoom-emacs/modules/thoom-editing.el
View File

@@ -1,17 +1,19 @@
(provide 'thoom-editing) (provide 'thoom-editing)
;; TODO Support org headings and comments ;; TODO Support comments
(defun thoom/move-to-beginnings () (defun move-to-beginnings ()
"Move between the two beginnings of a line: The very beginning, "Move between possible beginnings of a line:
and the first non-whitespace character." The very beginning, the start of an org headline, and the first non-whitespace character."
(interactive "^") (interactive "^")
(if (bolp) (cond
(back-to-indentation) ((not (bolp))
(move-beginning-of-line 1))) (move-beginning-of-line 1))
((org-at-heading-p)
(search-forward-regexp "*+ *" nil t))
(t (back-to-indentation))))
(use-package emacs (use-package emacs
:bind (("C-a" . thoom/move-to-beginnings))) :bind (("C-a" . move-to-beginnings)))
;; Allow movement during isearch ;; Allow movement during isearch
;; C/M-v move to next/previous match not currently visible ;; C/M-v move to next/previous match not currently visible