;; -*- mode: clojure -*-
;; vi: ft=clojure
{:width     105
 :style     [;; community style
             ;; https://github.com/kkinnear/zprint/blob/main/doc/reference.md#community
             :community

             ;; no comma in map
             :no-comma

             :custom-justify

             ;; respect all newlines
             ;; https://github.com/kkinnear/zprint/blob/main/doc/reference.md#respect-nl
             :respect-nl

             ;; respect blank line
             ;; https://github.com/kkinnear/zprint/blob/main/doc/reference.md#respect-bl
             :respect-bl]
 :fn-map
 {"reg-sub"         :arg1-pair
  "list-comp"       :binding
  "defview"         :arg1-body
  "letsubs"         :binding
  "testing"         :arg1-body
  "deftest-sub"     :arg1-body
  "with-deps-check" :arg1-body
  "ns"              [:arg1-body
                     {:list   {:respect-nl? false}
                      :vector {:respect-nl? false}}]
  "->"              [:noarg1-body
                     {:list               {:constant-pair? false :force-nl? false}
                      :next-inner-restore [[:list :constant-pair?]]}]
  "set!"            "reset!"
  "assoc-when"      "assoc"
  "assoc-some"      "assoc"
  "conj-when"       "conj"
  "conj-some"       "conj"}
 :remove    {:fn-force-nl #{:noarg1-body}}
 :style-map
 {:no-comma       {:map {:comma? false}}
  :rj-var         {:pair {:justify {:max-variance 1000}}}
  :custom-justify
  {:doc     "Justify everything using pre-1.1.2 approach"
   :binding {:justify? true :justify {:max-variance 1000}}
   :map     {:justify? true :justify {:max-variance 1000}}
   :pair    {:justify? true :justify {:max-variance 1000}}}}}