lucas/dotfiles
1
0
Fork 0
Code Activity

feat(emacs): add project-level neotree handling

Browse source 
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2024-10-17 15:54:34 -04:00
parent 5fda10d68b
commit 61eeb100f6
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
2 changed files with 24 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

27
.emacs.d/include/misc.el
View file

@ -190,6 +190,20 @@
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
;; Neotree
(defun neotree-toggle-dir-or-project ()
"By default, toggle the directory at the project level, with prefix current."
(interactive)
(if (eq current-prefix-arg nil)
(neotree-toggle-project)
(neotree-toggle-current-directory)))
(defun neotree-toggle-project ()
"Toggle neotree at the project level if the project exists, otherwise current."
(interactive)
(if (projectile-project-p)
(neotree-toggle-directory (projectile-project-root))
(neotree-toggle-current-directory)))
(defun neotree-toggle-current-directory ()
"Toggle neotree at the current directory."
(interactive)
@ -198,10 +212,15 @@
(and (eq major-mode 'dired-mode) (dired-current-directory))
(and (eq major-mode 'magit-status-mode) (magit-toplevel))
"~")))
(if (and (fboundp 'neo-global--window-exists-p)
(neo-global--window-exists-p))
(neotree-hide)
(neotree-dir current-directory))))
(neotree-toggle-directory current-directory)))
(defun neotree-toggle-directory (dir)
"Toggle neotree at the given DIR."
(if (and (fboundp 'neo-global--window-exists-p)
(neo-global--window-exists-p))
(neotree-hide)
(neotree-dir dir)))
;; hledger
(setq hledger-currency-string "$")