From mboxrd@z Thu Jan  1 00:00:00 1970
From: John Kitchin <jkitchin@andrew.cmu.edu>
Subject: Re: paste from clip to code block
Date: Mon, 07 Sep 2015 16:18:51 -0400
Message-ID: <m2oaheq8yc.fsf@andrew.cmu.edu>
References: <CAOQHXPo+m6c1+UR2vMfLmvya9cwFc4nAi3nWu5q0eDF_GJ-ZOQ@mail.gmail.com>
	<m24moeg8oy.fsf@andrew.cmu.edu> <87383ypzbd.fsf@yale.edu>
	<CAJ51ETqXo_X_QyZURQZJ2HM7NYmPvhEfBgAO5ivNHucdbym43A@mail.gmail.com>
	<86k2wkbyyb.fsf@example.com>
	<CAAjq1me1KGUD9bu+z=0A5+muerfmJ7feBkifdeuwRB67K6GWYQ@mail.gmail.com>
	<m2y4gis4n6.fsf@andrew.cmu.edu>
	<CAAjq1mcNF==+ezW7VAxzXAcvtrJOOHGwim9v1Vuf5gwbtNtxkA@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:37588)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <johnrkitchin@gmail.com>) id 1ZZ2sZ-0000xo-VU
	for emacs-orgmode@gnu.org; Mon, 07 Sep 2015 16:19:05 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <johnrkitchin@gmail.com>) id 1ZZ2sW-0000BV-O7
	for emacs-orgmode@gnu.org; Mon, 07 Sep 2015 16:19:03 -0400
Received: from mail-qg0-x235.google.com ([2607:f8b0:400d:c04::235]:33103)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <johnrkitchin@gmail.com>) id 1ZZ2sW-0000BM-Jv
	for emacs-orgmode@gnu.org; Mon, 07 Sep 2015 16:19:00 -0400
Received: by qgev79 with SMTP id v79so68082211qge.0
	for <emacs-orgmode@gnu.org>; Mon, 07 Sep 2015 13:18:59 -0700 (PDT)
In-reply-to: <CAAjq1mcNF==+ezW7VAxzXAcvtrJOOHGwim9v1Vuf5gwbtNtxkA@mail.gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Grant Rettke <gcr@wisdomandwonder.com>
Cc: Sebastien Vauban <sva-news@mygooglest.com>, "emacs-orgmode@gnu.org" <emacs-orgmode@gnu.org>

For example with the cursor on a src-block press C-c l to store a link
to that name, and later type C-c C-l to insert a link to that
src-block.

It would look a little like this:
#+BEGIN_SRC emacs-lisp
(defun org-src-block-store-link ()
  (let* ((object (org-element-context)))
    (when (equal (org-element-type object) 'src-block)
      (org-store-link-props
       :type "src-block"
       :link (concat "src-block:" (org-element-property :name object))))))

(add-hook 'org-store-link-functions 'org-src-block-store-link)

(org-add-link-type
 "src-block"
 (lambda (label)
   (org-mark-ring-push)
   (widen)
   (goto-char (point-min))
   (re-search-forward (regexp-quote (format "#+NAME: %s" label)))
   (beginning-of-line)))
#+END_SRC

it only works in the current file though.


Grant Rettke writes:

> On Mon, Sep 7, 2015 at 9:09 AM, John Kitchin <jkitchin@andrew.cmu.edu> wrote:
>> Neat. Do you have some handy way to store a link to the source block, or
>> jump to them?
>
> I don't, but please tell us more about what you mean.

--
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