feat: add :list_scopes to Grapple app

lua/grapple/app.lua

@@ -459,6 +459,11 @@ function App:list_containers()
     return self.tag_manager:list()
 end
 
+---@return grapple.scope[]
+function App:list_scopes()
+    return self.scope_manager:list()
+end
+
 ---Convenience function to open content in a new floating window
 ---@param content grapple.tag_content | grapple.scope_content | grapple.container_content
 ---@return string? error

lua/grapple/scope_content.lua

@@ -71,16 +71,7 @@ function ScopeContent:sync(original, parsed) end
 
 ---@return grapple.window.entity[] | nil, string? error
 function ScopeContent:entities()
-    ---@param scope_a grapple.scope
-    ---@param scope_b grapple.scope
-    local function by_name(scope_a, scope_b)
-        return string.lower(scope_a.name) < string.lower(scope_b.name)
-    end
-
-    ---@type grapple.scope[]
-    local scopes = vim.tbl_values(self.app.scope_manager.scopes)
-    table.sort(scopes, by_name)
-
+    local scopes = self.app:list_scopes()
     local entities = {}
 
     for _, scope in ipairs(scopes) do

lua/grapple/scope_manager.lua

@@ -1,4 +1,5 @@
 local Scope = require("grapple.scope")
+local Util = require("grapple.util")
 
 ---@class grapple.scope_manager
 ---@field cache grapple.cache
@@ -15,10 +16,22 @@ function ScopeManager:new(cache)
     }, self)
 end
 
+---@return boolean
 function ScopeManager:exists(name)
     return self.scopes[name] ~= nil
 end
 
+---@return grapple.scope[]
+function ScopeManager:list()
+    ---@param scope_a grapple.scope
+    ---@param scope_b grapple.scope
+    local function by_name(scope_a, scope_b)
+        return string.lower(scope_a.name) < string.lower(scope_b.name)
+    end
+
+    return Util.sort(vim.tbl_values(self.scopes), by_name)
+end
+
 ---@param name string scope name
 ---@return grapple.scope | nil, string? error
 function ScopeManager:get(name)

lua/grapple/util.lua

@@ -103,6 +103,24 @@ function Util.with_prefix(prefix)
     end
 end
 
+---Transformer that picks out the requested values
+---@generic T, V
+---@param keep T | T[]
+---@return fun(value: table): V | V[]
+function Util.pick(keep)
+    keep = type(keep) == "table" and keep or { keep }
+
+    return function(value)
+        local kept = {}
+        for k, v in pairs(value) do
+            if vim.tbl_contains(keep, k) then
+                table.insert(kept, v)
+            end
+        end
+        return #keep == 1 and kept[1] or kept
+    end
+end
+
 ---Transformer adds a suffix to a string value
 ---@param suffix string
 ---@return fun(value: string): string

plugin/grapple.lua

@@ -107,7 +107,7 @@ vim.api.nvim_create_user_command(
             local argument_lookup = {
                 all = { "true", "false" },
                 direction = { "next", "prev" },
-                scope = Util.sort(vim.tbl_keys(app.scope_manager.scopes), Util.as_lower),
+                scope = vim.tbl_map(Util.pick("name"), app:list_scopes()),
                 style = Util.sort(vim.tbl_keys(app.settings.styles), Util.as_lower),
             }
 

tests/grapple/scope_manager_spec.lua

@@ -0,0 +1,14 @@
+local ScopeManager = require("grapple.scope_manager")
+local Util = require("grapple.util")
+
+describe("TagContent", function()
+    describe(".list", function()
+        it("returns a list of scopes, sorted by name", function()
+            local sm = ScopeManager:new()
+            sm:define("c", function() end)
+            sm:define("b", function() end)
+            sm:define("a", function() end)
+            assert.are.same({ "a", "b", "c" }, vim.tbl_map(Util.pick("name"), sm:list()))
+        end)
+    end)
+end)