Simplifiy selection

fnl/formedit/selection.fnl

@@ -1,18 +1,23 @@
 (local tree (require :formedit.tree))
 
-(fn delete-around-form []
+(fn get-around-form []
+  (let [form (tree.get-current-form)]
+    [(form:range)]))
+
+(fn get-inner-form []
   (let [form (tree.get-current-form)
+        offset (if (or (= :set_lit (form:type)) (= :anon_fn_lit (form:type)))
+                   2
+                   1)
         [start-row start-col end-row end-col] [(form:range)]]
+    [start-row (+ start-col offset) end-row (- end-col 1)]))
+
+(fn delete-around-form []
+  (let [[start-row start-col end-row end-col] (get-around-form)]
     (vim.api.nvim_buf_set_text 0 start-row start-col end-row end-col {})))
 
 (fn delete-inner-form []
-  (let [form (tree.get-current-form)
-        [start-row start-col end-row end-col] [(form:range)]
-        buffer 0
-        offset (if (or (= :set_lit (form:type)) (= :anon_fn_lit (form:type)))
-                   2
-                   1)]
-    (vim.api.nvim_buf_set_text buffer start-row (+ start-col offset) end-row
-                               (- end-col 1) {})))
+  (let [[start-row start-col end-row end-col] (get-inner-form)]
+    (vim.api.nvim_buf_set_text 0 start-row start-col end-row end-col {})))
 
-{: delete-around-form : delete-inner-form}
+{: get-around-form : get-inner-form : delete-around-form : delete-inner-form}