raise form

fnl/formedit/raise.fnl

@@ -0,0 +1,11 @@
+(local find (require :formedit.find))
+(local ts (require :vim.treesitter))
+
+(fn form []
+  (let [form (find.form)
+        parent (form:parent)
+        text (ts.get_node_text form 0)
+        [start-row start-col end-row end-col] [(parent:range)]]
+    (vim.api.nvim_buf_set_text 0 start-row start-col end-row end-col [text])))
+
+{: form}

fnl/spec/raise_spec.fnl

@@ -0,0 +1,16 @@
+(local {: describe : it : before_each} (require :plenary.busted))
+(local h (require :spec.helper))
+(local raise (require :formedit.raise))
+
+(local keymap :<localleader>o)
+
+(describe :raise
+          (fn []
+            (before_each (fn []
+                           (set vim.g.maplocalleader keymap)
+                           (vim.keymap.set :n keymap raise.form)))
+            (it :form
+                (fn []
+                  (h.setup {:content "(1 (2))" :cursor [1 4]})
+                  (h.feedkeys keymap)
+                  (h.expect {:content "(2)" :cursor [1 2]})))))

fnl/spec/wrap_spec.fnl

@@ -13,9 +13,11 @@
                 (fn []
                   (h.setup {:content "(1)" :cursor [1 0]})
                   (h.feedkeys keymap)
-                  (h.expect {:content "( (1))" :cursor [1 1]})))
+                  (h.expect {:content "( (1))" :cursor [1 0]})))
             (it "sub form"
                 (fn []
                   (h.setup {:content "(1 (2))" :cursor [1 4]})
                   (h.feedkeys keymap)
-                  (h.expect {:content "(1 ( (2)))" :cursor [1 4]})))))
+                  (h.expect {:content "(1 ( (2)))" :cursor [1 3]})))))
+
+(print :foo)