dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make custom function to query for locations in Org mode files public 

This function is referenced in some doc string already, and could as well be
public, so let's make it so.  This amounts to removing a dash from it's function
name.
This commit is contained in:
Daniel - 2021-08-08 13:51:52 +02:00
parent ca679b2274
commit 158601f012
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
site-lisp/db-org.el
View File

@ -593,9 +593,9 @@ drawers, will be copied to point."
This can be used to copy checklists from templates to the current
item, which might be an instance of a periodic task.
If POM is not given, use `db/org--get-location' to interactively
If POM is not given, use `db/org-get-location' to interactively
query for it."
(interactive (list (db/org--get-location)))
(interactive (list (db/org-get-location)))
(unless (number-or-marker-p pom)
(user-error "Argument is neither point nor mark: %s" pom))
(let ((body (save-restriction
@ -686,7 +686,7 @@ not."
(t (user-error "Neither ID nor CUSTOM_ID given")))))
(org-search-view nil query)))
(defun db/org--get-location (&optional arg)
(defun db/org-get-location (&optional arg)
"Interactively query for location and return mark.
Searches through the current buffer if that one is associated
@ -745,7 +745,7 @@ item."
(org-with-point-at (org-get-at-bol 'org-hd-marker)
(list (org-id-get) (org-entry-get nil "CUSTOM_ID"))))
(t
(org-with-point-at (db/org--get-location)
(org-with-point-at (db/org-get-location)
(list (org-id-get) (org-entry-get nil "CUSTOM_ID")))))))
(defun db/org-insert-link-to-pom (pom)
@ -784,7 +784,7 @@ variables `org-agenda-files' and
(interactive "P")
(unless (derived-mode-p 'org-mode)
(user-error "Not in Org Mode"))
(db/org-insert-link-to-pom (db/org--get-location arg)))
(db/org-insert-link-to-pom (db/org-get-location arg)))
(defun db/org-add-link-to-current-clock ()
"Insert link to currently clocked-in item at point.