Re: running function in hook dependent on value of a variable

[Barry Margolin]

In article <mailman.1558.1371133630.22516.help-gnu-emacs@gnu.org>,
 Rainer M Krug <Rainer@krugs.de> wrote:

> Hi
> 
> I want to run a function in a hook only if the value of a variable is
> non-nil. I have gotten that far with my less then rudimentary lisp knowledge:
> 
> ,----
> | (defvar org-babel-tangle-run-postTangleScript nil
> |   "If non-nil, postTangleScript.sh will be executed")
> | (put 'org-babel-tangle-run-postTangleScript 'safe-local-variable 'booleanp)
> | 
> | (defun org-babel-run-post-tangle-script ()
> |   (if org-babel-tangle-run-postTangleScript
> |       (     (message "running the postTangleScript.sh bash shell script")
> |     (shell-command "bash ./postTangleScript.sh"))))
> | 
> | (add-hook 'org-babel-post-tangle-hook 'org-babel-run-post-tangle-script)
> `----
> 
> But something is wrong with the function, as it does not work. 
> 
> Any suggestions?

(defun org-babel-run-post-tangle-script ()
  (if org-babel-tangle-run-postTangleScript
      (progn
        (message "running the PostTangleScript.sh bash shell script")
        (shell-command "bash ./postTangleScript.sh"))))

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***