İşlemeleri karşılaştır
2 İşleme
6a590da9cb
...
8f4fa01304
Yazar | SHA1 | Tarih |
---|---|---|
Daniel - | 8f4fa01304 | |
Daniel - | 1916eb6736 |
|
@ -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.
|
||||
|
@ -749,9 +748,8 @@ in an Org Mode buffer or when the clock is not active."
|
|||
(user-error "Not in Org Mode, aborting"))
|
||||
(unless org-clock-marker
|
||||
(user-error "No clocked-in task, aborting"))
|
||||
(save-mark-and-excursion
|
||||
(org-with-point-at org-clock-marker
|
||||
(org-store-link nil t)))
|
||||
(org-with-point-at org-clock-marker
|
||||
(org-store-link nil t))
|
||||
(pcase-let ((`(,location ,description) (cl-first org-stored-links)))
|
||||
(org-insert-link nil location description)))
|
||||
|
||||
|
|
Yükleniyor…
Yeni konuda referans