Implement Splice Sexp Paredit command #9

Author: eerohele

paredit.py

@@ -299,3 +299,20 @@ def raise_sexp(view, edit):
             element = find_next_element(view, point)
             view.replace(edit, innermost, view.substr(element))
             view.run_command('tutkain_indent_region', {'prune': True})
+
+
+def splice_sexp(view, edit):
+    for region, _ in iterate(view):
+        point = region.begin()
+
+        innermost = sexp.innermost(view, point, absorb=True, edge=False)
+
+        open_point = sexp.find_point(
+            view, innermost.begin(), lambda p: view.substr(p) in sexp.OPEN or view.substr(p) in '"'
+        ) + 1
+
+        # Erase the close character
+        view.erase(edit, sublime.Region(innermost.end(), innermost.end() - 1))
+        # Erase one or more open characters
+        view.erase(edit, sublime.Region(innermost.begin(), open_point))
+        view.run_command('tutkain_indent_region', {'prune': True})

tests/test_paredit.py

@@ -427,3 +427,22 @@ def test_raise_sexp(self):
         self.set_selections((1, 1))
         self.view.run_command('tutkain_paredit_raise_sexp')
         self.assertEquals('"b"', self.view_content())
+
+    def test_splice_sexp(self):
+        self.set_view_content('(a (b c) d) (e (f g) h)')
+        self.set_selections((5, 5), (17, 17))
+        self.view.run_command('tutkain_paredit_splice_sexp')
+        self.assertEquals('(a b c d) (e f g h)', self.view_content())
+        self.assertEquals([(4, 4), (14, 14)], self.selections())
+
+        self.set_view_content('#{1 2 3}')
+        self.set_selections((2, 2))
+        self.view.run_command('tutkain_paredit_splice_sexp')
+        self.assertEquals('1 2 3', self.view_content())
+        self.assertEquals([(0, 0)], self.selections())
+
+        self.set_view_content('"a b"')
+        self.set_selections((1, 1))
+        self.view.run_command('tutkain_paredit_splice_sexp')
+        self.assertEquals('a b', self.view_content())
+        self.assertEquals([(0, 0)], self.selections())

tutkain.py

@@ -587,6 +587,11 @@ def run(self, edit):
         paredit.raise_sexp(self.view, edit)
 
 
+class TutkainPareditSpliceSexpCommand(sublime_plugin.TextCommand):
+    def run(self, edit):
+        paredit.splice_sexp(self.view, edit)
+
+
 class TutkainCycleCollectionTypeCommand(sublime_plugin.TextCommand):
     def run(self, edit):
         sexp.cycle_collection_type(self.view, edit)