Merge pull request #53 from emacs-lsp/add-lsp-treemacs-get-icon

Add wrapper to get icon value

Author: ericdallo

lsp-treemacs-themes.el

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

lsp-treemacs.el

@@ -102,10 +102,6 @@
   "Severity level for `lsp-treemacs-error-list-mode'. 1 (highest) to 3 (lowest)"
   :type 'number)
 
-(defcustom lsp-treemacs-theme "Default"
-  "The `lsp-treemacs' theme."
-  :type 'string)
-
 (defun lsp-treemacs--match-diagnostic-severity (diagnostic)
   (<= (lsp:diagnostic-severity? diagnostic)
       (prefix-numeric-value lsp-treemacs-error-list-severity)))
@@ -386,6 +382,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)