Delete around

fnl/formedit/selection.fnl

@@ -1,10 +1,20 @@
 (local tree (require :formedit.tree))
 (local ts (require :nvim-treesitter.ts_utils))
 
-(fn delete-form []
+(fn delete-around-form []
   (let [node (ts.get_node_at_cursor)
         form (tree.get-form node)
         [start-row start-col end-row end-col] [(form:range)]]
     (vim.api.nvim_buf_set_text 0 start-row start-col end-row end-col {})))
 
-{: delete-form}
+(fn delete-inner-form [node]
+  (let [node (ts.get_node_at_cursor)
+        form (tree.get-form node)
+        [start-row start-col end-row end-col] [(form:range)]
+        offset (if (or (= :set_lit (form:type)) (= :anon_fn_lit (form:type)))
+                   2
+                   1)]
+    (vim.api.nvim_buf_set_text 0 start-row (+ start-col offset) end-row
+                               (- end-col 1) {})))
+
+{: delete-around-form : delete-inner-form}

fnl/spec/selection_spec.fnl

@@ -19,20 +19,53 @@
             (it :list
                 (fn []
                   (h.setup {:content "(1)" :cursor [1 1]})
-                  (selection.delete-form)
+                  (selection.delete-around-form)
                   (h.expect {:content "" :cursor [1 0]})))
             (it :vector
                 (fn []
                   (h.setup {:content "[1]" :cursor [1 1]})
-                  (selection.delete-form)
+                  (selection.delete-around-form)
                   (h.expect {:content "" :cursor [1 0]})))
             (it :set
                 (fn []
                   (h.setup {:content "#{1}" :cursor [1 1]})
-                  (selection.delete-form)
+                  (selection.delete-around-form)
                   (h.expect {:content "" :cursor [1 0]})))
             (it "anonymous function"
                 (fn []
                   (h.setup {:content "#(fn [x] x)" :cursor [1 1]})
-                  (selection.delete-form)
+                  (selection.delete-around-form)
+                  (h.expect {:content "" :cursor [1 0]})))
+            (it "delete multiple children"
+                (fn []
+                  (h.setup {:content "([1] [2])" :cursor [1 0]})
+                  (selection.delete-around-form)
                   (h.expect {:content "" :cursor [1 0]})))))
+
+(describe "delete inner"
+          (fn []
+            (it :list
+                (fn []
+                  (h.setup {:content "(1)" :cursor [1 1]})
+                  (selection.delete-inner-form)
+                  (h.expect {:content "()" :cursor [1 1]})))
+            (it :vector
+                (fn []
+                  (h.setup {:content "[1]" :cursor [1 1]})
+                  (selection.delete-inner-form)
+                  (h.expect {:content "[]" :cursor [1 1]})))
+            (it :set
+                (fn []
+                  (h.setup {:content "#{1}" :cursor [1 1]})
+                  (selection.delete-inner-form)
+                  (h.expect {:content "#{}" :cursor [1 1]})))
+            (it "anonymous function"
+                (fn []
+                  (h.setup {:content "#(fn [x] x)" :cursor [1 1]})
+                  (selection.delete-inner-form)
+                  (h.expect {:content "#()" :cursor [1 1]})))
+            (it "delete multiple children"
+                (fn []
+                  (h.setup {:content "([1] [2])" :cursor [1 0]})
+                  (selection.delete-inner-form)
+                  (h.expect {:content "()" :cursor [1 0]})))))