emacs: added treemacs

Signed-off-by: Miquel Sabaté Solà <msabate@suse.com>

1 files changed, 37 insertions, 1 deletions

diff --git a/.emacs.d/init.org b/.emacs.d/init.org
index cd64d61..ecceb5b 100644
--- a/.emacs.d/init.org
+++ b/.emacs.d/init.org
@@ -393,9 +393,17 @@ I'm using "Droid Sans Mono" simply because I've grown used to it.
             (set-face-attribute 'default t :font mssola-font)))
 #+END_SRC
 
-I've hacked my own theme called [[https://github.com/mssola/soria][soria]]. This theme combines the vim theme [[http://www.vim.org/scripts/script.php?script_id=2140][xoria256]] with the [[http://opensuse.github.io/branding-guidelines/][openSUSE branding guidelines]]. This theme lives directly inside of my =~/.emacs.d= directory because I link it from the local copy I have of its git repository.
+I've hacked my own theme called [[https://github.com/mssola/soria][soria]]. This theme combines the vim theme [[http://www.vim.org/scripts/script.php?script_id=2140][xoria256]] with the [[http://opensuse.github.io/branding-guidelines/][openSUSE branding guidelines]]. This theme lives directly inside of my =~/.emacs.d= directory because I link it from the local copy I have of its git repository. That being said, I also need to require =soria-theme-tree= for =treemacs= support. Thus, I add the path to my repository into GNU Emacs' =load-path=.
 
 #+BEGIN_SRC elisp
+(with-eval-after-load 'treemacs
+  (let ((soria-path (concat (getenv "HOME") "/src/github.com/mssola/soria")))
+    (when (file-directory-p soria-path)
+      (add-to-list 'load-path soria-path)
+
+      (require 'soria-theme-tree)
+      (soria-theme-tree-config))))
+
 (load-theme 'soria t)
 #+END_SRC
 
@@ -582,6 +590,34 @@ Other than that, the silver searcher is quite convenient as well. Ayo silver!
         ag-reuse-window t))
 #+END_SRC
 
+** Files tree
+
+I don't use file trees, but sometimes they are useful when exploring big projects you are not exactly acquainted with. Let's install =treemacs= for this, which looks like a reasonable project:
+
+#+BEGIN_SRC elisp
+(use-package treemacs
+  :defer t
+  :init
+  (setq treemacs-follow-after-init t)
+  :config
+  (progn
+    (treemacs-follow-mode t)
+    (treemacs-tag-follow-mode t)
+    (treemacs-filewatch-mode t)
+    (treemacs-git-mode 'deferred)))
+
+(use-package treemacs-evil
+  :after treemacs evil)
+
+(use-package treemacs-projectile
+  :ensure t
+  :after treemacs)
+
+(use-package treemacs-magit
+  :after treemacs magit
+  :ensure t)
+#+END_SRC
+
 * Completion
 
 Now, completion is pretty important for lazy bastards like me. It comes in two flavors: =helm= and =company=.