From 557725ac748d5840c7bbf1d0ff7acfd2283e692a Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Thu, 30 Jan 2020 00:15:21 +0100 Subject: [PATCH] removed debug help --- funcs.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))