1
0
Fork 0

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.
Esse commit está contido em:
Daniel - 2021-04-01 16:49:45 +02:00
commit 1916eb6736
Nenhuma chave conhecida encontrada para esta assinatura no banco de dados
ID da chave GPG: 1C7071A75BB72D64
1 arquivos alterados com 3 adições e 4 exclusões

Ver arquivo

@ -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.