todo

README.md

@@ -8,6 +8,10 @@ Paredit in fennel
 ./scripts/nfnl   # To download nfnl
 ```
 
+[ ] - inner select
+[ ] - root select
+[ ] - slurp/barf
+
 ## Unlicensed
 
 Find the full [Unlicense][unlicense] in the `UNLICENSE` file, but here's a

docs/sample.clj

@@ -1,3 +1,6 @@
 (+ 1 2 3)
 [1 2 3]
 #{1 2 3 (+ 2 (+ 1 2))}
+
+(defn foo [x] x)
+(defn bar [x] x)

fnl/formedit/init.fnl

@@ -1,4 +1,3 @@
-
 (local find (require :formedit.find))
 (local insertion (require :formedit.insertion))
 (local select (require :formedit.select))

fnl/spec/delete_around_spec.fnl

@@ -2,7 +2,7 @@
 (local h (require :spec.helper))
 (local select (require :formedit.select))
 
-(describe "delete around"
+(describe "delete around form"
           (fn []
             (before_each (fn []
                            (vim.keymap.set :o :af select.form)))
@@ -51,6 +51,11 @@
                   (h.setup {:content "(+ 1 (+ 2 3))" :cursor [1 0]})
                   (h.feedkeys :daF)
                   (h.expect {:content "" :cursor [1 0]})))
+            (it "cursor in sub form deletes root"
+                (fn []
+                  (h.setup {:content "(+ 1 (+ 2 3))" :cursor [1 7]})
+                  (h.feedkeys :daF)
+                  (h.expect {:content "" :cursor [1 0]})))
             (it "cursor in sub form deletes root"
                 (fn []
                   (h.setup {:content "(+ 1 (+ 2 3))" :cursor [1 7]})