Add clojure_sublimed_select_topmost_form command

Author: tonsky

CHANGELOG.md

@@ -1,6 +1,7 @@
 ### WIP
 
 - Clarified some symbol/keyword edge cases in syntax
+- Add `clojure_sublimed_select_topmost_form` command
 
 ### 4.3.1 - Nov 4, 2024
 

Clojure Sublimed Light.sublime-color-scheme

@@ -35,9 +35,9 @@
         "bracket_contents_foreground": "var(active)",
         "tags_options":                "underline",
         "tags_foreground":             "var(active)",
-        "gutter":                      "#F8F8F8",
-        "gutter_foreground":           "#DDDDDD",
-        "gutter_foreground_highlight": "#DDDDDD",
+        // "gutter":                      "#E6E6E6",
+        "gutter_foreground":           "#CCC",
+        "gutter_foreground_highlight": "#CCC",
     },
     "rules":
     [   {"name":       "Strings",

Default.sublime-commands

@@ -80,6 +80,10 @@
         "caption": "Clojure Sublimed: Pretty-print selection",
         "command": "clojure_sublimed_pretty_print"
     },
+    {
+        "caption": "Clojure Sublimed: Select topmost form",
+        "command": "clojure_sublimed_select_topmost_form"
+    },
     {
         "caption": "Clojure Sublimed: Toggle comment",
         "command": "clojure_sublimed_toggle_comment"

cs_indent.py

@@ -159,6 +159,13 @@ def run(self, edit):
             formatted = cs_printer.format(form, node, limit = cs_common.wrap_width(view))
             view.replace(edit, region, formatted)
 
+class ClojureSublimedSelectTopmostFormCommand(sublime_plugin.TextCommand):
+    def run(self, edit):
+        view = self.view
+        sel = view.sel()
+        for region in [r for r in sel]:
+            sel.add(cs_parser.topmost_form(view, region.begin()))
+
 def cljfmt_indent(view, point):
     i = None
     try: