Add print function for Vars.

src/puget/printer.clj

@@ -96,7 +96,7 @@
 
 
 
-;; DISPATCH MULTIMETHOD
+;;;;; CANONIZING MULTIMETHOD ;;;;;
 
 (defn- canonize-dispatch
   [value]
@@ -112,6 +112,9 @@
   #'canonize-dispatch)
 
 
+
+;;;;; PRIMITIVE VALUES ;;;;;
+
 (defmacro ^:private canonize-element
   "Defines a canonization of a primitive value type by mapping it to an element
   in the color scheme."
@@ -130,6 +133,9 @@
 (canonize-element clojure.lang.Symbol  :symbol)
 
 
+
+;;;;; COLLECTIONS ;;;;;
+
 (defmethod canonize clojure.lang.ISeq
   [s]
   (let [elements (if (symbol? (first s))
@@ -198,6 +204,25 @@
 (prefer-method canonize clojure.lang.IRecord clojure.lang.IPersistentMap)
 
 
+
+;;;;; CLOJURE-SPECIFIC TYPES ;;;;;
+
+; TODO: regex
+
+
+(defmethod canonize clojure.lang.Var
+  [v]
+  (when *strict-mode*
+    (throw (IllegalArgumentException.
+             (str "No canonical representation for " (class v) ": " v))))
+  [:span
+   (color-doc :delimiter "#'")
+   (color-doc :symbol (subs (str v) 2))])
+
+
+
+;;;;; OTHER TYPES ;;;;;
+
 (defmethod canonize :tagged-value
   [tv]
   (let [tag   (data/edn-tag tv)
@@ -221,7 +246,7 @@
 
 
 
-;; PRINT FUNCTIONS
+;;;;; PRINT FUNCTIONS ;;;;;
 
 (def ^:private default-opts
   "Default Puget printing options."

test/puget/printer_test.clj

@@ -66,6 +66,16 @@
              "#puget.printer_test.TestRecord{:bar \\y :foo \\x}\n")))))
 
 
+(deftest clojure-types
+  (testing "vars"
+    (let [v #'TaggedValue]
+      (binding [*strict-mode* true]
+        (is (thrown? IllegalArgumentException (pprint v))
+            "should not print non-EDN representation"))
+      (is (= (pprint-str v)
+             "#'puget.data/TaggedValue")))))
+
+
 (deftest canonical-tagged-value
   (let [tval (reify TaggedValue
                (edn-tag [this] 'foo)