;;; siren-neotree.el --- jimeh's Emacs Siren: neotree configuration.

;;; Commentary:

;; Basic configuration for neotree.

;;; Code:

(require 'siren-all-the-icons)
(require 'siren-projectile)

(use-package neotree
  :bind
  ("C-x C-p" . neotree-toggle)
  ("C-x p" . neotree-project-dir)

  :custom
  (neo-autorefresh t)
  (neo-force-change-root t)
  (neo-mode-line-type 'default)
  (neo-show-hidden-files t)
  (neo-show-updir-line nil)
  (neo-smart-open nil)
  (neo-theme (if window-system 'icons 'ascii))
  (neo-toggle-window-keep-p t)
  (neo-vc-integration '(face char))
  (neo-window-width 54)

  :init
  (defun neotree-project-dir ()
    "Open NeoTree using the project root, using find-file-in-project,
or the current buffer directory."
    (interactive)
    (let ((project-dir (ignore-errors (projectile-project-root)))
          (file-name (buffer-file-name))
          (neo-smart-open nil))
      (neotree-show)
      (if project-dir (neotree-dir project-dir))
      (if file-name (neotree-find file-name))))

  (defun neotree-project-dir-toggle ()
    "Toggle opening NeoTree using the project root, using find-file-in-project,
or the current buffer directory."
    (interactive)
    (if (and (fboundp 'neo-global--window-exists-p)
             (neo-global--window-exists-p))
        (neotree-hide)
      (neotree-project-dir))))

(provide 'siren-neotree)
;;; siren-neotree.el ends here