Merge pull request #9 from kurnevsky/lsp-treemacs-symbols-position-params

Add symbols position params and use treemacs variables as defaults

Author: yyoncho

lsp-treemacs.el

@@ -43,11 +43,16 @@
   :tag "Language Server")
 
 (defvar lsp-treemacs-deps-position-params
-  '((side . left)
+  `((side . ,treemacs-position)
     (slot . 1)
-    (window-width . 35))
+    (window-width . ,treemacs-width))
   "The params which will be used by `display-buffer-in-side-window'.")
 
+(defvar lsp-treemacs-symbols-position-params
+  `((side . ,treemacs-position)
+    (slot . 2)
+    (window-width . ,treemacs-width)))
+
 (defface lsp-treemacs-project-root-error
   '((t :inherit font-lock-keyword-face))
   "Face used for highlighting symbols being read."
@@ -579,12 +584,11 @@
 (defun lsp-treemacs-symbols ()
   "Show symbols view."
   (interactive)
-  (let ((original-buffer (current-buffer))
-        (position '((side . left) (slot . 2))))
+  (let ((original-buffer (current-buffer)))
     (if-let (buf (get-buffer "*LSP Symbols List*"))
-        (select-window (display-buffer-in-side-window buf position))
+        (select-window (display-buffer-in-side-window buf lsp-treemacs-symbols-position-params))
       (let* ((buf (get-buffer-create "*LSP Symbols List*"))
-             (window (display-buffer-in-side-window buf position)))
+             (window (display-buffer-in-side-window buf lsp-treemacs-symbols-position-params)))
         (select-window window)
         (set-window-dedicated-p window t)
         (treemacs-initialize)