;; -*- 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

             ;; hang multiline left-hand-thing 
             ;; https://github.com/kkinnear/zprint/issues/273
             :multi-lhs-hang]
 :fn-map
 {"reg-sub"         :arg1-pair
  "h/describe"      :arg1-body
  "h/test"          :arg1-body
  "global.describe" :arg1-body
  "global.test"     :arg1-body
  "list-comp"       :binding
  "defview"         :arg1-body
  "letsubs"         :binding
  "with-let"        "let"
  "reg-event-fx"    :arg1-pair
  "reg-fx"          :arg1-pair
  "testing"         :arg1-body
  "deftest-sub"     :arg1-body
  "wait-for"        :arg1-body
  "with-deps-check" :arg1-body
  "schema/=>"       :arg1-body
  "->"              [: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}}
  :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}}}}}