From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andreas Leha Subject: [PATCH] link descriptions in :file results of src blocks Date: Tue, 27 Mar 2012 10:56:20 +0200 Message-ID: <87haxa4e2z.fsf@med.uni-goettingen.de> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:32942) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SCSDN-0003rs-H0 for emacs-orgmode@gnu.org; Tue, 27 Mar 2012 04:57:23 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SCSDB-00079b-Lh for emacs-orgmode@gnu.org; Tue, 27 Mar 2012 04:57:17 -0400 Received: from plane.gmane.org ([80.91.229.3]:49077) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SCSDB-00077v-FV for emacs-orgmode@gnu.org; Tue, 27 Mar 2012 04:57:05 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1SCSD9-0000eB-4k for emacs-orgmode@gnu.org; Tue, 27 Mar 2012 10:57:03 +0200 Received: from genepi110.genepi.med.uni-goettingen.de ([134.76.140.110]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 27 Mar 2012 10:57:03 +0200 Received: from andreas.leha by genepi110.genepi.med.uni-goettingen.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 27 Mar 2012 10:57:03 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi all, this small patch adds :filelinkdescr to the list of possible header arguments for babel source blocks. Its intented functionality is to allow source blocks to return links to files with description. Two small examples: ,----[ example1 ] | #+begin_src R :results graphics :file test.png :filelinkdescr here | plot(1:10) | #+end_src | | #+results: | [[file:test.png][here]] `---- ,----[ example2 ] | #+begin_src R :results graphics :file test2.png :filelinkdescr | plot(1:10) | #+end_src | | #+results: | [[file:test2.png][test2.png]] `---- If used with value ("here" in the example1) that value will become the description. If used without value (as in example2), the description is taken from either the :file header argument or the results of the code block evaluation (in that order). Have not done much testing yet, though. Regards, Andreas --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-new-source-block-header-argument-filelinkdescr.patch >From 698570cb9938ee1f4dd1472cb13b32d08d108cbb Mon Sep 17 00:00:00 2001 From: Andreas Leha Date: Tue, 27 Mar 2012 10:33:32 +0200 Subject: [PATCH] new source block header argument :filelinkdescr --- lisp/ob.el | 10 +++++++++- 1 files changed, 9 insertions(+), 1 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index d27a394..0efef3e 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -400,6 +400,7 @@ then run `org-babel-pop-to-session'." (eval . ((never query))) (exports . ((code results both none))) (file . :any) + (filelinkdescr . :any) (hlines . ((no yes))) (mkdirp . ((yes no))) (no-expand) @@ -1833,7 +1834,14 @@ code ---- the results are extracted in the syntax of the source (progn (setq result (org-babel-clean-text-properties result)) (when (member "file" result-params) - (setq result (org-babel-result-to-file result)))) + (progn (when (assoc :filelinkdescr (nth 2 info)) + (let ((filelinkdescr (or (cdr (assoc :filelinkdescr (nth 2 info))) + (cdr (assoc :file (nth 2 info))) + result))) + (when filelinkdescr + (setq result + (list result filelinkdescr))))) + (setq result (org-babel-result-to-file result))))) (unless (listp result) (setq result (format "%S" result)))) (if (and result-params (member "silent" result-params)) (progn -- 1.7.9.1 --=-=-=--