Compare commits
1 Commits
72da663163
...
557725ac74
| Author | SHA1 | Date | |
|---|---|---|---|
|
557725ac74
|
6
funcs.el
6
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))
|
||||
|
||||
Reference in New Issue
Block a user