diff --git a/funcs.el b/funcs.el index a73d788..2c8a2b4 100644 --- a/funcs.el +++ b/funcs.el @@ -15,7 +15,7 @@ (defun conlanging//declare-node (node-text node-generation) "Declares a node in the graphviz source code. The node’s identifier will be ~node-generation~, and it will bear the label ~node-text~." - (format "%d[label=\"%s\"];\n" node-generation + (format "%d[label=\"%s\"];" node-generation node-text)) (defun conlanging/tree-to-dot (tree &optional current-generation previous-generation) @@ -30,7 +30,7 @@ Arguments: node" (cond ((null previous-generation) ;; first call - (concat "graph{graph[dpi=300];node[shape=plaintext];graph[bgcolor=\"transparent\"];\n" + (concat "graph{graph[dpi=300];node[shape=plaintext];graph[bgcolor=\"transparent\"];" (conlanging//declare-node (car tree) 0) (conlanging/tree-to-dot (cdr tree) 1 0) "}")) @@ -40,7 +40,7 @@ Arguments: current-generation) ;; make link (concat (number-to-string previous-generation) " -- " - (number-to-string current-generation) ";\n") + (number-to-string current-generation) ";") (conlanging/tree-to-dot (cdr tree) (+ 1 (* 10 current-generation))