mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
fe6a4e7ce5
I've set `lexical-binding` to `nil` in all Emacs Lisp files to suppress the warnings introduced in Emacs 31 requiring all elisp files to have a `lexical-binding` comment. This retains the default behavior of dynamic binding when no `lexical-binding` comment is present. With it set to `t` across the board, various things break, and fixing those is a task for another day.
52 lines
1.4 KiB
EmacsLisp
52 lines
1.4 KiB
EmacsLisp
;;; siren-neotree.el --- jimeh's Emacs Siren: neotree configuration. -*- lexical-binding: nil; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for neotree.
|
|
|
|
;;; Code:
|
|
|
|
(require 'siren-all-the-icons)
|
|
(require 'siren-projectile)
|
|
|
|
(use-package neotree
|
|
:general
|
|
("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)
|
|
|
|
:preface
|
|
(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
|