Delete around form

fnl/formedit/selection.fnl

@@ -0,0 +1,10 @@
+(local tree (require :formedit.tree))
+(local ts (require :nvim-treesitter.ts_utils))
+
+(fn delete-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}

fnl/spec/selection_spec.fnl

@@ -0,0 +1,38 @@
+(local {: describe : it} (require :plenary.busted))
+(local h (require :spec.helper))
+(local tree (require :formedit.tree))
+(local assert (require :luassert.assert))
+(local selection (require :formedit.selection))
+(local ts (require :nvim-treesitter.ts_utils))
+
+(describe :selection
+          (fn []
+            (it :list
+                (fn []
+                  (h.setup {:content "(a)" :cursor [1 1]})
+                  (let [node (ts.get_node_at_cursor)
+                        form (tree.get-form node)]
+                    (assert.are.same [0 0 0 3] [(form:range)]))))))
+
+(describe "delete around"
+          (fn []
+            (it :list
+                (fn []
+                  (h.setup {:content "(1)" :cursor [1 1]})
+                  (selection.delete-form)
+                  (h.expect {:content "" :cursor [1 0]})))
+            (it :vector
+                (fn []
+                  (h.setup {:content "[1]" :cursor [1 1]})
+                  (selection.delete-form)
+                  (h.expect {:content "" :cursor [1 0]})))
+            (it :set
+                (fn []
+                  (h.setup {:content "#{1}" :cursor [1 1]})
+                  (selection.delete-form)
+                  (h.expect {:content "" :cursor [1 0]})))
+            (it "anonymous function"
+                (fn []
+                  (h.setup {:content "#(fn [x] x)" :cursor [1 1]})
+                  (selection.delete-form)
+                  (h.expect {:content "" :cursor [1 0]})))))

justfile

@@ -33,7 +33,6 @@ test: prepare
     -u lua/spec/init.lua \
     -c "PlenaryBustedDirectory lua/spec { minimal_init='lua/spec/init.lua', sequential=true }"
 
-
 file feature: prepare
   ./.build/nvim/bin/nvim --version
   ./.build/nvim/bin/nvim \
@@ -52,4 +51,3 @@ focus feature: prepare
 
 watch feature:
   fswatch -o lua/formedit/{{feature}}.lua lua/spec/{{feature}}_spec.lua | xargs -n1 -I{} just file {{feature}}
-