recenter during org-process

This commit is contained in:
Benson Chu 2024-03-30 18:06:23 -05:00
parent c3aef50f74
commit 1338d4b344

View file

@ -161,6 +161,7 @@
(setf (alist-get category db) (setf (alist-get category db)
(point-marker)) (point-marker))
nil) nil)
(recenter)
(let* ((category-name (ivy-completing-read "Category? " (sort (mapcar #'car db) #'ivy-string<))) (let* ((category-name (ivy-completing-read "Category? " (sort (mapcar #'car db) #'ivy-string<)))
(category (intern category-name)) (category (intern category-name))
(entry (assoc category db))) (entry (assoc category db)))