diff --git a/ploterific.cabal b/ploterific.cabal
--- a/ploterific.cabal
+++ b/ploterific.cabal
@@ -1,13 +1,13 @@
 name:                ploterific
-version:             0.2.1.3
+version:             0.2.1.4
 synopsis:            Basic plotting of tabular data for the command line.
 description:         A quick and easy way to plot tabular data from the command line. Meant for quick visualizations, not too customizable.
 homepage:            http://github.com/GregorySchwartz/ploterific#readme
 license:             GPL-3
 license-file:        LICENSE
 author:              Gregory W. Schwartz
-maintainer:          gsch@pennmedicine.upenn.edu
-copyright:           2021 Gregory W. Schwartz
+maintainer:          gregory.schwartz@uhnresearch.ca
+copyright:           2022 Gregory W. Schwartz
 category:            Bioinformatics
 build-type:          Simple
 -- extra-source-files:
diff --git a/src/Ploterific/Plot/Plot.hs b/src/Ploterific/Plot/Plot.hs
--- a/src/Ploterific/Plot/Plot.hs
+++ b/src/Ploterific/Plot/Plot.hs
@@ -134,16 +134,18 @@
       fmap (T.pack . sRGB24show) . colorRamp (length labels) . brewerSet Set1 $ 9
 
 -- | Get the encoding.
-enc :: Maybe (Color, [ColorLabel])
+enc :: DefaultTheme
+    -> Maybe (Color, [ColorLabel])
     -> [Feature]
     -> [VL.EncodingSpec]
     -> VL.PropertySpec
-enc colorInfo fs =
+enc defaultTheme' colorInfo fs =
   VL.encoding
     . maybe
         id
         (\ (Color c, ls)
-        -> VL.color ( [VL.MName . getColName $ c, labelColorScale ls]
+        -> VL.color ( [VL.MName . getColName $ c]
+                   <> bool [labelColorScale ls] [] (unDefaultTheme defaultTheme')
                    <> maybe [] (\x -> [VL.MmType x]) (getColMeasurement c)
                     )
         )
@@ -208,7 +210,7 @@
                             $ [VL.FName . getColName $ x]
                            <> maybe [] (\y -> [VL.FmType y]) (getColMeasurement x)
                             ]
-      plotSpec = [ enc colorInfo features' []
+      plotSpec = [ enc defaultTheme' colorInfo features' []
                  , VL.mark mark' []
                  , VL.selection . VL.select "view" VL.Interval [VL.BindScales]
                  $ []