Using treemacs instead of neotree

2 files changed, 28 insertions, 37 deletions

diff --git a/lisp/general.el b/lisp/general.el
index 7092228..318b407 100644
--- a/lisp/general.el
+++ b/lisp/general.el
@@ -110,26 +110,18 @@
   )
 
 ;; Tree
-(require 'neotree)
-(setq neo-smart-open t)
-(setq projectile-switch-project-action 'neotree-projectile-action)
-(setq neo-theme (if (display-graphic-p) 'icons 'arrow))
-;; (evil-define-key 'normal neotree-mode-map (kbd "TAB") 'neotree-enter)
-;; (evil-define-key 'normal neotree-mode-map (kbd "SPC") 'neotree-quick-look)
-;; (evil-define-key 'normal neotree-mode-map (kbd "q") 'neotree-hide)
-;; (evil-define-key 'normal neotree-mode-map (kbd "RET") 'neotree-enter)
-;; (evil-define-key 'normal neotree-mode-map (kbd "g") 'neotree-refresh)
-;; (evil-define-key 'normal neotree-mode-map (kbd "n") 'neotree-next-line)
-;; (evil-define-key 'normal neotree-mode-map (kbd "p") 'neotree-previous-line)
-;; (evil-define-key 'normal neotree-mode-map (kbd "A") 'neotree-stretch-toggle)
-;; (evil-define-key 'normal neotree-mode-map (kbd "H") 'neotree-hidden-file-toggle)
-(defun my-neotree-mode-hook()
-	"Set the colors of neotree to match my personal taste."
-	(setq left-fringe-width 0)
-	(setq right-fringe-width 0)
+(use-package treemacs
+  :ensure t
+  :config
+  (add-hook 'treemacs-mode-hook treemacs-filewatch-mode)
+  (add-hook 'treemacs-mode-hook treemacs-git-mode)
   )
-(add-hook 'neotree-mode-hook 'my-neotree-mode-hook)
-(setq neo-window-width 36)
+
+(use-package treemacs-projectile
+  :ensure t
+  :after (treemacs projectile))
+
+(setq projectile-switch-project-action 'treemacs-add-and-display-current-project-exclusively)
 
 ;; Line highlighting
 (global-hl-line-mode 1)
@@ -174,16 +166,13 @@
 (bind-key* (kbd "M-.") 'xref-find-definitions)
 (bind-key* (kbd "C-x k") 'kill-this-buffer)
 (bind-key* (kbd "C-x b") 'electric-buffer-list)
-(bind-key* (kbd "C-;") 'neotree-toggle)
+(bind-key* (kbd "C-;") 'treemacs)
 
 (defun my-create-file (filename)
   "Create a file and refresh neotree.  FILENAME File to create."
   (interactive (list (read-file-name "Enter your file name:  " nil nil nil (file-name-nondirectory ""))))
   (make-empty-file filename)
-  (find-file filename)
-  (neotree-show)
-  (neotree-refresh)
-  (other-window -1))
+  (find-file filename))
 
 (bind-key* (kbd "M-n") 'my-create-file)
 
@@ -191,27 +180,19 @@
   "Create a directory and refresh neotree."
   (interactive)
   (call-interactively #'make-directory)
-  (neotree-show)
-  (neotree-refresh)
   (other-window -1))
 (bind-key* (kbd "M-N") 'my-create-directory)
 
 (defun my-delete-file ()
   "Delete a file and refresh neotree."
   (interactive)
-  (call-interactively #'delete-file)
-  (neotree-show)
-  (neotree-refresh)
-  (other-window -1))
+  (call-interactively #'delete-file))
 (bind-key* (kbd "M-d") 'my-delete-file)
 
 (defun my-delete-directory ()
   "Delete a file and refresh neotree."
   (interactive)
-  (call-interactively #'delete-directory)
-  (neotree-show)
-  (neotree-refresh)
-  (other-window -1))
+  (call-interactively #'delete-directory))
 (bind-key* (kbd "M-D") 'my-delete-directory)
 
 ;; source: http://steve.yegge.googlepages.com/my-dot-emacs-file
@@ -229,8 +210,8 @@
           (rename-buffer new-name)
           (set-visited-file-name new-name)
           (set-buffer-modified-p nil)
-          (neotree-show)
-          (neotree-refresh)
+          ;(neotree-show)
+          ;(neotree-refresh)
           (other-window -1))))))
 (bind-key* (kbd "M-r") 'my-rename-file)
 
diff --git a/lisp/text.el b/lisp/text.el
index 6467a4e..835f04d 100644
--- a/lisp/text.el
+++ b/lisp/text.el
@@ -2,15 +2,25 @@
 ;;; Code:
 (defun setup-text-mode ()
   "Disable word wrap in text mode."
+  ;(perfect-margin-mode 1)
   (setq word-wrap t)
   (require 'flyspell)
   (flyspell-mode 1)
-)
+  (set-face-attribute 'hl-line nil
+                      :box nil)
+  (display-line-numbers-mode -1)
+  )
+
+(use-package perfect-margin
+  :ensure t
+  :config
+  (add-hook 'text-mode-hook 'perfect-margin-mode))
 
 (add-hook 'text-mode-hook 'setup-text-mode)
 (require 'ispell)
 (setq ispell-program-name (executable-find "hunspell")
       ispell-dictionary "en_US")
 
+
 (provide 'text)
 ;;; text.el ends here