Browse Source

removed debug help

master
Lucien Cartier-Tilet 2 months ago
parent
commit
557725ac74
Signed by: phundrak <[email protected]> GPG Key ID: BD7789E705CB8DCA
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      funcs.el

+ 3
- 3
funcs.el View File

@@ -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))


Loading…
Cancel
Save