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) (defun conlanging//declare-node (node-text node-generation)
"Declares a node in the graphviz source code. The node’s identifier will be "Declares a node in the graphviz source code. The node’s identifier will be
~node-generation~, and it will bear the label ~node-text~." ~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)) node-text))
(defun conlanging/tree-to-dot (tree &optional current-generation previous-generation) (defun conlanging/tree-to-dot (tree &optional current-generation previous-generation)
@ -30,7 +30,7 @@ Arguments:
node" node"
(cond (cond
((null previous-generation) ;; first call ((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//declare-node (car tree) 0)
(conlanging/tree-to-dot (cdr tree) 1 0) (conlanging/tree-to-dot (cdr tree) 1 0)
"}")) "}"))
@ -40,7 +40,7 @@ Arguments:
current-generation) current-generation)
;; make link ;; make link
(concat (number-to-string previous-generation) " -- " (concat (number-to-string previous-generation) " -- "
(number-to-string current-generation) ";\n") (number-to-string current-generation) ";")
(conlanging/tree-to-dot (cdr tree) (conlanging/tree-to-dot (cdr tree)
(+ 1 (+ 1
(* 10 current-generation)) (* 10 current-generation))