Function: generate-subtree

Source

(defun generate-subtree (tree)
  (if (consp tree)
      `(:div :dojoType "TreeNode" :title ,(car tree)
	     ,@(mapcar (fn (kid) (generate-subtree kid))
		      (cdr tree)))
      `(:div :dojoType "TreeNode" :title ,tree)))