Re: problem with babel call with post action

[Eric S Fraga <e.fraga@ucl.ac.uk>]

[-- Attachment #1.1: Type: text/plain, Size: 110 bytes --]

Helps if I attached the file...  <blush>

-- 
: Eric S Fraga via Emacs 26.0.50, Org release_9.0.9-551-g92e8c8

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1.2: callexample.org --]
[-- Type: text/x-org, Size: 2716 bytes --]

A small example in which the ~call~ statement below fails with error message:
Successfully reloaded Org
#+begin_example
Org mode version 9.0.9 (release_9.0.9-551-g92e8c8 @ /home/ucecesf/git/org-mode/lisp/)
Evaluate this emacs-lisp code block on your system? (y or n) y
executing Emacs-Lisp code block...

(options (quote "rankdir=LR;"))

(nodes (quote (("start" "start" "ellipse" "" "") ("one" "first" "" "" "the first task") ("two" "second" "" "" "second task") ("end" "End" "ellipse" "" "project complete"))))

(graph (quote (("start" "one" "") ("start" "two" "") ("one" "end" "test") ("two" "end" ""))))

Evaluate this dot code block (plot-graph) on your system? (y or n) y
executing Dot code block (plot-graph)...
Wrote /tmp/babel-7617mN6/ob-input-7617ncr
"[[file:dependency-graph.pdf]]"
org-indent-add-properties: Wrong type argument: arrayp, nil
#+end_example

* Overview                                               :ignoreheading:
#+call: graph-from-tables(options="rankdir=LR;",nodes=subtasks-table[2:-1],graph=dependency-table[2:-1]) :exports results :results file :post plot-graph[:results file :exports results :file dependency-graph.pdf](graph=*this*)



#+name: subtasks-table
| node     | label    | shape   | colour | description                      |
|----------+----------+---------+--------+----------------------------------|
| start    | start    | ellipse |        |                                  |
| one      | first    |         |        | the first task                   |
| two      | second   |         |        | second task                      |
| end      | End      | ellipse |        | project complete                 |

#+name: dependency-table
| from     | to       | label |
|----------+----------+-------|
| start    | one      |       |
| start    | two      |       |
| one      | end      | test  |
| two      | end      |       |

* graph from table
#+name: graph-from-tables
#+header: :var options="" :var nodes='() graph='()
#+BEGIN_SRC emacs-lisp :wrap src dot
  (concat
   "digraph {\n"
   options "\n"   ;; "//rankdir=LR;\n" ;; remove comment characters '//' for horizontal layout; add for vertical layout
   (mapconcat
    (lambda (x)
      (format "%s [label=\"%s\" shape=%s style=\"filled\" fillcolor=\"%s\"]"
              (car x)
              (nth 1 x)
              (if (string= "" (nth 2 x)) "box" (nth 2 x))
              (if (string= "" (nth 3 x)) "none" (nth 3 x))
              )) nodes "\n")
   "\n"
   (mapconcat
    (lambda (x)
      (format "%s -> %s [taillabel=\"%s\"]"
              (car x) (nth 1 x) (nth 2 x))) graph "\n")
   "}\n")
#+END_SRC

#+name: plot-graph
#+begin_src dot :var graph="digraph { anode;}" :file graph.pdf
$graph
#+end_src

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 194 bytes --]