Refactor remove-surrounding-whitespace function

Consolidate the definition of remove-surrounding-whitespace
to improve clarity and maintainability. The function now
mantains contract since it is a public function.

Author: jramosg

cljfmt/src/cljfmt/core.cljc

@@ -78,9 +78,6 @@
                 (not (comment? (z/right* zloc))))
            (nil? (z/skip z/right* clojure-whitespace? zloc)))))
 
-(defn remove-surrounding-whitespace [form opts]
-  (transform form edit-all #(surrounding-whitespace? % opts) z/remove*))
-
 (defn- element? [zloc]
   (and zloc (not (z/whitespace-or-comment? zloc))))
 
@@ -417,6 +414,12 @@
     (when (form-matches-key? zloc sym context)
       (list-indent zloc context))))
 
+(defn remove-surrounding-whitespace
+  ([form]
+   (remove-surrounding-whitespace form default-options))
+  ([form opts]
+   (transform form edit-all #(surrounding-whitespace? % opts) z/remove*)))
+
 (defn- make-indenter [[key opts] context]
   (apply some-fn (map (partial indenter-fn key context) opts)))