Org mode links for helm

Org mode links for helm

[Thomas S. Dye]

Aloha all,

Has anyone implemented a helm interface for Org-mode #+name lines?  I
think it might be useful for inserting cross reference links.

All the best,
Tom

-- 
T.S. Dye & Colleagues, Archaeologists
735 Bishop St, Suite 315, Honolulu, HI 96813
Tel: 808-529-0866, Fax: 808-529-0884
http://www.tsdye.com

Re: Org mode links for helm

[Bastien]

Hi Thomas,

tsd@tsdye.com (Thomas S. Dye) writes:

> Has anyone implemented a helm interface for Org-mode #+name lines?  I
> think it might be useful for inserting cross reference links.

did you try

https://github.com/emacs-helm/helm/blob/master/helm-org.el

?

Maybe the authors can help I guess.

All best,

-- 
 Bastien

Re: Org mode links for helm

[Sebastien Vauban]

Bastien wrote:
> tsd-P0awH739Ni4AvxtiuMwx3w@public.gmane.org (Thomas S. Dye) writes:
>
>> Has anyone implemented a helm interface for Org-mode #+name lines?  I
>> think it might be useful for inserting cross reference links.
>
> did you try
> https://github.com/emacs-helm/helm/blob/master/helm-org.el ?
>
> Maybe the authors can help I guess.

The author, Thierry Volpiatto, does not support Helm-Org anymore, as
told in http://article.gmane.org/gmane.emacs.helm.user/617.

BTW, it is only for the Org headlines, not for Org code block names.

Though, this particular question has already gotten tentatives of
answers, see http://lists.gnu.org/archive/html/emacs-orgmode/2010-07/msg00712.html.

I remember (thanks to Org!) having written the following in my .emacs file:

#+begin_src emacs-lisp
  ;; extension of Imenu
  (when (and
         ;; `org-babel' has been loaded
         (fboundp 'org-babel-execute-src-block)

         ;; `imenu' has been loaded
         (fboundp 'try-to-add-imenu))

    (setq org-src-blocks-imenu-generic-expression
          `(("Snippets" ,org-babel-src-name-w-name-regexp 2)))

    (add-hook 'org-mode-hook
              (lambda ()
                (setq imenu-generic-expression
                      org-src-blocks-imenu-generic-expression))))
#+end_src

... but I never saw any name of code chunk in the "IMenu" menu.
I only saw the headings of my current Org file.

Don't know what's wrong.

Best regards,
  Seb

-- 
Sebastien Vauban

Re: Org mode links for helm

[Thomas S. Dye]

Aloha Seb,

Sebastien Vauban <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:

> Bastien wrote:
>> tsd-P0awH739Ni4AvxtiuMwx3w@public.gmane.org (Thomas S. Dye) writes:
>>
>>> Has anyone implemented a helm interface for Org-mode #+name lines?  I
>>> think it might be useful for inserting cross reference links.
>>
>> did you try
>> https://github.com/emacs-helm/helm/blob/master/helm-org.el ?
>>
>> Maybe the authors can help I guess.
>
> The author, Thierry Volpiatto, does not support Helm-Org anymore, as
> told in http://article.gmane.org/gmane.emacs.helm.user/617.
>
> BTW, it is only for the Org headlines, not for Org code block names.
>
> Though, this particular question has already gotten tentatives of
> answers, see http://lists.gnu.org/archive/html/emacs-orgmode/2010-07/msg00712.html.
>
> I remember (thanks to Org!) having written the following in my .emacs file:
>
> #+begin_src emacs-lisp
>   ;; extension of Imenu
>   (when (and
>          ;; `org-babel' has been loaded
>          (fboundp 'org-babel-execute-src-block)
>
>          ;; `imenu' has been loaded
>          (fboundp 'try-to-add-imenu))
>
>     (setq org-src-blocks-imenu-generic-expression
>           `(("Snippets" ,org-babel-src-name-w-name-regexp 2)))
>
>     (add-hook 'org-mode-hook
>               (lambda ()
>                 (setq imenu-generic-expression
>                       org-src-blocks-imenu-generic-expression))))
> #+end_src
>
> ... but I never saw any name of code chunk in the "IMenu" menu.
> I only saw the headings of my current Org file.

Thanks for this helpful information.  I didn't know about imenu, but it
appears to provide much of the functionality I'm after.

All the best,
Tom

-- 
Thomas S. Dye
http://www.tsdye.com

Re: Org mode links for helm

[Thomas S. Dye]

Aloha Bastien,

Bastien <bzg@gnu.org> writes:

> Hi Thomas,
>
> tsd@tsdye.com (Thomas S. Dye) writes:
>
>> Has anyone implemented a helm interface for Org-mode #+name lines?  I
>> think it might be useful for inserting cross reference links.
>
> did you try
>
> https://github.com/emacs-helm/helm/blob/master/helm-org.el
>
> ?

This code, adapted from some code I found on John Kitchin's blog, does
what I want.

** Cross references
#+name: tsd-xref
#+begin_src emacs-lisp
(defun tsd-get-names-and-labels ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (let ((matches '()))
      (while (re-search-forward "\\#\\+\\(name\\|label\\):\\s-\\(.*\\)" (point-max) t)
        (add-to-list 'matches (match-string-no-properties 2) t))
      matches)))

(defun tsd-org-insert-crossref-link (&optional arg)
  (interactive (list (completing-read "insert: " (tsd-get-names-and-labels))))
  (insert (format "[[%s]]" arg)))
#+end_src

Now, when I'm referring to something I've labeled or named, I call
tsd-org-insert-crossref-link and helm works on a list of labels and
names defined in the buffer.

It's almost as convenient as using Carsten's reftex mode when writing in
LaTeX.

All the best,
Tom
-- 
Thomas S. Dye
http://www.tsdye.com

Re: Org mode links for helm

[John Kitchin]

[-- Attachment #1: Type: text/plain, Size: 2011 bytes --]

nice. I have similar code in org-ref  for a ref links to labels, but it
doesn't have #+name in it yet, but it does do table names. You might find
the function org-label-store-link (
https://github.com/jkitchin/jmax/blob/master/org-ref.org#label)
interesting, so you can use C-c l and C-c C-l to put your links in. I think
you could do something like that with #+name.



John

-----------------------------------
John Kitchin
Associate Professor
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
http://kitchingroup.cheme.cmu.edu



On Sat, May 24, 2014 at 11:32 PM, Thomas S. Dye <tsd@tsdye.com> wrote:

> Aloha Bastien,
>
> Bastien <bzg@gnu.org> writes:
>
> > Hi Thomas,
> >
> > tsd@tsdye.com (Thomas S. Dye) writes:
> >
> >> Has anyone implemented a helm interface for Org-mode #+name lines?  I
> >> think it might be useful for inserting cross reference links.
> >
> > did you try
> >
> > https://github.com/emacs-helm/helm/blob/master/helm-org.el
> >
> > ?
>
> This code, adapted from some code I found on John Kitchin's blog, does
> what I want.
>
> ** Cross references
> #+name: tsd-xref
> #+begin_src emacs-lisp
> (defun tsd-get-names-and-labels ()
>   (interactive)
>   (save-excursion
>     (goto-char (point-min))
>     (let ((matches '()))
>       (while (re-search-forward "\\#\\+\\(name\\|label\\):\\s-\\(.*\\)"
> (point-max) t)
>         (add-to-list 'matches (match-string-no-properties 2) t))
>       matches)))
>
> (defun tsd-org-insert-crossref-link (&optional arg)
>   (interactive (list (completing-read "insert: "
> (tsd-get-names-and-labels))))
>   (insert (format "[[%s]]" arg)))
> #+end_src
>
> Now, when I'm referring to something I've labeled or named, I call
> tsd-org-insert-crossref-link and helm works on a list of labels and
> names defined in the buffer.
>
> It's almost as convenient as using Carsten's reftex mode when writing in
> LaTeX.
>
> All the best,
> Tom
> --
> Thomas S. Dye
> http://www.tsdye.com
>
>

[-- Attachment #2: Type: text/html, Size: 3096 bytes --]