Remove set-color-scheme! function.

greglook · Mar 7, 2015 · 7e9d422 · 7e9d422
1 parent 1eb80db
commit 7e9d422
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 21 deletions.
diff --git a/src/puget/printer.clj b/src/puget/printer.clj
@@ -107,16 +107,6 @@
      ~@body))
 
 
-(defn set-color-scheme!
-  "Sets the color scheme for syntax elements. Pass either a map to merge into
-  the current color scheme, or a single element/colors pair. Colors should be
-  vector of ANSI style keywords."
-  ([colors]
-   (alter-var-root #'*options* update-in [:color-scheme] merge colors))
-  ([element colors & more]
-   (set-color-scheme! (apply hash-map element colors more))))
-
-
 
 ;; ## Utility Functions
 
@@ -267,7 +257,6 @@
      (color-doc :delimiter "}")]))
 
 
-
 (defmethod format-doc clojure.lang.ISeq
   [value]
   (let [elements (if (symbol? (first value))

diff --git a/test/puget/printer_test.clj b/test/puget/printer_test.clj
@@ -14,16 +14,6 @@
         "should not print non-EDN representation")))
 
 
-(deftest color-scheme-setting
-  (let [old-scheme (:color-scheme *options*)]
-    (set-color-scheme! {:tag [:green]})
-    (is (= [:green] (:tag (:color-scheme *options*))))
-    (set-color-scheme! :nil [:black] :number [:bold :cyan])
-    (is (= [:black] (:nil (:color-scheme *options*))))
-    (is (= [:bold :cyan] (:number (:color-scheme *options*))))
-    (set-color-scheme! old-scheme)))
-
-
 (deftest formatting-primitives
   (testing "Primitive values"
     (are [v text] (= text (-> v pprint with-out-str str/trim))