Re: Inserting org-mode heading links the org-refile way
Hi, Here's an example of how to create an ivy prompt that inserts links. It isn't exactly what you're looking for, as it doesn't hijack `org-insert-link` functionality, nor does it specifically use `org-refile-target-verify-function` to do filtering. Instead, this uses org-ql to select TODO headers with a level of at least 3. org-ql will cache queries in a manner similar to the initial collecting of org-refile targets. You can add other filter criteria using org-ql's sexp query syntax. You can also replace the `(org-agenda-files)` to be some expression that returns the specific list of files you're interested in. (defun jmm/org-ql-ivy-prompt-for-link () "Select a todo header with ivy and insert its link" (interactive) (ivy-read "Link:" (->> (org-ql-select (org-agenda-files) '(and (todo) (level >= 3) (not (tags "ARCHIVE"))) :action 'element-with-markers) (-map #'org-ql-view--format-element)) :action (lambda (x) (let ((org-id-link-to-org-use-id t)) ; Add an ID if it doesn't exist (insert (org-with-point-at (get-text-property 0 'org-hd-marker x) (org-store-link nil))) Note: This also uses dash.el functions/macros. You can replace that as needed. Best, Josh Daryl Manning writes: > This looks impressive, and is *similar* to the effect I am going for, but > what I am looking at is intercepting the `org-insert-link` functionality > (or replacing it) with the ability to insert a link from the global > filter-and-select interface via ivy for `org-refile`. So, in other words, > global access to the (say 3 levels down) headings and files available > through the ivy interface (which further allows me to filter that down). > > This would give me the ability to arbitrarily add links across all files > (and particularly handy with org-contact for adding in links in cal entries > for meetings). Since the viy interface seems to work fine for refiling > tasks (except for initial load of refile targets), it seems it'd be > sufficiently performant. > > Daryl.
Re: Inserting org-mode heading links the org-refile way
> This looks impressive, and is *similar* to the effect I am going for, but > what I am looking at is intercepting the `org-insert-link` functionality > (or replacing it) with the ability to insert a link from the global > filter-and-select interface via ivy for `org-refile`. So, in other words, > global access to the (say 3 levels down) headings and files available > through the ivy interface (which further allows me to filter that down). I feel that I am missing something. Probably, because I am not using ivy. For helm (which I am using), org-refile-get-location provides filter-and-select interface automatically. So, I can get on-the-fly filtering for id: link automatically. I just type `C-c C-l id: RET` and filter the candidates just like in org-refile. Do you need to call some special function to use ivy with org-refile? If so, just replace org-refile-get-location in my code with your ivy version. If you want to go straight into inserting the link without a need to type `C-c C-l id: RET`, you may just bind (insert "[[" (org-id-link-complete) "]]") to key binding of your choice. Best, Ihor Daryl Manning writes: > This looks impressive, and is *similar* to the effect I am going for, but > what I am looking at is intercepting the `org-insert-link` functionality > (or replacing it) with the ability to insert a link from the global > filter-and-select interface via ivy for `org-refile`. So, in other words, > global access to the (say 3 levels down) headings and files available > through the ivy interface (which further allows me to filter that down). > > This would give me the ability to arbitrarily add links across all files > (and particularly handy with org-contact for adding in links in cal entries > for meetings). Since the viy interface seems to work fine for refiling > tasks (except for initial load of refile targets), it seems it'd be > sufficiently performant. > > Daryl. > > > On Mon, May 4, 2020 at 1:14 PM Ihor Radchenko wrote: > >> If I understand you correctly, the following code should achieve what >> you want. The code reuses org-refile interface to complete id: links. >> >> (defun org-id-prompt-id () >> "Prompt for the id during completion of id: link." >> (let ((org-refile-history nil) >> (org-refile-cache nil) >> (org-refile-target-verify-function nil)) >> (let ((prompt-ans (org-refile-get-location "Select org entry"))) >> (prog1 >> (or (org-id-get (seq-find #'markerp >> prompt-ans) >> 'create) >> (user-error "Cannot find ID of the entry: %s" prompt-ans)) >> (setq org-id-history org-refile-history) >> (setq org-id-cache org-refile-cache) >> >> >> (defun org-id-link-complete ( arg) >> "Completion function for id: link." >> (let* ((id (org-id-prompt-id))) >> (format "id:%s" id))) >> >> (defun org-id-link-desk (link desk) >> "Description function for id: link." >> (or desk >> (let ((id (cadr (split-string link ":" >> (org-with-point-at (org-id-find id 'marker) >> (org-get-heading 'strip 'all 'the 'extra) >> >> (org-link-set-parameters "id" >> :complete #'org-id-link-complete >> :desk #'org-id-link-desk) >> >> >> >> Daryl Manning writes: >> >> > I use ivy and org-refile to process my inbox.org file hyper-efficiently >> and >> > get things into my GTD system. >> > >> > In a recent discussion on org-roam (which nicely links to files in a nice >> > wiki-like manner) it occurred to me if I had a similar interface to >> search >> > for headlines in the manner of org-refile and then insert them >> effortlessly >> > without having to switch to a doc and copy/store them and then switching >> > back to my doc and inserting them, I'd be a happy camper. >> > >> > Is there a package/functions that does/do that in some fashion (say >> > configurable to avoid link sprawl so say, like 3 heading levels down and >> to >> > files in specific directories like deft). Googling did not give joy, >> though >> > I noticed someone had used a similar approach for addressing link >> *within* >> > a document, but not quite there (swiper and worf combo and an ivy-org-ref >> > package looked interesting). >> > >> > (I always worry when I post these questions that someone is going to just >> > say "but did you not know about M-x org-insert-link-like-ivy-with-refile" >> > so go gentle on me if I've missed something obvious. It seems I often do. >> > This weekend in particular I've added on a whole bunch of small but in >> the >> > aggregate, large productivity improvements to my emacs setup which I >> > approached solving the wrong way until I asked and someone mentioned >> > another way to do things, so ). >> > >> > thanks, >> > Daryl. >> >> -- >> Ihor Radchenko, >> PhD, >> Center for Advancing Materials Performance from the Nanoscale (CAMP-nano) >> State Key Laboratory for
Re: Inserting org-mode heading links the org-refile way
This looks impressive, and is *similar* to the effect I am going for, but what I am looking at is intercepting the `org-insert-link` functionality (or replacing it) with the ability to insert a link from the global filter-and-select interface via ivy for `org-refile`. So, in other words, global access to the (say 3 levels down) headings and files available through the ivy interface (which further allows me to filter that down). This would give me the ability to arbitrarily add links across all files (and particularly handy with org-contact for adding in links in cal entries for meetings). Since the viy interface seems to work fine for refiling tasks (except for initial load of refile targets), it seems it'd be sufficiently performant. Daryl. On Mon, May 4, 2020 at 1:14 PM Ihor Radchenko wrote: > If I understand you correctly, the following code should achieve what > you want. The code reuses org-refile interface to complete id: links. > > (defun org-id-prompt-id () > "Prompt for the id during completion of id: link." > (let ((org-refile-history nil) > (org-refile-cache nil) > (org-refile-target-verify-function nil)) > (let ((prompt-ans (org-refile-get-location "Select org entry"))) > (prog1 > (or (org-id-get (seq-find #'markerp > prompt-ans) > 'create) > (user-error "Cannot find ID of the entry: %s" prompt-ans)) > (setq org-id-history org-refile-history) > (setq org-id-cache org-refile-cache) > > > (defun org-id-link-complete ( arg) > "Completion function for id: link." > (let* ((id (org-id-prompt-id))) > (format "id:%s" id))) > > (defun org-id-link-desk (link desk) > "Description function for id: link." > (or desk > (let ((id (cadr (split-string link ":" > (org-with-point-at (org-id-find id 'marker) > (org-get-heading 'strip 'all 'the 'extra) > > (org-link-set-parameters "id" > :complete #'org-id-link-complete > :desk #'org-id-link-desk) > > > > Daryl Manning writes: > > > I use ivy and org-refile to process my inbox.org file hyper-efficiently > and > > get things into my GTD system. > > > > In a recent discussion on org-roam (which nicely links to files in a nice > > wiki-like manner) it occurred to me if I had a similar interface to > search > > for headlines in the manner of org-refile and then insert them > effortlessly > > without having to switch to a doc and copy/store them and then switching > > back to my doc and inserting them, I'd be a happy camper. > > > > Is there a package/functions that does/do that in some fashion (say > > configurable to avoid link sprawl so say, like 3 heading levels down and > to > > files in specific directories like deft). Googling did not give joy, > though > > I noticed someone had used a similar approach for addressing link > *within* > > a document, but not quite there (swiper and worf combo and an ivy-org-ref > > package looked interesting). > > > > (I always worry when I post these questions that someone is going to just > > say "but did you not know about M-x org-insert-link-like-ivy-with-refile" > > so go gentle on me if I've missed something obvious. It seems I often do. > > This weekend in particular I've added on a whole bunch of small but in > the > > aggregate, large productivity improvements to my emacs setup which I > > approached solving the wrong way until I asked and someone mentioned > > another way to do things, so ). > > > > thanks, > > Daryl. > > -- > Ihor Radchenko, > PhD, > Center for Advancing Materials Performance from the Nanoscale (CAMP-nano) > State Key Laboratory for Mechanical Behavior of Materials, Xi'an Jiaotong > University, Xi'an, China > Email: yanta...@gmail.com, ihor_radche...@alumni.sutd.edu.sg >
Re: Inserting org-mode heading links the org-refile way
Le lun. 05/04/20 mai 2020à 03:11:57 , Ihor Radchenko
a envoyé ce message:
> Can you try the following simplified code?
Hello,
I confirm that the simplified code below does not break the code of my
setup and that org-links for gnus work. Thanks !
> (defun org-id-prompt-id ()
> "Prompt for the id during completion of id: link."
> (let ((org-refile-history nil)
> (org-refile-cache nil)
> (org-refile-target-verify-function nil))
> (let ((prompt-ans (org-refile-get-location "Select org entry")))
> (prog1
> (or (org-id-get (seq-find #'markerp
> prompt-ans)
> 'create)
> (user-error "Cannot find ID of the entry: %s" prompt-ans))
> (setq org-id-history org-refile-history)
> (setq org-id-cache org-refile-cache)
>
> (defun org-id-link-complete ( arg)
> "Completion function for id: link."
> (let* ((id (org-id-prompt-id)))
> (format "id:%s" id)))
>
> (org-link-set-parameters "id"
>:complete #'org-id-link-complete)
>
> P.S. You can use %^t instead of %(org-insert-time-stamp ...).
>
> From org-capture-templates docstring:
>> %^t Like %t, but prompt for date. Similarly %^T, %^u, %^U.
>> You may define a prompt like: %^{Please specify birthday}t.
>> The default date is that of %t, see above.
>
> Best,
> Ihor
Re: Inserting org-mode heading links the org-refile way
> Always interested in org-links, I have tested your code. It will maybe
> interesting that I point out that, even if I am unable to understand
> why, I have checked that it breaks the function for org-linking from
> emails in gnus, at least in my setup i.e. with the following code:
It is also not very clear for me what could be broken in your setup.
One guess would be that I use non-standard :desk link property to setup
default link description. That property actually need some extra custom
code to work. I imagine that it might somehow interfere with the
existing org code when set.
Can you try the following simplified code?
(defun org-id-prompt-id ()
"Prompt for the id during completion of id: link."
(let ((org-refile-history nil)
(org-refile-cache nil)
(org-refile-target-verify-function nil))
(let ((prompt-ans (org-refile-get-location "Select org entry")))
(prog1
(or (org-id-get (seq-find #'markerp
prompt-ans)
'create)
(user-error "Cannot find ID of the entry: %s" prompt-ans))
(setq org-id-history org-refile-history)
(setq org-id-cache org-refile-cache)
(defun org-id-link-complete ( arg)
"Completion function for id: link."
(let* ((id (org-id-prompt-id)))
(format "id:%s" id)))
(org-link-set-parameters "id"
:complete #'org-id-link-complete)
P.S. You can use %^t instead of %(org-insert-time-stamp ...).
>From org-capture-templates docstring:
> %^t Like %t, but prompt for date. Similarly %^T, %^u, %^U.
> You may define a prompt like: %^{Please specify birthday}t.
> The default date is that of %t, see above.
Best,
Ihor
Joseph Vidal-Rosset writes:
> Le lun. 05/04/20 mai 2020à 01:09:53 , Ihor Radchenko
> a envoyé ce message:
>> If I understand you correctly, the following code should achieve what
>> you want. The code reuses org-refile interface to complete id: links.
>>
>> (defun org-id-prompt-id ()
>> "Prompt for the id during completion of id: link."
>> (let ((org-refile-history nil)
>> (org-refile-cache nil)
>> (org-refile-target-verify-function nil))
>> (let ((prompt-ans (org-refile-get-location "Select org entry")))
>> (prog1
>>(or (org-id-get (seq-find #'markerp
>> prompt-ans)
>>'create)
>> (user-error "Cannot find ID of the entry: %s" prompt-ans))
>> (setq org-id-history org-refile-history)
>> (setq org-id-cache org-refile-cache)
>>
>> (defun org-id-link-complete ( arg)
>> "Completion function for id: link."
>> (let* ((id (org-id-prompt-id)))
>> (format "id:%s" id)))
>>
>> (defun org-id-link-desk (link desk)
>> "Description function for id: link."
>> (or desk
>> (let ((id (cadr (split-string link ":"
>> (org-with-point-at (org-id-find id 'marker)
>>(org-get-heading 'strip 'all 'the 'extra)
>>
>> (org-link-set-parameters "id"
>> :complete #'org-id-link-complete
>> :desk #'org-id-link-desk)
>
> Hi,
>
> Always interested in org-links, I have tested your code. It will maybe
> interesting that I point out that, even if I am unable to understand
> why, I have checked that it breaks the function for org-linking from
> emails in gnus, at least in my setup i.e. with the following code:
>
> (setq org-agenda-custom-commands
> '(("t" "Agenda and Email-links tasks"
> ((agenda "")
> (tags-todo "email")
> (tags "link")))
> ))
>
> ;; (global-set-key (kbd " c") 'org-capture)
> ;; capture todo items using C-c c t
> ;; (define-key global-map (kbd "C-c c") 'org-capture)
> (setq org-capture-templates
> '(
> ("t" "todo" entry (file+headline "~/Dropbox/Orgzly/todo.org" "Tasks")
> "* TODO [#A] %?\n
> [[~/Dropbox/Orgzly/links.org::%(org-insert-time-stamp (org-read-date nil t
> \"%:date\"))]] \n* %(org-insert-time-stamp (org-read-date nil t \"%:date\"))
> %a "
>)
> ("n" ; key
>"note" ;name
>entry;type
>(file+headline "~/Dropbox/Orgzly/notes.org" "Notes") ;target
> "* NOTE du %(org-insert-time-stamp (org-read-date nil t \"%:date\"))
> \n Voir %a " ; template
>)
> ("H" "HOWTO: C-c C-s : schedule ; C-c C-d : deadline ; C-c C-w :
> org-refile at a point; last: C-c C-t : DONE - F11-a: org-archive"
> entry (file+headline "" "") ""
>)
> )
> )
> ;; Merci à Bob Newell , avec ce code, le lien de l'email est modifié
> correctement dès l'usage de la fonction refile C-c C-w
> (defun jr/fix-the-link ( args)
> (interactive)
> (save-excursion
>(find-file "~/Dropbox/Orgzly/todo.org")
>(goto-char (point-min))
>(while (search-forward "gnus:INBOX#" nil t)
> (replace-match "gnus:\\[Gmail\\]/Tous les
Re: Inserting org-mode heading links the org-refile way
Le lun. 05/04/20 mai 2020à 01:09:53 , Ihor Radchenko
a envoyé ce message:
> If I understand you correctly, the following code should achieve what
> you want. The code reuses org-refile interface to complete id: links.
>
> (defun org-id-prompt-id ()
> "Prompt for the id during completion of id: link."
> (let ((org-refile-history nil)
> (org-refile-cache nil)
> (org-refile-target-verify-function nil))
> (let ((prompt-ans (org-refile-get-location "Select org entry")))
> (prog1
> (or (org-id-get (seq-find #'markerp
> prompt-ans)
> 'create)
> (user-error "Cannot find ID of the entry: %s" prompt-ans))
> (setq org-id-history org-refile-history)
> (setq org-id-cache org-refile-cache)
>
> (defun org-id-link-complete ( arg)
> "Completion function for id: link."
> (let* ((id (org-id-prompt-id)))
> (format "id:%s" id)))
>
> (defun org-id-link-desk (link desk)
> "Description function for id: link."
> (or desk
> (let ((id (cadr (split-string link ":"
> (org-with-point-at (org-id-find id 'marker)
> (org-get-heading 'strip 'all 'the 'extra)
>
> (org-link-set-parameters "id"
>:complete #'org-id-link-complete
> :desk #'org-id-link-desk)
Hi,
Always interested in org-links, I have tested your code. It will maybe
interesting that I point out that, even if I am unable to understand
why, I have checked that it breaks the function for org-linking from
emails in gnus, at least in my setup i.e. with the following code:
(setq org-agenda-custom-commands
'(("t" "Agenda and Email-links tasks"
((agenda "")
(tags-todo "email")
(tags "link")))
))
;; (global-set-key (kbd " c") 'org-capture)
;; capture todo items using C-c c t
;; (define-key global-map (kbd "C-c c") 'org-capture)
(setq org-capture-templates
'(
("t" "todo" entry (file+headline "~/Dropbox/Orgzly/todo.org" "Tasks")
"* TODO [#A] %?\n
[[~/Dropbox/Orgzly/links.org::%(org-insert-time-stamp (org-read-date nil t
\"%:date\"))]] \n* %(org-insert-time-stamp (org-read-date nil t \"%:date\")) %a
"
)
("n" ; key
"note" ;name
entry;type
(file+headline "~/Dropbox/Orgzly/notes.org" "Notes") ;target
"* NOTE du %(org-insert-time-stamp (org-read-date nil t \"%:date\"))
\n Voir %a " ; template
)
("H" "HOWTO: C-c C-s : schedule ; C-c C-d : deadline ; C-c C-w :
org-refile at a point; last: C-c C-t : DONE - F11-a: org-archive"
entry (file+headline "" "") ""
)
)
)
;; Merci à Bob Newell , avec ce code, le lien de l'email est modifié
correctement dès l'usage de la fonction refile C-c C-w
(defun jr/fix-the-link ( args)
(interactive)
(save-excursion
(find-file "~/Dropbox/Orgzly/todo.org")
(goto-char (point-min))
(while (search-forward "gnus:INBOX#" nil t)
(replace-match "gnus:\\[Gmail\\]/Tous les messages#"))
(save-buffer)))
(advice-add 'org-capture-finalize :after #'jr/fix-the-link)
Best wishes,
Jo.
Re: Inserting org-mode heading links the org-refile way
If I understand you correctly, the following code should achieve what you want. The code reuses org-refile interface to complete id: links. (defun org-id-prompt-id () "Prompt for the id during completion of id: link." (let ((org-refile-history nil) (org-refile-cache nil) (org-refile-target-verify-function nil)) (let ((prompt-ans (org-refile-get-location "Select org entry"))) (prog1 (or (org-id-get (seq-find #'markerp prompt-ans) 'create) (user-error "Cannot find ID of the entry: %s" prompt-ans)) (setq org-id-history org-refile-history) (setq org-id-cache org-refile-cache) (defun org-id-link-complete ( arg) "Completion function for id: link." (let* ((id (org-id-prompt-id))) (format "id:%s" id))) (defun org-id-link-desk (link desk) "Description function for id: link." (or desk (let ((id (cadr (split-string link ":" (org-with-point-at (org-id-find id 'marker) (org-get-heading 'strip 'all 'the 'extra) (org-link-set-parameters "id" :complete #'org-id-link-complete :desk #'org-id-link-desk) Daryl Manning writes: > I use ivy and org-refile to process my inbox.org file hyper-efficiently and > get things into my GTD system. > > In a recent discussion on org-roam (which nicely links to files in a nice > wiki-like manner) it occurred to me if I had a similar interface to search > for headlines in the manner of org-refile and then insert them effortlessly > without having to switch to a doc and copy/store them and then switching > back to my doc and inserting them, I'd be a happy camper. > > Is there a package/functions that does/do that in some fashion (say > configurable to avoid link sprawl so say, like 3 heading levels down and to > files in specific directories like deft). Googling did not give joy, though > I noticed someone had used a similar approach for addressing link *within* > a document, but not quite there (swiper and worf combo and an ivy-org-ref > package looked interesting). > > (I always worry when I post these questions that someone is going to just > say "but did you not know about M-x org-insert-link-like-ivy-with-refile" > so go gentle on me if I've missed something obvious. It seems I often do. > This weekend in particular I've added on a whole bunch of small but in the > aggregate, large productivity improvements to my emacs setup which I > approached solving the wrong way until I asked and someone mentioned > another way to do things, so ). > > thanks, > Daryl. -- Ihor Radchenko, PhD, Center for Advancing Materials Performance from the Nanoscale (CAMP-nano) State Key Laboratory for Mechanical Behavior of Materials, Xi'an Jiaotong University, Xi'an, China Email: yanta...@gmail.com, ihor_radche...@alumni.sutd.edu.sg
Inserting org-mode heading links the org-refile way
I use ivy and org-refile to process my inbox.org file hyper-efficiently and get things into my GTD system. In a recent discussion on org-roam (which nicely links to files in a nice wiki-like manner) it occurred to me if I had a similar interface to search for headlines in the manner of org-refile and then insert them effortlessly without having to switch to a doc and copy/store them and then switching back to my doc and inserting them, I'd be a happy camper. Is there a package/functions that does/do that in some fashion (say configurable to avoid link sprawl so say, like 3 heading levels down and to files in specific directories like deft). Googling did not give joy, though I noticed someone had used a similar approach for addressing link *within* a document, but not quite there (swiper and worf combo and an ivy-org-ref package looked interesting). (I always worry when I post these questions that someone is going to just say "but did you not know about M-x org-insert-link-like-ivy-with-refile" so go gentle on me if I've missed something obvious. It seems I often do. This weekend in particular I've added on a whole bunch of small but in the aggregate, large productivity improvements to my emacs setup which I approached solving the wrong way until I asked and someone mentioned another way to do things, so ). thanks, Daryl.
