From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id WOmhF6/SBGBjXQAA0tVLHw (envelope-from ) for ; Mon, 18 Jan 2021 00:13:35 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id AAJeE6/SBGAIMAAAbx9fmQ (envelope-from ) for ; Mon, 18 Jan 2021 00:13:35 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 3FC8F9403D2 for ; Mon, 18 Jan 2021 00:13:34 +0000 (UTC) Received: from localhost ([::1]:46006 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l1IAn-0006a2-5J for larch@yhetil.org; Sun, 17 Jan 2021 19:13:33 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]:52868) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1l1I9s-0006Zr-7w for emacs-orgmode@gnu.org; Sun, 17 Jan 2021 19:12:36 -0500 Received: from mail-wr1-x42f.google.com ([2a00:1450:4864:20::42f]:33954) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1l1I9p-0002KH-V6 for emacs-orgmode@gnu.org; Sun, 17 Jan 2021 19:12:36 -0500 Received: by mail-wr1-x42f.google.com with SMTP id q18so14855564wrn.1 for ; Sun, 17 Jan 2021 16:12:33 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=andrew-cmu-edu.20150623.gappssmtp.com; s=20150623; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=jDZAfmkrX16I0FiCkwx1t6e+co4+1hrUWWbVj+3TQLg=; b=KwMtWg3SwryIosR4gWUpUqLrpa4SDIxOxUHEUcYCQpWB+sD1dzkxJGwkTB9xreMbU+ 7Isjtn9TnBfDwbQ9Wg1fiLavJLk9o2mBmFvdxddD4xV7k6MjQ1dxdbl2ueUE5ZYsRXNV gZ1Rdh4pRySM7NRfwItIGFrxzvRfhVllT/4x0Nq4krqm68v1PSeqIPkQpw1ftKVT6Yg6 mffWTKCn860jMCWZ09ALBQwL4bifOP8DiH3xSJ6jts4hLKl2WmwhSBKqo9kuT3dAiXe1 RlxJ30RgVho1LnBGdIbKfJ6Ub0xh2NWDXNiS0pEUGeljcaQwgmtK1cBg45TaRy7aBD4x WSFA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=jDZAfmkrX16I0FiCkwx1t6e+co4+1hrUWWbVj+3TQLg=; b=gW58CrWsQH6NvlSfKGnuDNWO5UZNNcQY5aDjU0ol5cVUL//TuDKQ25WLATfxheONro acKNzTJ4HWGJ3RCCIxbNxH2tm7viUXuRR+PIAJYb2ijIAokHcP5i1Qz55gs+HrF3J2Tz mr2B4lhLXRwF6OmXjqpD/pVAD44tMZGunWH1HBsY1bbJYLL4kCqOE55wUqwxo+9onRuz YZKdjZTepsY/623GeGWlX9JxUhisjV2o62DZ9RQEe9rC7yMT3DE/0EQlk/uZPJdcXpDx 0qZmoURwWOowsVkJ5J5w7/hhOfdYHwWxwQJK8Zmurt0ydJOMoxFxaG0ktsD2k4ynA7gD WBfA== X-Gm-Message-State: AOAM5330AMSxSQdah1ERaQgn/Gkg56v/lTeV0ACl2VIUliwDsGCy8bHb GDo7C20I04W9zlDOgHnRt9FO/mSjCZ95Pi5jylU= X-Google-Smtp-Source: ABdhPJxCfxPxVyQRLFvfo4gcvH7qlBtWC5jocFbPz745F7On9spmmxUYYoFrGOAGBN6MPEuK/0TUhat2nvLCtDUgsC8= X-Received: by 2002:adf:eac1:: with SMTP id o1mr23115631wrn.256.1610928751857; Sun, 17 Jan 2021 16:12:31 -0800 (PST) MIME-Version: 1.0 References: In-Reply-To: From: John Kitchin Date: Sun, 17 Jan 2021 19:12:21 -0500 Message-ID: Subject: Re: self-referencing babel shell code blocks To: HJ Content-Type: multipart/alternative; boundary="00000000000003512405b9219433" Received-SPF: pass client-ip=2a00:1450:4864:20::42f; envelope-from=johnrkitchin@gmail.com; helo=mail-wr1-x42f.google.com X-Spam_score_int: -13 X-Spam_score: -1.4 X-Spam_bar: - X-Spam_report: (-1.4 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, FREEMAIL_FORGED_FROMDOMAIN=0.25, FREEMAIL_FROM=0.001, HEADER_FROM_DIFFERENT_DOMAINS=0.25, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: org-mode-email Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN X-Migadu-Spam-Score: -2.46 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=andrew-cmu-edu.20150623.gappssmtp.com header.s=20150623 header.b=KwMtWg3S; dmarc=fail reason="SPF not aligned (relaxed), DKIM not aligned (relaxed)" header.from=andrew.cmu.edu (policy=none); spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Queue-Id: 3FC8F9403D2 X-Spam-Score: -2.46 X-Migadu-Scanner: scn0.migadu.com X-TUID: uN/zGchdTsA0 --00000000000003512405b9219433 Content-Type: text/plain; charset="UTF-8" I guess this is what you mean: * heading L1_12 ** heading L2_37 #+name: this-block #+header: :var VAR1=(getenv "HOSTNAME") #+header: :var VAR2=(message user-login-name) #+header: :var VAR3=(buffer-file-name) #+header: :var VAR4=(org-element-property :name (org-element-context)) #+header: :var VAR5=(org-no-properties (org-display-outline-path nil t)) #+header: :var VAR5a=(line-number-at-pos (org-element-property :begin (org-element-context))) #+header: :var VAR6=(s-trim (shell-command-to-string "git rev-parse HEAD")) #+header: :var VAR7=(s-trim (shell-command-to-string "git branch --show-current")) #+BEGIN_SRC sh :results raw echo Run by $VAR2 from $VAR3 echo In a src-block named $VAR4 in $VAR5 at line $VAR5a echo on commit $VAR6 in git branch $VAR7 #+END_SRC #+RESULTS: this-block Run by jkitchin from /Users/jkitchin/Dropbox/emacs/journal/2021/01/17/ 2021-01-17.org In a src-block named this-block in heading L1_12/heading L2_37 at line 140 on commit a07475addc3fdf557fb46a72b1100cf1c9c0805a in git branch master 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, Jan 17, 2021 at 4:42 PM HJ wrote: > > hi, > > I'm trying to figure out how to write a block , header, PROPERTY or > whatever is necessary so the output of a command in babel source block > identifies it own position - the line (or block or something) in buffer > (or at least the file) in which it is written. ( Plus the checked out > git revision / branch. ) > > > I've been experimenting with the following, so far without much luck ... > > Which of these pieces of information (see the "echo" line below) is it > possible to get? Which is easy? (variables VAR[0345] are most critical) > How would one write a snippet which provides (some of) this information? > > Is it much harder with command 1 being SSH to a remote machine? Would > ":dir user@remotemachine:/some/dir" work better? Or at all? > > Perhaps I would know how to find out VAR6 and VAR7 by running first > some `git cmd1` and `git cmd2` locally in a " command 0 " - but is there > a way to get that info from magit somehow? > > But what I am most desperate for is how to cause orgmode block to set > VAR0, VAR3, VAR4 and VAR5, and - also fairly important - how to use the > combination of VAR[0345] do open / recall the file onto the screen > > Thanks a million for helping me out here ... > > HJ > > > This is the sample file : > > > * heading L1_12 > Hello and welcome, this is a file with self-referencing shell babel > source code blocks > ... > ** heading L2_37 > ... > #+NAME: block220 > #+BEGIN_SRC bash :session sess9 > : command 0 ; cd _how-do-I-find-the-dir-of-currently-edited-file_ ; > VAR6=`git cmd1` ; VAR7=`git cmd2` > : command 1 ; ssh -o "SetEnv VAR1=machine VAR2=user VAR3=..." > targetUser@targetMachine > #+END_SRC > > > ... > > #+NAME: block225 > #+BEGIN_SRC bash :session sess9 > : command 2 ; : do some computation on targetMachine > : command 3 ; echo This code has been launched from emacs process > VAR0:_EMACS_SESSION_ID_ \ > on computer $VAR1:_SRC_HOSTNAME_ \ > run by user $VAR2:_USER_ \ > from file $VAR3:_FILENAME_ \ > code block named $VAR4:block225 \ > in this file positioned under headings: $VAR5:heading L1_12/heading > L2_37/ \ > which is checked out from $VAR6:_GIT_COMMIT_ID_ \ > on branch $VAR7:_GIT_BRANCH_ > : command 3 continues ; echo To display the buffer which launched this > code on the screen of the running emacs session, run the following command > : emacs _What_the_heck_do_I_put_here?_ '&' > #+END_SRC > > > > > > > > --00000000000003512405b9219433 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
I guess this is what you mea= n:


* heading L1_12
** heading L2_37

= #+name: this-block
#+header: :var VAR1=3D(getenv "HOSTNAME")#+header: :var VAR2=3D(message user-login-name)
#+header: :var VAR3=3D= (buffer-file-name)
#+header: :var VAR4=3D(org-element-property :name (or= g-element-context))
#+header: :var VAR5=3D(org-no-properties (org-displa= y-outline-path nil t))
#+header: :var VAR5a=3D(line-number-at-pos (org-e= lement-property :begin (org-element-context)))
#+header: :var VAR6=3D(s-= trim (shell-command-to-string "git rev-parse HEAD"))
#+header:= :var VAR7=3D(s-trim (shell-command-to-string "git branch --show-curre= nt"))
#+BEGIN_SRC sh :results raw
echo Run by $VAR2 from $VAR3echo In a src-block named $VAR4 in $VAR5 at line $VAR5a
echo on commit= $VAR6 in git branch $VAR7
#+END_SRC

#+RESULTS: this-block
Run= by jkitchin from /Users/jkitchin/Dropbox/emacs/journal/2021/01/17/2021-01-17.org
In a src-block named this-= block in heading L1_12/heading L2_37 at line 140
on commit a07475addc3fd= f557fb46a72b1100cf1c9c0805a in git branch master



John

---------------------------= --------
Professor John Kitchin=C2=A0
Doherty Hall A207F
Departmen= t of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 1= 5213
412-268-7803


On Sun, Jan 17, 2021 at 4:42 = PM HJ <hj-orgmode-1@hj.p= roberto.com> wrote:

=C2=A0=C2=A0hi,

=C2=A0=C2=A0 I'm=C2=A0 trying to figure out how to write a block , head= er, PROPERTY or
whatever is necessary so the output of a command in babel source block
identifies it own position - the line (or block or something) in buffer (or at least the file) in which it is written. ( Plus the checked out
git revision / branch. )


=C2=A0=C2=A0I've been experimenting with the following, so far without = much luck ...

=C2=A0=C2=A0Which of these pieces of information (see the "echo" = line below) is it
possible to get? Which is easy? (variables VAR[0345] are most critical) How would one write a snippet which provides (some of) this information?
=C2=A0=C2=A0Is it much harder with command 1 being SSH to a remote machine?= Would
":dir user@remotemachine:/some/dir" work better? Or at all?

=C2=A0=C2=A0Perhaps I would know how to find out VAR6 and VAR7 by running f= irst
some `git cmd1` and `git cmd2` locally in a " command 0 " - but i= s there
a way to get that info from magit somehow?

=C2=A0=C2=A0But what I am most desperate for is how to cause orgmode block = to set
VAR0, VAR3, VAR4 and VAR5, and - also fairly important - how to use the combination of VAR[0345] do open / recall the file onto the screen

=C2=A0=C2=A0Thanks a million for helping me out here ...

=C2=A0=C2=A0=C2=A0 HJ


This is the sample file :


* heading L1_12
=C2=A0 =C2=A0Hello and welcome, this is a file with self-referencing shell = babel source code blocks
=C2=A0 =C2=A0...
** heading L2_37
=C2=A0 =C2=A0...
#+NAME: block220
#+BEGIN_SRC=C2=A0 bash=C2=A0 :session sess9
=C2=A0 =C2=A0: command 0 ;=C2=A0 cd _how-do-I-find-the-dir-of-currently-edi= ted-file_ ; VAR6=3D`git cmd1` ; VAR7=3D`git cmd2`
=C2=A0 =C2=A0: command 1 ;=C2=A0 ssh -o "SetEnv VAR1=3Dmachine VAR2=3D= user VAR3=3D..."=C2=A0 =C2=A0 targetUser@targetMachine
#+END_SRC


...

#+NAME: block225
#+BEGIN_SRC=C2=A0 bash=C2=A0 :session sess9
=C2=A0 =C2=A0: command 2 ; : do some computation on targetMachine
=C2=A0 =C2=A0: command 3 ; echo This code has been launched from emacs proc= ess VAR0:_EMACS_SESSION_ID_ \
=C2=A0 =C2=A0 =C2=A0on computer $VAR1:_SRC_HOSTNAME_ \
=C2=A0 =C2=A0 =C2=A0run by user $VAR2:_USER_ \
=C2=A0 =C2=A0 =C2=A0from file $VAR3:_FILENAME_ \
=C2=A0 =C2=A0 =C2=A0code block named $VAR4:block225 \
=C2=A0 =C2=A0 =C2=A0in this file positioned under headings: $VAR5:heading L= 1_12/heading L2_37/ \
=C2=A0 =C2=A0 =C2=A0which is checked out from $VAR6:_GIT_COMMIT_ID_ \
=C2=A0 =C2=A0 =C2=A0on branch $VAR7:_GIT_BRANCH_
=C2=A0 =C2=A0: command 3 continues ; echo To display the buffer which launc= hed this code on the screen of the running emacs session, run the following= command :=C2=A0 =C2=A0 emacs=C2=A0 _What_the_heck_do_I_put_here?_=C2=A0 &#= 39;&'
#+END_SRC







--00000000000003512405b9219433--