This repository was archived by the owner on Nov 3, 2020. It is now read-only.

19 lines (14 loc) · 538 Bytes

The trio Library of Babel

This file contains shared and configurable code templates for various parts of this project.

(defun toxi-table->digraph (wrap table)
  (mapcar
   (lambda (x) (format "\"%s\" -> \"%s\"[label=\"%s\"];\n" (first x) (nth 2 x) (nth 1 x)))
   table))

(defun toxi-print-concat (coll)
  (princ (apply #'concat coll)))

(toxi-print-concat (toxi-table->digraph nil (-drop 2 graph-table)))