Add LspSettingsStatus

autoload/lsp_settings/profile.vim

@@ -29,3 +29,39 @@ function! lsp_settings#profile#edit_local() abort
     setlocal nomodified
   endif
 endfunction
+
+let s:color_map = {
+\ 'exited': 'Error',
+\ 'starting': 'MoreMsg',
+\ 'failed': 'WarningMsg',
+\ 'running': 'Keyword',
+\ 'not running': 'NonText'
+\}
+
+function! lsp_settings#profile#status() abort
+  let l:settings = lsp_settings#settings()
+  let l:active_servers = lsp#get_whitelisted_servers()
+  for l:ft in keys(l:settings)
+    let l:servers = l:settings[l:ft]
+    for l:v in l:servers
+      if index(l:active_servers, l:v.command) != -1
+        let l:status = lsp#get_server_status(l:v.command)
+        echon l:v.command . ': '
+        exec 'echohl' s:color_map[l:status]
+        echon l:status
+        echohl None
+      elseif lsp_settings#executable(l:v.command)
+        echon l:v.command . ': '
+        echohl vimFilter
+        echon 'not running'
+        echohl None
+      else
+        echon l:v.command . ': '
+        echohl vimOption
+        echon 'not installed'
+        echohl None
+      endif
+      echo ''
+    endfor
+  endfor
+endfunction

plugin/lsp_settings.vim

@@ -10,6 +10,7 @@ let g:lsp_settings_root_markers = get(g:, 'lsp_settings_root_markers', [
       \ '.bzr/'
       \ ])
 
+command! -nargs=0 LspSettingsStatus call lsp_settings#profile#status()
 command! -nargs=0 LspSettingsLocalEdit call lsp_settings#profile#edit_local()
 
 call lsp_settings#init()