phundrak/conlang-layer
Archived
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

removed debug help

Browse Source
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
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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