From mboxrd@z Thu Jan  1 00:00:00 1970
From: Fabio Leimgruber <fabio.leimgruber@posteo.eu>
Subject: Re: org-trigger-hook and org-babel-execute-subtree
Date: Fri, 09 Sep 2016 01:07:24 +0200
Message-ID: <m2mvjing7n.fsf@nirvana.fritz.box>
References: <m260qc0w7o.fsf@nirvana.fritz.box>
Mime-Version: 1.0
Content-Type: multipart/signed; boundary="=-=-=";
	micalg=pgp-sha1; protocol="application/pgp-signature"
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:49680)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <fabio.leimgruber@posteo.eu>) id 1bi8QE-0000B7-DZ
	for emacs-orgmode@gnu.org; Thu, 08 Sep 2016 19:07:55 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <fabio.leimgruber@posteo.eu>) id 1bi8Q9-0007JY-Dy
	for emacs-orgmode@gnu.org; Thu, 08 Sep 2016 19:07:54 -0400
Received: from mout02.posteo.de ([185.67.36.66]:35663)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <fabio.leimgruber@posteo.eu>) id 1bi8Q9-0007J9-7P
	for emacs-orgmode@gnu.org; Thu, 08 Sep 2016 19:07:49 -0400
Received: from submission (posteo.de [89.146.220.130])
	by mout02.posteo.de (Postfix) with ESMTPS id DC6352045A
	for <emacs-orgmode@gnu.org>; Fri,  9 Sep 2016 01:07:42 +0200 (CEST)
In-Reply-To: <m260qc0w7o.fsf@nirvana.fritz.box> (Fabio Leimgruber's message of
	"Sun, 04 Sep 2016 12:56:43 +0200")
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"
	<emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
To: Fabio Leimgruber <fabio.leimgruber@posteo.eu>
Cc: emacs-orgmode@gnu.org

--=-=-=
Content-Type: text/plain

Fabio Leimgruber <fabio.leimgruber@posteo.eu> writes:

> #+BEGIN_SRC emacs-lisp
> (defun my-run-babel-on-todo (plist)
>   "When TODO state changes, run all source blocks below heading"
>   (let* ((element (org-element-at-point))
>          (babel-p (org-element-property :TRIGGER_BABEL element)))
>     (when babel-p
>       (princ "This gets run alright, but not the next one")
>       (org-babel-execute-subtree))))
> #+END_SRC
>
> #+BEGIN_SRC emacs-lisp
> (add-hook 'org-trigger-hook 'my-run-babel-on-todo)
> #+END_SRC
>
>
> * TODO test
> :PROPERTIES:
> :TRIGGER_BABEL: t
> :END:
>
> #+BEGIN_SRC calc
>   1 + 1
> #+END_SRC
>

FWIW, the following does work.  Comments would be appreciated.

#+BEGIN_SRC emacs-lisp :results silent
(defun my-org-invoke-babel-named (name)
  (interactive)
  (save-excursion
    (org-babel-goto-named-src-block name)
    (org-babel-execute-src-block-maybe)))
#+END_SRC

#+BEGIN_SRC emacs-lisp :results silent
  (defun my-run-babel-on-todo (plist)
    "When state changes, run defined source blocks"
    (let* ((to (plist-get plist :to))
           (element (org-element-at-point))
           (babel-snippet (org-element-property :TRIGGER_BABEL element)))
      (when (string= "DONE" to)
        (my-org-invoke-babel-named babel-snippet))))
#+END_SRC

#+BEGIN_SRC emacs-lisp
(add-hook 'org-trigger-hook 'my-run-babel-on-todo)
#+END_SRC

* TODO test
:PROPERTIES:
:TRIGGER_BABEL: trigger_name
:END:

#+name: trigger_name
#+BEGIN_SRC calc
  1 + 1
#+END_SRC


Regards,
Fabio

--=-=-=
Content-Type: application/pgp-signature; name="signature.asc"

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1

iEYEARECAAYFAlfR7ywACgkQNOHHLtKsq1nIagCgnqPIavsHghRPkPuDzevAdWpt
/hEAn2yTA20yFFxrqQITUysyDhZXX4pO
=xwRC
-----END PGP SIGNATURE-----
--=-=-=--