11 lines
309 B
Common Lisp
11 lines
309 B
Common Lisp
(defpackage :graphviz
|
|
(:use :cl)
|
|
(:nicknames :gv)
|
|
(:export :string->svg))
|
|
(in-package :graphviz)
|
|
|
|
;;;; This package is currently set up as a workaround
|
|
(defun string->svg (string)
|
|
(with-input-from-string (*standard-input* string)
|
|
(uiop:run-program "/usr/bin/dot -Tsvg" :output :string :input t)))
|