Move point when inserting link to other Org mode item

This is the natural flow, as usually one continues writing after the link, not
before it.
Этот коммит содержится в:
Daniel - 2021-04-01 16:49:45 +02:00
родитель 6a590da9cb
Коммит 1916eb6736
Не найден ключ, соответствующий данной подписи
Идентификатор ключа GPG: 1C7071A75BB72D64
1 изменённых файлов: 3 добавлений и 4 удалений

Просмотреть файл

@ -734,10 +734,9 @@ Use `org-store-link' to save link to `org-stored-links'."
(unless (derived-mode-p 'org-mode)
(user-error "Not in Org Mode"))
(let ((pom (db/org--get-location arg)))
(save-mark-and-excursion
(org-with-point-at pom
(org-store-link nil t))
(insert (apply #'format "[[%s][%s]]" (cl-first org-stored-links))))))
(org-with-point-at pom
(org-store-link nil t))
(insert (apply #'format "[[%s][%s]]" (cl-first org-stored-links)))))
(defun db/org-add-link-to-current-clock ()
"Insert link to currently clocked-in item at point.