support vis' new option get-callback

1 files changed, 26 insertions, 28 deletions

diff --git a/init.lua b/init.lua
index ed421ab..321518e 100644
--- a/init.lua
+++ b/init.lua
@@ -1,4 +1,4 @@
--- Copyright (c) 2021-2024 Florian Fischer. All rights reserved.
+-- Copyright (c) 2021-2026 Florian Fischer. All rights reserved.
 --
 -- This file is part of vis-lspc.
 --
@@ -2092,41 +2092,39 @@ vis.events.subscribe(vis.events.QUIT, function()
   end
 end)
 
-vis:option_register('lspc-highlight-diagnostics', 'string', function(value)
-  lspc.highlight_diagnostics = value
-  return true
-end, 'How should lspc highlight available diagnostics')
+util.register_lspc_option('highlight-diagnostics', 'string',
+                          'How should lspc highlight available diagnostics')
 
-vis:option_register('lspc-menu-cmd', 'string', function(value)
-  lspc.menu_cmd = value
-  return true
-end, 'External tool vis-lspc uses to present choices in a menu')
+util.register_lspc_option('menu-cmd', 'string',
+                          'External tool vis-lspc uses to present choices in a menu')
 
-vis:option_register('lspc-confirm-cmd', 'string', function(value)
-  lspc.confirm_cmd = value
-  return true
-end, 'External tool vis-lspc uses to ask the user for confirmation')
+util.register_lspc_option('confirm-cmd', 'string',
+                          'External tool vis-lspc uses to ask the user for confirmation')
+
+util.register_lspc_option('message-level', 'number',
+                          'Message level to show in UI (for server messages)')
 
-vis:option_register('lspc-message-level', 'number', function(value)
-  lspc.message_level = value
+local function diagnostic_styles_set(name, _, value)
+  lspc.diagnostic_styles[name:sub(23)] = value
   return true
-end, 'Message level to show in UI (for server messages)')
+end
+
+local function diagnostic_styles_get(name)
+  return lspc.diagnostic_styles[name:sub(23)]
+end
 
-vis:option_register('lspc-diagnostic-style-error', 'string', function(value)
-  lspc.diagnostic_styles.error = value
-end, 'Style for diagnostic errors')
+util.register_lspc_option('diagnostic-style-error', 'string', 'Style for diagnostic errors',
+                          diagnostic_styles_set, diagnostic_styles_get)
 
-vis:option_register('lspc-diagnostic-style-warning', 'string', function(value)
-  lspc.diagnostic_styles.warning = value
-end, 'Style for diagnostic warnings')
+util.register_lspc_option('diagnostic-style-warning', 'string', 'Style for diagnostic warnings',
+                          diagnostic_styles_set, diagnostic_styles_get)
 
-vis:option_register('lspc-diagnostic-style-information', 'string', function(value)
-  lspc.diagnostic_styles.information = value
-end, 'Style for diagnostic information')
+util.register_lspc_option('diagnostic-style-information', 'string',
+                          'Style for diagnostic information', diagnostic_styles_set,
+                          diagnostic_styles_get)
 
-vis:option_register('lspc-diagnostic-style-hint', 'string', function(value)
-  lspc.diagnostic_styles.hint = value
-end, 'Style for diagnostic hints')
+util.register_lspc_option('diagnostic-style-hint', 'string', 'Style for diagnostic hints',
+                          diagnostic_styles_set, diagnostic_styles_get)
 
 dofile(source_path .. 'bindings.lua')
 return lspc