From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer M Krug Subject: Folding in iESS R buffer Date: Mon, 05 May 2014 15:25:08 +0200 Message-ID: Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:58594) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WhItg-0003jO-Uo for emacs-orgmode@gnu.org; Mon, 05 May 2014 09:25:38 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WhItb-0003YA-8R for emacs-orgmode@gnu.org; Mon, 05 May 2014 09:25:32 -0400 Received: from mail-we0-f178.google.com ([74.125.82.178]:44735) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WhIta-0003Y3-T5 for emacs-orgmode@gnu.org; Mon, 05 May 2014 09:25:27 -0400 Received: by mail-we0-f178.google.com with SMTP id u56so6528320wes.37 for ; Mon, 05 May 2014 06:25:26 -0700 (PDT) Received: from Rainers-MacBook-Pro-3.local (arn78-1-88-186-171-7.fbx.proxad.net. [88.186.171.7]) by mx.google.com with ESMTPSA id pn9sm17785694wic.17.2014.05.05.06.25.24 for (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Mon, 05 May 2014 06:25:24 -0700 (PDT) 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 Content-Transfer-Encoding: quoted-printable Hi I have modified the variable transfer in ob-R.el so that the variable transfer code is enclosed as can be seen below. My idea is that I can fold the R output so that the variable transfer is collapsed. I understand that I can use one of the org-outside-org minor modes [1] (presumibly utshine?) - but I can't figure out how. My questions are: 1) which enclosing should I use to fold the transfer code away? 2) which minor mode should I use for this and how can I configure it? Cheers, Rainer =2D-8<---------------cut here---------------start------------->8--- > ###################################################################### ## Beginning org variable transfer try(detach(.org_variables_), silent=3DTRUE) .org_variables_ <- new.env() assign( 'COLUMNS', read.table("/var/folders/50/wcr5bjwn75q595n6x82gxj28= 0000gn/T/babel-74428N93/R-import-74428U4A", header=3DTRUE, row.names=3D1, s= ep=3D"\t", as.is=3DTRUE ), envir =3D .org_variables_ ); lockBinding('COLUMN= S', .org_variables_) assign( 'COLS_TO_EVAL', read.table("/var/folders/50/wcr5bjwn75q595n6x82= gxj280000gn/T/babel-74428N93/R-import-74428hCH", header=3DTRUE, row.names= =3D1, sep=3D"\t", as.is=3DTRUE ), envir =3D .org_variables_ ); lockBinding(= 'COLS_TO_EVAL', .org_variables_) assign( 'ALLSPECIES', read.table("/var/folders/50/wcr5bjwn75q595n6x82gx= j280000gn/T/babel-74428N93/R-import-74428uMN", header=3DTRUE, row.names=3D1= , sep=3D"\t", as.is=3DTRUE ), envir =3D .org_variables_ ); lockBinding('ALL= SPECIES', .org_variables_) assign( 'SPECIES', read.table("/var/folders/50/wcr5bjwn75q595n6x82gxj28= 0000gn/T/babel-74428N93/R-import-744287WT", header=3DTRUE, row.names=3D1, s= ep=3D"\t", as.is=3DTRUE ), envir =3D .org_variables_ ); lockBinding('SPECIE= S', .org_variables_) assign( 'YEARS', read.table("/var/folders/50/wcr5bjwn75q595n6x82gxj2800= 00gn/T/babel-74428N93/R-import-74428IhZ", header=3DTRUE, row.names=3D1, sep= =3D"\t", as.is=3DTRUE ), envir =3D .org_variables_ ); lockBinding('YEARS', = .org_variables_) assign('PRESENT', 2008, envir =3D .org_variables_); lockBinding('PRESEN= T', .org_variables_) assign('MINEFFORT', 3, envir =3D .org_variables_); lockBinding('MINEFFO= RT', .org_variables_) assign('PROPTRAIN', 0.6, envir =3D .org_variables_); lockBinding('PROPT= RAIN', .org_variables_) assign('RNGSEED', 13, envir =3D .org_variables_); lockBinding('RNGSEED'= , .org_variables_) assign('RNGKIND', "Mersenne-Twister", envir =3D .org_variables_); lockB= inding('RNGKIND', .org_variables_) assign('RNGNORMALKIND', "Inversion", envir =3D .org_variables_); lockBi= nding('RNGNORMALKIND', .org_variables_) assign('REFGRID', "./refGrid_8km.rds", envir =3D .org_variables_); lock= Binding('REFGRID', .org_variables_) assign('IFN', "./__BOX__/IFN/DB_IFN/rds/tabplot.rds", envir =3D .org_va= riables_); lockBinding('IFN', .org_variables_) assign('IFNCOUNT', "./__BOX__/IFN/DB_IFN/rdsRasterized/tabplot.count.8k= m.rds", envir =3D .org_variables_); lockBinding('IFNCOUNT', .org_variables_) assign('IFNMEAN', "./__BOX__/IFN/DB_IFN/rdsRasterized/tabplot.mean.8km.= rds", envir =3D .org_variables_); lockBinding('IFNMEAN', .org_variables_) assign('IFNPRES', "./__BOX__/IFN/DB_IFN/rdsRasterized/tabplot.pres.8km.= rds", envir =3D .org_variables_); lockBinding('IFNPRES', .org_variables_) assign('IFNSD', "./__BOX__/IFN/DB_IFN/rdsRasterized/tabplot.sd.8km.rds"= , envir =3D .org_variables_); lockBinding('IFNSD', .org_variables_) assign('IFNTABTREE', "./__BOX__/IFN/DB_IFN/rds/tabtree.rds", envir =3D = .org_variables_); lockBinding('IFNTABTREE', .org_variables_) lockEnvironment(.org_variables_) attach(.org_variables_) save(.org_variables_, file=3D'org_variables.RData') ## end org variable transfer ###################################################################### =2D-8<---------------cut here---------------end--------------->8--- Footnotes:=20 [1] http://orgmode.org/worg/org-tutorials/org-outside-org.html =2D-=20 Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology,= UCT), Dipl. Phys. (Germany) Centre of Excellence for Invasion Biology Stellenbosch University South Africa Tel : +33 - (0)9 53 10 27 44 Cell: +33 - (0)6 85 62 59 98 Fax : +33 - (0)9 58 10 27 44 Fax (D): +49 - (0)3 21 21 25 22 44 email: Rainer@krugs.de Skype: RMkrug PGP: 0x0F52F982 --=-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG/MacGPG2 v2.0.22 (Darwin) iQEcBAEBAgAGBQJTZ5E4AAoJENvXNx4PUvmCftcH/imErBefKWJ5J904t71sKZvY VZ+n1ML+qhn+ojmWldOCajkber44kpkL9LUVsZAQPCPLZCvuWluwlbxYNKP17orn 0ZNLIY6fJ4I1BPPVs4nBrnRlTOzRNs5G0JbpMj4L2EpeoM9dwiMtYcpHZIZNl5GH wbnYINVrqqHsZnTVztboL7ZyGVaQox0AIh89/R9hJJWMbdphXxdh3xpYdrObmzsy lUxaFt3HsJAlI/mI/AQ1JW6HOV8EQyJ2lIa6bjOAnhYBHQdUiR83YTeuEWzIJcgj CTA2PlFDCvRqfV/NJ6bLxrYtHLA7DmiwU62eLlERRn8PIlrX5aH651OuInPqfl0= =RWPB -----END PGP SIGNATURE----- --=-=-=--