You are, that code modifies the helm-org-agenda-files-headings function by adding a new action to it. So, try:
M-x helm-org-agenda-files-headings select a heading, press tab, and you should see a 4th, new action to insert an org-id link. John ----------------------------------- Professor John Kitchin Doherty Hall A207F Department of Chemical Engineering Carnegie Mellon University Pittsburgh, PA 15213 412-268-7803 @johnkitchin http://kitchingroup.cheme.cmu.edu On Sun, Aug 2, 2015 at 2:20 PM, Xebar Saram <zelt...@gmail.com> wrote: > Thx john > > i evaled the code yet i cant see it under M-x, am i missing something? > > best > > Z > > On Sat, Aug 1, 2015 at 10:03 PM, John Kitchin <jkitc...@andrew.cmu.edu> > wrote: > >> usually it is pretty easy to add new functions in helm, but it is less >> easy in this case because the source is dynamically generated from a >> function. So, in this case I think we have to just redefine the function >> that generates the source. here is an example that I think makes an id >> link as a new action. >> >> #+BEGIN_SRC emacs-lisp >> (defun helm-org-insert-id-link-to-heading-at-marker (marker) >> (with-current-buffer (marker-buffer marker) >> (let ((file-name (buffer-file-name)) >> (id (save-excursion (goto-char (marker-position marker)) >> (org-id-get-create) >> (org-id-store-link)))) >> >> (with-helm-current-buffer >> (org-insert-link >> file-name id))))) >> >> >> (cl-defun helm-source-org-headings-for-files (filenames >> &optional (min-depth 1) >> (max-depth 8)) >> (helm-build-sync-source "Org Headings" >> :candidates (helm-org-get-candidates filenames min-depth max-depth) >> :action '(("Go to line" . helm-org-goto-marker) >> ("Refile to this heading" . helm-org-heading-refile) >> ("Insert link to this heading" >> . helm-org-insert-link-to-heading-at-marker) >> ("Insert id link to this heading" . >> helm-org-insert-id-link-to-heading-at-marker)))) >> >> #+END_SRC >> Xebar Saram writes: >> >> > Hi again >> > >> > so excited over this had to ask 2 more questions ;-) >> > >> > 1.can that function include/link to org-id (so that it can keep the >> links >> > even if the headers move around in/out of the files) >> > 2.i saw there are 3 options to that helm function. can this be >> customized >> > to add more commands (can really think of which ones know but could see >> > potential in future :)) >> > >> > thx so much John as always you rock ;-) >> > >> > Z >> > >> > On Sat, Aug 1, 2015 at 8:36 PM, Xebar Saram <zelt...@gmail.com> wrote: >> > >> >> John, this is superb! >> >> >> >> thx so much it answers all my needs, what a great find :) >> >> >> >> kind regards >> >> >> >> Z >> >> >> >> On Sat, Aug 1, 2015 at 7:33 PM, John Kitchin <jkitc...@andrew.cmu.edu> >> >> wrote: >> >> >> >>> (helm-org-agenda-files-headings) seems to do this already for all >> >>> headlines in your agenda files. the third action is to insert a link >> to >> >>> the selected headline. >> >>> >> >>> You can use let to temporarily define the org-agenda-files list to >> what >> >>> you want, and just use the (helm-org-agenda-files-headings) command >> for >> >>> non-agenda files. >> >>> >> >>> e.g. >> >>> >> >>> #+BEGIN_SRC emacs-lisp >> >>> (defun insert-heading-link (dir) >> >>> "select a headline from org-files in dir and insert a link to it." >> >>> (interactive (list (read-directory-name "Directory: "))) >> >>> (let ((org-agenda-files (f-entries >> >>> dir >> >>> (lambda (f) >> >>> (string= >> >>> "org" >> >>> (file-name-extension f))) >> >>> t))) >> >>> (helm-org-agenda-files-headings))) >> >>> #+END_SRC >> >>> >> >>> gives me a helm buffer to select headlines from org-files in the >> >>> directory I select and when I press f3 (for the third >> >>> action), it inserts a link to the selected headline. It does the file >> >>> finding recursively, so you might not want to run this on / ;) >> >>> >> >>> You could bind it to a key for easy use. >> >>> >> >>> Xebar Saram writes: >> >>> >> >>> > Thx so much Bernhard >> >>> > >> >>> > this looks really promising. i never had luck with either company or >> >>> > auto-complete t o get it to work reliably (it often stops working >> even >> >>> > though its still in the mod bar). >> >>> > anyway i tried it and added this to my config (after cloning from >> git): >> >>> > >> >>> > (add-to-list 'load-path >> "/home/zeltak/.emacs.g/company-org-headings") >> >>> > (add-hook 'org-mode-hook >> >>> > (lambda () (set (make-local-variable 'company-backends) >> >>> > '((company-org-headings))))) >> >>> > >> >>> > i dont see it completes on org heading, is there any keys i need to >> >>> press >> >>> > or anything else in need to config? does this work only when you >> try to >> >>> > insert a link? >> >>> > >> >>> > best and thx so much, this look awesome >> >>> > >> >>> > P.S have you considered Helm for this as well? >> >>> > >> >>> > best >> >>> > >> >>> > Z >> >>> > >> >>> > >> >>> > >> >>> > On Sat, Aug 1, 2015 at 12:07 PM, Bernhard Pröll < >> bmutbuer...@gmail.com> >> >>> > wrote: >> >>> > >> >>> >> Hi Saram, >> >>> >> >> >>> >> I've been in the same boat and decided to write a company-backend >> for >> >>> >> this purpose. So if you're already using company-mode, this may be >> >>> worth >> >>> >> looking into: >> >>> >> >> >>> >> https://github.com/mutbuerger/company-org-headings >> >>> >> >> >>> >> Keep in mind that I'm in the process of learning Elisp and >> >>> >> there has been little to no testing done on the package. >> Furthermore it >> >>> >> uses org-store-link instead of org-id-store-link. >> >>> >> >> >>> >> Regards, >> >>> >> Bernhard Pröll >> >>> >> >> >>> >> >> >>> >> On Fri, 31. Jul 09:43, Xebar Saram wrote: >> >>> >> >> >>> >>> i also have a similar workflow and would love to hear Dominic if >> you >> >>> >>> found a >> >>> >>> solution for this or if anyone on the list has other suggestions? >> >>> >>> >> >>> >>> best >> >>> >>> >> >>> >>> Z >> >>> >>> >> >>> >>> On Tue, May 12, 2015 at 10:57 PM, Dominic Surano < >> sk8ing...@gmail.com >> >>> > >> >>> >>> wrote: >> >>> >>> >> >>> >>> Hello, >> >>> >>> >> >>> >>> I use org-mode a lot like a wiki so links to other org-mode >> >>> headings >> >>> >>> are >> >>> >>> very common. Currently, I navigate to the heading or pull it >> up in >> >>> an >> >>> >>> agenda view, store the link with C-l, going back to where I >> want to >> >>> >>> insert the link, then insert the link with C-c C-l RET. This >> is a >> >>> bit >> >>> >>> time consuming. >> >>> >>> >> >>> >>> Instead, I would prefer to map a key that allows me to insert a >> >>> link at >> >>> >>> the current point using tab completion similar to org-refile >> (C-c >> >>> C-w). >> >>> >>> Looking through org-id.el, it seems like >> >>> org-id-get-with-outline-path >> >>> >>> completion was designed for this purpose. I tried: >> >>> >>> >> >>> >>> (global-set-key "\C-ci" (lambda () (interactive) >> (org-id-get-with >> >>> >>> outline-path-completion))) >> >>> >>> >> >>> >>> but it didn't work as intended. Anyone have any ideas? >> >>> >>> >> >>> >>> Thanks! >> >>> >>> -D >> >>> >>> >> >>> >>> For reference, I have the following set in my configuration: >> >>> >>> >> >>> >>> ;; Use global IDs >> >>> >>> (require 'org-id) >> >>> >>> (setq org-id-link-to-org-use-id t) >> >>> >>> >> >>> >>> ;; Update ID file .org-id-locations on startup >> >>> >>> (org-id-update-id-locations) >> >>> >>> >> >>> >>> ;; Targets include this file and any file contributing to the >> >>> agenda - >> >>> >>> up to 9 levels deep >> >>> >>> (setq org-refile-targets (quote ((nil :maxlevel . 9) >> >>> >>> (org-agenda-files :maxlevel . >> >>> 9)))) >> >>> >>> (setq org-refile-use-outline-path 'file) >> >>> >>> (setq org-outline-path-complete-in-steps t) >> >>> >>> (setq org-refile-allow-creating-parent-nodes t) >> >>> >>> >> >>> >>> >> >>> >>> >> >>> >>> >> >>> >>> >> >>> >> >>> -- >> >>> Professor John Kitchin >> >>> Doherty Hall A207F >> >>> Department of Chemical Engineering >> >>> Carnegie Mellon University >> >>> Pittsburgh, PA 15213 >> >>> 412-268-7803 >> >>> @johnkitchin >> >>> http://kitchingroup.cheme.cmu.edu >> >>> >> >> >> >> >> >> -- >> Professor John Kitchin >> Doherty Hall A207F >> Department of Chemical Engineering >> Carnegie Mellon University >> Pittsburgh, PA 15213 >> 412-268-7803 >> @johnkitchin >> http://kitchingroup.cheme.cmu.edu >> > >
