utils: Add dotit.

utils.rkt

@@ -4,8 +4,9 @@
 
 ;;; Various utilities.
 
-(require (for-syntax syntax/parse)
-         (for-syntax racket/list))
+(require
+ graph
+ (for-syntax syntax/parse racket/list))
 
 (provide
  ;; Functions
@@ -23,7 +24,7 @@
                [string-variable-mapping? contract?]
                [general-pair/c (-> contract? contract? contract?)])
  ;; Syntax
- auto-hash-ref/explicit auto-hash-ref/: sgfy unorg)
+ auto-hash-ref/explicit auto-hash-ref/: sgfy unorg dotit)
 
 ;;; ===================
 ;;; HashTable Injection
@@ -202,3 +203,6 @@
 
 ;;; A synonym for read-org-variable-mapping.
 (define-syntax-rule (unorg str) (read-org-variable-mapping str))
+
+;;; Typeset the graph via graphviz and display it.
+(define-syntax-rule (dotit gr) (display (graphviz gr)))