     (if (or (not (seq tail)) (:help amap))
       (do (println (str usage "\n" banner))
         (System/exit 1))
-      (binding [*settings* {:theme (:theme amap)
+      (binding [*settings* {:theme (or (:theme amap) (:theme *settings*))
                             :stylesheet (:stylesheet amap)
                             :static-brushes (:brush amap)
                             :verbose? (:verbose amap)}

; method. When run from the REPL or from Leiningen `gen-class` does nothing.
  (:gen-class))


;@top-level-vars
; ## Top level variables


; Here is a list of the options this program can take when run from the
; commandline.
                 ["-c" "--comment" "Comment syntax"]
                 ["-b" "--brush" "SyntaxHighlighter brush file" :multi true]
                 ["-t" "--theme" "SyntaxHighlighter theme file"]
                 ["-l" "--language" "SyntaxHighlighter language"]
