2018-05-12 02:16:36 +08:00
|
|
|
;;; ui/neotree/autoload.el -*- lexical-binding: t; -*-
|
2017-02-13 17:54:36 +08:00
|
|
|
|
2018-02-11 17:36:52 +08:00
|
|
|
;; `neotree-show' and `neotree-find' don't respect the current project, and open
|
|
|
|
;; neotree in `default-directory'. `+neotree/open' and `neotree/find-this-file'
|
|
|
|
;; will ensure the neotree pane is always rooted in the project root.
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
(defun +neotree/open ()
|
|
|
|
"Open the neotree window in the current project."
|
|
|
|
(interactive)
|
2018-02-15 09:54:53 +08:00
|
|
|
(let ((project-root (doom-project-root 'nocache)))
|
2018-02-11 17:36:52 +08:00
|
|
|
(require 'neotree)
|
|
|
|
(if (neo-global--window-exists-p)
|
|
|
|
(neotree-hide)
|
|
|
|
(neotree-dir project-root))))
|
|
|
|
|
2017-02-13 17:54:36 +08:00
|
|
|
;;;###autoload
|
2018-02-11 17:36:52 +08:00
|
|
|
(defun +neotree/find-this-file ()
|
|
|
|
"Open the neotree window in the current project, and find the current file."
|
2017-02-13 17:54:36 +08:00
|
|
|
(interactive)
|
2017-06-08 17:47:56 +08:00
|
|
|
(let ((path buffer-file-name)
|
2018-02-01 14:31:40 +08:00
|
|
|
(project-root (doom-project-root 'nocache)))
|
2017-06-08 17:47:56 +08:00
|
|
|
(require 'neotree)
|
|
|
|
(cond ((and (neo-global--window-exists-p)
|
2017-06-15 03:04:17 +08:00
|
|
|
(get-buffer-window neo-buffer-name t))
|
2018-01-02 10:19:49 +08:00
|
|
|
(neotree-find path project-root)
|
|
|
|
(neotree-refresh))
|
2017-06-08 17:47:56 +08:00
|
|
|
((not (and (neo-global--window-exists-p)
|
2017-02-20 07:14:46 +08:00
|
|
|
(equal (file-truename (neo-global--with-buffer neo-buffer--start-node))
|
2017-06-08 17:47:56 +08:00
|
|
|
(file-truename project-root))))
|
2017-09-23 06:45:41 +08:00
|
|
|
(neotree-dir project-root)
|
|
|
|
(neotree-find path project-root))
|
2018-01-02 10:19:49 +08:00
|
|
|
(t
|
|
|
|
(neotree-find path project-root)))))
|
2017-02-13 17:54:36 +08:00
|
|
|
|
2017-05-07 00:12:04 +08:00
|
|
|
;;;###autoload
|
2017-06-05 06:32:35 +08:00
|
|
|
(defun +neotree/collapse-or-up ()
|
2017-05-07 00:12:04 +08:00
|
|
|
"Collapse an expanded directory node or go to the parent node."
|
|
|
|
(interactive)
|
2017-12-11 03:49:52 +08:00
|
|
|
(when-let* ((node (neo-buffer--get-filename-current-line)))
|
2017-05-17 07:32:39 +08:00
|
|
|
(if (file-directory-p node)
|
|
|
|
(if (neo-buffer--expanded-node-p node)
|
2017-06-05 06:32:35 +08:00
|
|
|
(+neotree/collapse)
|
2017-05-17 07:32:39 +08:00
|
|
|
(neotree-select-up-node))
|
|
|
|
(neotree-select-up-node))))
|
2017-05-07 00:12:04 +08:00
|
|
|
|
|
|
|
;;;###autoload
|
2017-06-05 06:32:35 +08:00
|
|
|
(defun +neotree/collapse ()
|
2017-05-07 00:12:04 +08:00
|
|
|
"Collapse a neotree node."
|
|
|
|
(interactive)
|
2017-12-11 03:49:52 +08:00
|
|
|
(when-let* ((node (neo-buffer--get-filename-current-line)))
|
2017-05-17 07:32:39 +08:00
|
|
|
(when (file-directory-p node)
|
|
|
|
(neo-buffer--set-expand node nil)
|
|
|
|
(neo-buffer--refresh t))
|
|
|
|
(when neo-auto-indent-point
|
|
|
|
(neo-point-auto-indent))))
|
2017-05-07 00:12:04 +08:00
|
|
|
|
|
|
|
;;;###autoload
|
2017-06-05 06:32:35 +08:00
|
|
|
(defun +neotree/expand-or-open ()
|
2017-05-07 00:12:04 +08:00
|
|
|
"Expand or open a neotree node."
|
|
|
|
(interactive)
|
2017-12-11 03:49:52 +08:00
|
|
|
(when-let* ((node (neo-buffer--get-filename-current-line)))
|
2017-06-08 17:47:56 +08:00
|
|
|
(cond ((file-directory-p node)
|
|
|
|
(neo-buffer--set-expand node t)
|
|
|
|
(neo-buffer--refresh t)
|
|
|
|
(when neo-auto-indent-point
|
|
|
|
(forward-line)
|
|
|
|
(neo-point-auto-indent)))
|
|
|
|
(t
|
|
|
|
(call-interactively #'neotree-enter)))))
|