Demonstration of pair-wise indentation for Clojure syntax

pair_indent.clj

;; Demonstration of pair-wise indentation for Clojure syntax

(let [local-symbol-one
        (expression-to-compute-symbol-one)
      local-symbol-two
        (expression-to-compute-symbol-two)]
  (body-expressions))

(def a-map
  {:com.example.application/one
     "Value number one, the first of its kind."
   :com.example.applicaton/two
     "Value number two, how do you do?"})

(cond
  (test-expression-one)
    (result-expression-one)
  (test-expression-two)
    (result-expression-two)
  (test-expression-three)
    (result-expression-three)
  :else
    (else-result-expression))

(case test-value
  :value-one
    (result-expression-one)
  :value-two
    (result-expression-two)
  :value-three
    (result-expression-three)
  (else-result-expression))

Looks very clean.
But what about destructuring in let block? Say:

(let [[local-1 local-2]
        (expression-to-compute-symbol-one)
      local-symbol-two
        (expression-to-compute-symbol-two)]
  (body-expressions))

Parinfer will formate automatically and break it:

(let [[local-1 local-2
        (expression-to-compute-symbol-one)]
      local-symbol-two
        (expression-to-compute-symbol-two)]
  (body-expressions))

Not sure if there's any config to tune the behaviour.