removed debug help

This commit is contained in:
Lucien Cartier-Tilet 2020-01-30 00:15:21 +01:00
parent 72da663163
commit 557725ac74
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA

View File

@ -15,7 +15,7 @@
(defun conlanging//declare-node (node-text node-generation)
"Declares a node in the graphviz source code. The nodes 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))