org-babel-execute:dot -- why isn't this working?

org-babel-execute:dot -- why isn't this working?

[Matt Price]

[-- Attachment #1: Type: text/plain, Size: 1121 bytes --]

I'm trying to draw a very simple, silly graph using dot. I'm following the
code here:
http://irreal.org/blog/?p=2866
and here:
http://orgmode.org/worg/org-tutorials/org-dot-diagrams.html

I have tables like this (the real ones are substantially longer):

#+name: students-graph
| a | b |
| a | m |
| a | f |
| b | t |

#+name: students-table
| *node* | *label*   | *shape* | *fillcolor* |
|--------+-----------+---------+-------------|
| a      | Omar      | ellipse | green       |
| b      | Hindia    | ellipse | orange      |
| c      | Yuvrai    | ellipse | purple      |


I can generate the diagram I'm looking for with this code, mostly stolen
from another :
#+name: make-dot
#+BEGIN_SRC emacs-lisp :var table=students-table graph=students-graph
:results output :exports none
  (mapcar #'(lambda (x)
              (princ (format "%s [label=\"%s\" shape=%s style=\"filled\"
fillcolor=\"%s\"];\n"
                             (car x) (second x) (nth 2 x) (nth 3 x) )))
table)
  (mapcar #'(lambda (x)
              (princ (format "%s -- %s;\n"
                             (first x) (second x)))) graph)


#+END_SRC

[-- Attachment #2: Type: text/html, Size: 1813 bytes --]

Re: org-babel-execute:dot -- why isn't this working?

[Matt Price]

[-- Attachment #1: Type: text/plain, Size: 1426 bytes --]

sorry, I must have sent this by accident, rather than deleting it by
accident as I'd thought. please see the finished email, which you've
already received.

On Wed, Sep 23, 2015 at 8:51 PM, Matt Price <moptop99@gmail.com> wrote:

> I'm trying to draw a very simple, silly graph using dot. I'm following the
> code here:
> http://irreal.org/blog/?p=2866
> and here:
> http://orgmode.org/worg/org-tutorials/org-dot-diagrams.html
>
> I have tables like this (the real ones are substantially longer):
>
> #+name: students-graph
> | a | b |
> | a | m |
> | a | f |
> | b | t |
>
> #+name: students-table
> | *node* | *label*   | *shape* | *fillcolor* |
> |--------+-----------+---------+-------------|
> | a      | Omar      | ellipse | green       |
> | b      | Hindia    | ellipse | orange      |
> | c      | Yuvrai    | ellipse | purple      |
>
>
> I can generate the diagram I'm looking for with this code, mostly stolen
> from another :
> #+name: make-dot
> #+BEGIN_SRC emacs-lisp :var table=students-table graph=students-graph
> :results output :exports none
>   (mapcar #'(lambda (x)
>               (princ (format "%s [label=\"%s\" shape=%s style=\"filled\"
> fillcolor=\"%s\"];\n"
>                              (car x) (second x) (nth 2 x) (nth 3 x) )))
> table)
>   (mapcar #'(lambda (x)
>               (princ (format "%s -- %s;\n"
>                              (first x) (second x)))) graph)
>
>
> #+END_SRC
>
>
>

[-- Attachment #2: Type: text/html, Size: 2383 bytes --]