(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)))