Add wrapper to get icon value

Author: ericdallo

lsp-treemacs-themes.el

@@ -26,6 +26,10 @@
 (require 'treemacs)
 (require 'treemacs-themes)
 
+(defun lsp-treemacs-current-theme-name ()
+  "Return the current treemacs theme name."
+  (treemacs-theme->name (treemacs-current-theme)))
+
 (treemacs-modify-theme "Default"
   :icon-directory (f-join (f-dirname (or load-file-name buffer-file-name)) "icons/vscode")
   :config

lsp-treemacs.el

@@ -386,6 +386,10 @@
     (25 'operator)
     (26 'template)))
 
+(defun lsp-treemacs-get-icon (icon-name)
+  "Get the treemacs ICON using current theme."
+  (treemacs-get-icon-value icon-name nil (lsp-treemacs-current-theme-name)))
+
 (defun lsp-treemacs-symbol-icon (kind)
   "Get icon for `kind'."
   (treemacs-get-icon-value (lsp-treemacs-symbol-kind->icon kind)