+++ /dev/null
-/* XPM */
-static char * close_xpm[] = {
-"16 22 15 1",
-" c None",
-". c #848400",
-"+ c #E7E79C",
-"@ c #E7E794",
-"# c #DEDE8C",
-"$ c #ADAD39",
-"% c #ADAD42",
-"& c #B5B54A",
-"* c #B5B552",
-"= c #BDBD5A",
-"- c #9C9C29",
-"; c #A5A531",
-"> c #C6C663",
-", c #C6C66B",
-"' c #CECE73",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" .... ",
-".+@@#....... ",
-".....$%%&&*=. ",
-".-;;$%%&&*==. ",
-".;;$%%&&*===. ",
-".;$%%&&*===>. ",
-".$%%&&*===>,. ",
-".%%&&*===>,,. ",
-".%&&*===>,,'. ",
-"............. ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" "};
+++ /dev/null
-/* XPM */
-static char * leaf_xpm[] = {
-"16 22 9 1",
-" c None",
-". c #424242",
-"+ c #949494",
-"@ c #9C9C9C",
-"# c #A5A5A5",
-"$ c #ADADAD",
-"% c #848484",
-"& c #B5B5B5",
-"* c #BDBDBD",
-" ",
-" ",
-" ",
-" ",
-" ",
-"....... ",
-".++@@#.. ",
-".+@@##.$. ",
-".@@###.... ",
-".@%%%+%$&. ",
-".###$$$&&. ",
-".#%+%%%&*. ",
-".#$$$&&**. ",
-".$%%+%%**. ",
-".$$&&****. ",
-".$&&*****. ",
-".......... ",
-" ",
-" ",
-" ",
-" ",
-" "};
+++ /dev/null
-/* XPM */
-static char * open_xpm[] = {
-"16 22 14 1",
-" c None",
-". c #848400",
-"+ c #D6D67B",
-"@ c #CECE7B",
-"# c #CECE73",
-"$ c #C6C66B",
-"% c #BDBD5A",
-"& c #BDBD52",
-"* c #ADAD39",
-"= c #ADAD42",
-"- c #B5B54A",
-"; c #C6C663",
-"> c #CECE6B",
-", c #A5A5C6",
-" ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" .... ",
-".+@@#..... ",
-".@@##$$%%&. ",
-".@#.......... ",
-".#.*==--&%%;;. ",
-".#.==--&%%;;. ",
-"..==--&%%;;$. ",
-"..=--&%%;;$. ",
-".=--&%%;;$>. ",
-"........... ",
-" ",
-" ",
-" ",
-" ",
-" ",
-" "};
+++ /dev/null
-;;; neotree-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
-;;
-;;; Code:
-
-(add-to-list 'load-path (directory-file-name
- (or (file-name-directory #$) (car load-path))))
-
-\f
-;;;### (autoloads nil "neotree" "neotree.el" (0 0 0 0))
-;;; Generated autoloads from neotree.el
-
-(autoload 'neotree-find "neotree" "\
-Quick select node which specified PATH in NeoTree.
-If path is nil and no buffer file name, then use DEFAULT-PATH,
-
-\(fn &optional PATH DEFAULT-PATH)" t nil)
-
-(autoload 'neotree-projectile-action "neotree" "\
-Integration with `Projectile'.
-
-Usage:
- (setq projectile-switch-project-action 'neotree-projectile-action).
-
-When running `projectile-switch-project' (C-c p p), `neotree' will change root
-automatically." t nil)
-
-(autoload 'neotree-toggle "neotree" "\
-Toggle show the NeoTree window." t nil)
-
-(autoload 'neotree-show "neotree" "\
-Show the NeoTree window." t nil)
-
-(autoload 'neotree-hide "neotree" "\
-Close the NeoTree window." t nil)
-
-(autoload 'neotree-dir "neotree" "\
-Show the NeoTree window, and change root to PATH.
-
-\(fn PATH)" t nil)
-
-(defalias 'neotree 'neotree-show "\
-Show the NeoTree window.")
-
-(register-definition-prefixes "neotree" '("neo" "off-p"))
-
-;;;***
-\f
-;;;### (autoloads nil nil ("neotree-pkg.el") (0 0 0 0))
-
-;;;***
-\f
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; coding: utf-8
-;; End:
-;;; neotree-autoloads.el ends here
+++ /dev/null
-(define-package "neotree" "20200324.1946" "A tree plugin like NerdTree for Vim"
- '((cl-lib "0.5"))
- :commit "98fe21334affaffe2334bf7c987edaf1980d2d0b" :authors
- '(("jaypei" . "jaypei97159NOSPAMgmail.com"))
- :maintainers
- '(("jaypei" . "jaypei97159NOSPAMgmail.com"))
- :maintainer
- '("jaypei" . "jaypei97159NOSPAMgmail.com")
- :url "https://github.com/jaypei/emacs-neotree")
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
+++ /dev/null
-;;; neotree.el --- A tree plugin like NerdTree for Vim
-
-;; Copyright (C) 2014 jaypei
-
-;; Author: jaypei <jaypei97159NOSPAMgmail.com>
-;; URL: https://github.com/jaypei/emacs-neotree
-;; Version: 0.5.1
-;; Package-Requires: ((cl-lib "0.5"))
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; To use this file, put something like the following in your
-;; ~/.emacs:
-;;
-;; (add-to-list 'load-path "/directory/containing/neotree/")
-;; (require 'neotree)
-;;
-;; Type M-x neotree to start.
-;;
-;; To set options for NeoTree, type M-x customize, then select
-;; Applications, NeoTree.
-;;
-
-;;; Code:
-
-(require 'cl-lib)
-
-;;
-;; Constants
-;;
-
-(defconst neo-buffer-name " *NeoTree*"
- "Name of the buffer where neotree shows directory contents.")
-
-(defconst neo-dir
- (expand-file-name (if load-file-name
- (file-name-directory load-file-name)
- default-directory)))
-
-(defconst neo-header-height 5)
-
-(eval-and-compile
-
- ;; Added in Emacs 24.3
- (unless (fboundp 'user-error)
- (defalias 'user-error 'error))
-
- ;; Added in Emacs 24.3 (mirrors/emacs@b335efc3).
- (unless (fboundp 'setq-local)
- (defmacro setq-local (var val)
- "Set variable VAR to value VAL in current buffer."
- (list 'set (list 'make-local-variable (list 'quote var)) val)))
-
- ;; Added in Emacs 24.3 (mirrors/emacs@b335efc3).
- (unless (fboundp 'defvar-local)
- (defmacro defvar-local (var val &optional docstring)
- "Define VAR as a buffer-local variable with default value VAL.
-Like `defvar' but additionally marks the variable as being automatically
-buffer-local wherever it is set."
- (declare (debug defvar) (doc-string 3))
- (list 'progn (list 'defvar var val docstring)
- (list 'make-variable-buffer-local (list 'quote var))))))
-
-;; Add autoload function for vc (#153).
-(autoload 'vc-responsible-backend "vc.elc")
-
-;;
-;; Macros
-;;
-
-(defmacro neo-util--to-bool (obj)
- "If OBJ is non-nil, return t, else return nil."
- `(and ,obj t))
-
-(defmacro neo-global--with-buffer (&rest body)
- "Execute the forms in BODY with global NeoTree buffer."
- (declare (indent 0) (debug t))
- `(let ((neotree-buffer (neo-global--get-buffer)))
- (unless (null neotree-buffer)
- (with-current-buffer neotree-buffer
- ,@body))))
-
-(defmacro neo-global--with-window (&rest body)
- "Execute the forms in BODY with global NeoTree window."
- (declare (indent 0) (debug t))
- `(save-selected-window
- (neo-global--select-window)
- ,@body))
-
-(defmacro neo-global--when-window (&rest body)
- "Execute the forms in BODY when selected window is NeoTree window."
- (declare (indent 0) (debug t))
- `(when (eq (selected-window) neo-global--window)
- ,@body))
-
-(defmacro neo-global--switch-to-buffer ()
- "Switch to NeoTree buffer."
- `(let ((neotree-buffer (neo-global--get-buffer)))
- (unless (null neotree-buffer)
- (switch-to-buffer neotree-buffer))))
-
-(defmacro neo-buffer--with-editing-buffer (&rest body)
- "Execute BODY in neotree buffer without read-only restriction."
- `(let (rlt)
- (neo-global--with-buffer
- (setq buffer-read-only nil)
- (setq rlt (progn ,@body))
- (setq buffer-read-only t))
- rlt))
-
-(defmacro neo-buffer--with-resizable-window (&rest body)
- "Execute BODY in neotree window without `window-size-fixed' restriction."
- `(let (rlt)
- (neo-global--with-buffer
- (neo-buffer--unlock-width))
- (setq rlt (progn ,@body))
- (neo-global--with-buffer
- (neo-buffer--lock-width))
- rlt))
-
-(defmacro neotree-make-executor (&rest fn-form)
- "Make an open event handler, FN-FORM is event handler form."
- (let* ((get-args-fn
- (lambda (sym) (or (plist-get fn-form sym) (lambda (&rest _)))))
- (file-fn (funcall get-args-fn :file-fn))
- (dir-fn (funcall get-args-fn :dir-fn)))
- `(lambda (&optional arg)
- (interactive "P")
- (neo-global--select-window)
- (neo-buffer--execute arg ,file-fn ,dir-fn))))
-
-
-;;
-;; Customization
-;;
-
-(defgroup neotree nil
- "Options for neotree."
- :prefix "neo-"
- :group 'files)
-
-(defgroup neotree-vc-options nil
- "Neotree-VC customizations."
- :prefix "neo-vc-"
- :group 'neotree
- :link '(info-link "(neotree)Configuration"))
-
-(defgroup neotree-confirmations nil
- "Neotree confirmation customizations."
- :prefix "neo-confirm-"
- :group 'neotree)
-
-(defcustom neo-window-position 'left
- "*The position of NeoTree window."
- :group 'neotree
- :type '(choice (const left)
- (const right)))
-
-(defcustom neo-display-action '(neo-default-display-fn)
- "*Action to use for displaying NeoTree window.
-If you change the action so it doesn't use
-`neo-default-display-fn', then other variables such as
-`neo-window-position' won't be respected when opening NeoTree
-window."
- :type 'sexp
- :group 'neotree)
-
-(defcustom neo-create-file-auto-open nil
- "*If non-nil, the file will auto open when created."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-banner-message nil
- "*The banner message of neotree window."
- :type 'string
- :group 'neotree)
-
-(defcustom neo-show-updir-line t
- "*If non-nil, show the updir line (..)."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-show-slash-for-folder t
- "*If non-nil, show the slash at the end of folder (folder/)"
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-reset-size-on-open nil
- "*If non-nil, the width of the noetree window will be reseted every time a file is open."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-theme 'classic
- "*The tree style to display.
-`classic' use icon to display, it only it suitable for GUI mode.
-`ascii' is the simplest style, it will use +/- to display the fold state,
-it suitable for terminal.
-`arrow' use unicode arrow.
-`nerd' use the nerdtree indentation mode and arrow."
- :group 'neotree
- :type '(choice (const classic)
- (const ascii)
- (const arrow)
- (const icons)
- (const nerd)))
-
-(defcustom neo-mode-line-type 'neotree
- "*The mode-line type to display, `default' is a non-modified mode-line, \
-`neotree' is a compact mode-line that shows useful information about the
- current node like the parent directory and the number of nodes,
-`custom' uses the format stored in `neo-mode-line-custom-format',
-`none' hide the mode-line."
- :group 'neotree
- :type '(choice (const default)
- (const neotree)
- (const custom)
- (const none)))
-
-(defcustom neo-mode-line-custom-format nil
- "*If `neo-mode-line-type' is set to `custom', this variable specifiy \
-the mode-line format."
- :type 'sexp
- :group 'neotree)
-
-(defcustom neo-smart-open nil
- "*If non-nil, every time when the neotree window is opened, it will try to find current file and jump to node."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-show-hidden-files nil
- "*If non-nil, the hidden files are shown by default."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-autorefresh nil
- "*If non-nil, the neotree buffer will auto refresh."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-window-width 25
- "*Specifies the width of the NeoTree window."
- :type 'integer
- :group 'neotree)
-
-(defcustom neo-window-fixed-size t
- "*If the neotree windows is fixed, it won't be resize when rebalance windows."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-keymap-style 'default
- "*The default keybindings for neotree-mode-map."
- :group 'neotree
- :type '(choice (const default)
- (const concise)))
-
-(defcustom neo-cwd-line-style 'text
- "*The default header style."
- :group 'neotree
- :type '(choice (const text)
- (const button)))
-
-(defcustom neo-help-echo-style 'default
- "The message NeoTree displays when the mouse moves onto nodes.
-`default' means the node name is displayed if it has a
-width (including the indent) larger than `neo-window-width', and
-`none' means NeoTree doesn't display any messages."
- :group 'neotree
- :type '(choice (const default)
- (const none)))
-
-(defcustom neo-click-changes-root nil
- "*If non-nil, clicking on a directory will change the current root to the directory."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-auto-indent-point nil
- "*If non-nil the point is autmotically put on the first letter of a node."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-hidden-regexp-list
- '("^\\." "\\.pyc$" "~$" "^#.*#$" "\\.elc$" "\\.o$")
- "*The regexp list matching hidden files."
- :type '(repeat (choice regexp))
- :group 'neotree)
-
-(defcustom neo-enter-hook nil
- "Functions to run if enter node occured."
- :type 'hook
- :group 'neotree)
-
-(defcustom neo-after-create-hook nil
- "Hooks called after creating the neotree buffer."
- :type 'hook
- :group 'neotree)
-
-(defcustom neo-vc-integration nil
- "If non-nil, show VC status."
- :group 'neotree-vc
- :type '(set (const :tag "Use different faces" face)
- (const :tag "Use different characters" char)))
-
-(defcustom neo-vc-state-char-alist
- '((up-to-date . ?\s)
- (edited . ?E)
- (added . ?+)
- (removed . ?-)
- (missing . ?!)
- (needs-merge . ?M)
- (conflict . ?!)
- (unlocked-changes . ?!)
- (needs-update . ?U)
- (ignored . ?\s)
- (user . ?U)
- (unregistered . ?\s)
- (nil . ?\s))
- "Alist of vc-states to indicator characters.
-This variable is used in `neo-vc-for-node' when
-`neo-vc-integration' contains `char'."
- :group 'neotree-vc
- :type '(alist :key-type symbol
- :value-type character))
-
-(defcustom neo-confirm-change-root 'yes-or-no-p
- "Confirmation asking for permission to change root if file was not found in root path."
- :type '(choice (function-item :tag "Verbose" yes-or-no-p)
- (function-item :tag "Succinct" y-or-n-p)
- (function-item :tag "Off" off-p))
- :group 'neotree-confirmations)
-
-(defcustom neo-confirm-create-file 'yes-or-no-p
- "Confirmation asking whether *NeoTree* should create a file."
- :type '(choice (function-item :tag "Verbose" yes-or-no-p)
- (function-item :tag "Succinct" y-or-n-p)
- (function-item :tag "Off" off-p))
- :group 'neotree-confirmations)
-
-(defcustom neo-confirm-create-directory 'yes-or-no-p
- "Confirmation asking whether *NeoTree* should create a directory."
- :type '(choice (function-item :tag "Verbose" yes-or-no-p)
- (function-item :tag "Succinct" y-or-n-p)
- (function-item :tag "Off" off-p))
- :group 'neotree-confirmations)
-
-(defcustom neo-confirm-delete-file 'yes-or-no-p
- "Confirmation asking whether *NeoTree* should delete the file."
- :type '(choice (function-item :tag "Verbose" yes-or-no-p)
- (function-item :tag "Succinct" y-or-n-p)
- (function-item :tag "Off" off-p))
- :group 'neotree-confirmations)
-
-(defcustom neo-confirm-delete-directory-recursively 'yes-or-no-p
- "Confirmation asking whether the directory should be deleted recursively."
- :type '(choice (function-item :tag "Verbose" yes-or-no-p)
- (function-item :tag "Succinct" y-or-n-p)
- (function-item :tag "Off" off-p))
- :group 'neotree-confirmations)
-
-(defcustom neo-confirm-kill-buffers-for-files-in-directory 'yes-or-no-p
- "Confirmation asking whether *NeoTree* should kill buffers for the directory in question."
- :type '(choice (function-item :tag "Verbose" yes-or-no-p)
- (function-item :tag "Succinct" y-or-n-p)
- (function-item :tag "Off" off-p))
- :group 'neotree-confirmations)
-
-(defcustom neo-toggle-window-keep-p nil
- "If not nil, not switch to *NeoTree* buffer when executing `neotree-toggle'."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-force-change-root t
- "If not nil, do not prompt when switching root."
- :type 'boolean
- :group 'neotree)
-
-(defcustom neo-filepath-sort-function 'string<
- "Function to be called when sorting neotree nodes."
- :type '(symbol (const :tag "Normal" string<)
- (const :tag "Sort Hidden at Bottom" neo-sort-hidden-last)
- (function :tag "Other"))
- :group 'neotree)
-
-(defcustom neo-default-system-application "xdg-open"
- "*Name of the application that is used to open a file under point.
-By default it is xdg-open."
- :type 'string
- :group 'neotree)
-
-(defcustom neo-hide-cursor nil
- "If not nil, hide cursor in NeoTree buffer and turn on line higlight."
- :type 'boolean
- :group 'neotree)
-
-;;
-;; Faces
-;;
-
-(defface neo-banner-face
- '((((background dark)) (:foreground "lightblue" :weight bold))
- (t (:foreground "DarkMagenta")))
- "*Face used for the banner in neotree buffer."
- :group 'neotree :group 'font-lock-highlighting-faces)
-(defvar neo-banner-face 'neo-banner-face)
-
-(defface neo-header-face
- '((((background dark)) (:foreground "White"))
- (t (:foreground "DarkMagenta")))
- "*Face used for the header in neotree buffer."
- :group 'neotree :group 'font-lock-highlighting-faces)
-(defvar neo-header-face 'neo-header-face)
-
-(defface neo-root-dir-face
- '((((background dark)) (:foreground "lightblue" :weight bold))
- (t (:foreground "DarkMagenta")))
- "*Face used for the root dir in neotree buffer."
- :group 'neotree :group 'font-lock-highlighting-faces)
-(defvar neo-root-dir-face 'neo-root-dir-face)
-
-(defface neo-dir-link-face
- '((((background dark)) (:foreground "DeepSkyBlue"))
- (t (:foreground "MediumBlue")))
- "*Face used for expand sign [+] in neotree buffer."
- :group 'neotree :group 'font-lock-highlighting-faces)
-(defvar neo-dir-link-face 'neo-dir-link-face)
-
-(defface neo-file-link-face
- '((((background dark)) (:foreground "White"))
- (t (:foreground "Black")))
- "*Face used for open file/dir in neotree buffer."
- :group 'neotree :group 'font-lock-highlighting-faces)
-(defvar neo-file-link-face 'neo-file-link-face)
-
-(defface neo-button-face
- '((t (:underline nil)))
- "*Face used for open file/dir in neotree buffer."
- :group 'neotree :group 'font-lock-highlighting-faces)
-(defvar neo-button-face 'neo-button-face)
-
-(defface neo-expand-btn-face
- '((((background dark)) (:foreground "SkyBlue"))
- (t (:foreground "DarkCyan")))
- "*Face used for open file/dir in neotree buffer."
- :group 'neotree :group 'font-lock-highlighting-faces)
-(defvar neo-expand-btn-face 'neo-expand-btn-face)
-
-(defface neo-vc-default-face
- '((((background dark)) (:foreground "White"))
- (t (:foreground "Black")))
- "*Face used for unknown files in the neotree buffer.
-Used only when \(vc-state node\) returns nil."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-default-face 'neo-vc-default-face)
-
-(defface neo-vc-user-face
- '((t (:foreground "Red" :slant italic)))
- "*Face used for user-locked files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-user-face 'neo-vc-user-face)
-
-(defface neo-vc-up-to-date-face
- '((((background dark)) (:foreground "LightGray"))
- (t (:foreground "DarkGray")))
- "*Face used for vc-up-to-date files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-up-to-date-face 'neo-vc-up-to-date-face)
-
-(defface neo-vc-edited-face
- '((((background dark)) (:foreground "Magenta"))
- (t (:foreground "DarkMagenta")))
- "*Face used for vc-edited files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-edited-face 'neo-vc-edited-face)
-
-(defface neo-vc-needs-update-face
- '((t (:underline t)))
- "*Face used for vc-needs-update files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-needs-update-face 'neo-vc-needs-update-face)
-
-(defface neo-vc-needs-merge-face
- '((((background dark)) (:foreground "Red1"))
- (t (:foreground "Red3")))
- "*Face used for vc-needs-merge files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-needs-merge-face 'neo-vc-needs-merge-face)
-
-(defface neo-vc-unlocked-changes-face
- '((t (:foreground "Red" :background "Blue")))
- "*Face used for vc-unlocked-changes files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-unlocked-changes-face 'neo-vc-unlocked-changes-face)
-
-(defface neo-vc-added-face
- '((((background dark)) (:foreground "LightGreen"))
- (t (:foreground "DarkGreen")))
- "*Face used for vc-added files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-added-face 'neo-vc-added-face)
-
-(defface neo-vc-removed-face
- '((t (:strike-through t)))
- "*Face used for vc-removed files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-removed-face 'neo-vc-removed-face)
-
-(defface neo-vc-conflict-face
- '((((background dark)) (:foreground "Red1"))
- (t (:foreground "Red3")))
- "*Face used for vc-conflict files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-conflict-face 'neo-vc-conflict-face)
-
-(defface neo-vc-missing-face
- '((((background dark)) (:foreground "Red1"))
- (t (:foreground "Red3")))
- "*Face used for vc-missing files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-missing-face 'neo-vc-missing-face)
-
-(defface neo-vc-ignored-face
- '((((background dark)) (:foreground "DarkGrey"))
- (t (:foreground "LightGray")))
- "*Face used for vc-ignored files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-ignored-face 'neo-vc-ignored-face)
-
-(defface neo-vc-unregistered-face
- nil
- "*Face used for vc-unregistered files in the neotree buffer."
- :group 'neotree-vc :group 'font-lock-highlighting-faces)
-(defvar neo-vc-unregistered-face 'neo-vc-unregistered-face)
-
-;;
-;; Variables
-;;
-
-(defvar neo-global--buffer nil)
-
-(defvar neo-global--window nil)
-
-(defvar neo-global--autorefresh-timer nil)
-
-(defvar neo-mode-line-format
- (list
- '(:eval
- (let* ((fname (neo-buffer--get-filename-current-line))
- (current (if fname fname neo-buffer--start-node))
- (parent (if fname (file-name-directory current) current))
- (nodes (neo-buffer--get-nodes parent))
- (dirs (car nodes))
- (files (cdr nodes))
- (ndirs (length dirs))
- (nfiles (length files))
- (index
- (when fname
- (1+ (if (file-directory-p current)
- (neo-buffer--get-node-index current dirs)
- (+ ndirs (neo-buffer--get-node-index current files)))))))
- (neo-mode-line--compute-format parent index ndirs nfiles))))
- "Neotree mode-line displaying information on the current node.
-This mode-line format is used if `neo-mode-line-type' is set to `neotree'")
-
-(defvar-local neo-buffer--start-node nil
- "Start node(i.e. directory) for the window.")
-
-(defvar-local neo-buffer--start-line nil
- "Index of the start line of the root.")
-
-(defvar-local neo-buffer--cursor-pos (cons nil 1)
- "To save the cursor position.
-The car of the pair will store fullpath, and cdr will store line number.")
-
-(defvar-local neo-buffer--last-window-pos (cons nil 1)
- "To save the scroll position for NeoTree window.")
-
-(defvar-local neo-buffer--show-hidden-file-p nil
- "Show hidden nodes in tree.")
-
-(defvar-local neo-buffer--expanded-node-list nil
- "A list of expanded dir nodes.")
-
-(defvar-local neo-buffer--node-list nil
- "The model of current NeoTree buffer.")
-
-(defvar-local neo-buffer--node-list-1 nil
- "The model of current NeoTree buffer (temp).")
-
-;;
-;; Major mode definitions
-;;
-
-(defvar neotree-file-button-keymap
- (let ((map (make-sparse-keymap)))
- (define-key map [mouse-2]
- (neotree-make-executor
- :file-fn 'neo-open-file))
- map)
- "Keymap for file-node button.")
-
-(defvar neotree-dir-button-keymap
- (let ((map (make-sparse-keymap)))
- (define-key map [mouse-2]
- (neotree-make-executor :dir-fn 'neo-open-dir))
- map)
- "Keymap for dir-node button.")
-
-(defvar neotree-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map (kbd "TAB") (neotree-make-executor
- :dir-fn 'neo-open-dir))
- (define-key map (kbd "RET") (neotree-make-executor
- :file-fn 'neo-open-file
- :dir-fn 'neo-open-dir))
- (define-key map (kbd "|") (neotree-make-executor
- :file-fn 'neo-open-file-vertical-split))
- (define-key map (kbd "-") (neotree-make-executor
- :file-fn 'neo-open-file-horizontal-split))
- (define-key map (kbd "a") (neotree-make-executor
- :file-fn 'neo-open-file-ace-window))
- (define-key map (kbd "d") (neotree-make-executor
- :dir-fn 'neo-open-dired))
- (define-key map (kbd "O") (neotree-make-executor
- :dir-fn 'neo-open-dir-recursive))
- (define-key map (kbd "SPC") 'neotree-quick-look)
- (define-key map (kbd "g") 'neotree-refresh)
- (define-key map (kbd "q") 'neotree-hide)
- (define-key map (kbd "p") 'neotree-previous-line)
- (define-key map (kbd "C-p") 'neotree-previous-line)
- (define-key map (kbd "n") 'neotree-next-line)
- (define-key map (kbd "C-n") 'neotree-next-line)
- (define-key map (kbd "A") 'neotree-stretch-toggle)
- (define-key map (kbd "U") 'neotree-select-up-node)
- (define-key map (kbd "D") 'neotree-select-down-node)
- (define-key map (kbd "H") 'neotree-hidden-file-toggle)
- (define-key map (kbd "S") 'neotree-select-previous-sibling-node)
- (define-key map (kbd "s") 'neotree-select-next-sibling-node)
- (define-key map (kbd "o") 'neotree-open-file-in-system-application)
- (define-key map (kbd "C-x C-f") 'find-file-other-window)
- (define-key map (kbd "C-x 1") 'neotree-empty-fn)
- (define-key map (kbd "C-x 2") 'neotree-empty-fn)
- (define-key map (kbd "C-x 3") 'neotree-empty-fn)
- (define-key map (kbd "C-c C-f") 'find-file-other-window)
- (define-key map (kbd "C-c C-c") 'neotree-change-root)
- (define-key map (kbd "C-c c") 'neotree-dir)
- (define-key map (kbd "C-c C-a") 'neotree-collapse-all)
- (cond
- ((eq neo-keymap-style 'default)
- (define-key map (kbd "C-c C-n") 'neotree-create-node)
- (define-key map (kbd "C-c C-d") 'neotree-delete-node)
- (define-key map (kbd "C-c C-r") 'neotree-rename-node)
- (define-key map (kbd "C-c C-p") 'neotree-copy-node))
- ((eq neo-keymap-style 'concise)
- (define-key map (kbd "C") 'neotree-change-root)
- (define-key map (kbd "c") 'neotree-create-node)
- (define-key map (kbd "+") 'neotree-create-node)
- (define-key map (kbd "d") 'neotree-delete-node)
- (define-key map (kbd "r") 'neotree-rename-node)
- (define-key map (kbd "e") 'neotree-enter)))
- map)
- "Keymap for `neotree-mode'.")
-
-(define-derived-mode neotree-mode special-mode "NeoTree"
- "A major mode for displaying the directory tree in text mode."
- (setq indent-tabs-mode nil ; only spaces
- buffer-read-only t ; read only
- truncate-lines -1
- neo-buffer--show-hidden-file-p neo-show-hidden-files)
- (when neo-hide-cursor
- (progn
- (setq cursor-type nil)
- (hl-line-mode +1)))
- (pcase neo-mode-line-type
- (`neotree
- (setq-local mode-line-format neo-mode-line-format)
- (add-hook 'post-command-hook 'force-mode-line-update nil t))
- (`none (setq-local mode-line-format nil))
- (`custom
- (setq-local mode-line-format neo-mode-line-custom-format)
- (add-hook 'post-command-hook 'force-mode-line-update nil t))
- (_ nil))
- ;; fix for electric-indent-mode
- ;; for emacs 24.4
- (if (fboundp 'electric-indent-local-mode)
- (electric-indent-local-mode -1)
- ;; for emacs 24.3 or less
- (add-hook 'electric-indent-functions
- (lambda (arg) 'no-indent) nil 'local))
- (when neo-auto-indent-point
- (add-hook 'post-command-hook 'neo-hook--node-first-letter nil t)))
-
-;;
-;; Global methods
-;;
-
-(defun neo-global--window-exists-p ()
- "Return non-nil if neotree window exists."
- (and (not (null (window-buffer neo-global--window)))
- (eql (window-buffer neo-global--window) (neo-global--get-buffer))))
-
-(defun neo-global--select-window ()
- "Select the NeoTree window."
- (interactive)
- (let ((window (neo-global--get-window t)))
- (select-window window)))
-
-(defun neo-global--get-window (&optional auto-create-p)
- "Return the neotree window if it exists, else return nil.
-But when the neotree window does not exist and AUTO-CREATE-P is non-nil,
-it will create the neotree window and return it."
- (unless (neo-global--window-exists-p)
- (setf neo-global--window nil))
- (when (and (null neo-global--window)
- auto-create-p)
- (setq neo-global--window
- (neo-global--create-window)))
- neo-global--window)
-
-(defun neo-default-display-fn (buffer _alist)
- "Display BUFFER to the left or right of the root window.
-The side is decided according to `neo-window-position'.
-The root window is the root window of the selected frame.
-_ALIST is ignored."
- (let ((window-pos (if (eq neo-window-position 'left) 'left 'right)))
- (display-buffer-in-side-window buffer `((side . ,window-pos)))))
-
-(defun neo-global--create-window ()
- "Create global neotree window."
- (let ((window nil)
- (buffer (neo-global--get-buffer t)))
- (setq window
- (select-window
- (display-buffer buffer neo-display-action)))
- (neo-window--init window buffer)
- (neo-global--attach)
- (neo-global--reset-width)
- window))
-
-(defun neo-global--get-buffer (&optional init-p)
- "Return the global neotree buffer if it exists.
-If INIT-P is non-nil and global NeoTree buffer not exists, then create it."
- (unless (equal (buffer-name neo-global--buffer)
- neo-buffer-name)
- (setf neo-global--buffer nil))
- (when (and init-p
- (null neo-global--buffer))
- (save-window-excursion
- (setq neo-global--buffer
- (neo-buffer--create))))
- neo-global--buffer)
-
-(defun neo-global--file-in-root-p (path)
- "Return non-nil if PATH in root dir."
- (neo-global--with-buffer
- (and (not (null neo-buffer--start-node))
- (neo-path--file-in-directory-p path neo-buffer--start-node))))
-
-(defun neo-global--alone-p ()
- "Check whether the global neotree window is alone with some other window."
- (let ((windows (window-list)))
- (and (= (length windows)
- 2)
- (member neo-global--window windows))))
-
-(defun neo-global--do-autorefresh ()
- "Do auto refresh."
- (interactive)
- (when (and neo-autorefresh (neo-global--window-exists-p)
- (buffer-file-name))
- (neotree-refresh t)))
-
-(defun neo-global--open ()
- "Show the NeoTree window."
- (let ((valid-start-node-p nil))
- (neo-global--with-buffer
- (setf valid-start-node-p (neo-buffer--valid-start-node-p)))
- (if (not valid-start-node-p)
- (neo-global--open-dir (neo-path--get-working-dir))
- (neo-global--get-window t))))
-
-(defun neo-global--open-dir (path)
- "Show the NeoTree window, and change root to PATH."
- (neo-global--get-window t)
- (neo-global--with-buffer
- (neo-buffer--change-root path)))
-
-(defun neo-global--open-and-find (path)
- "Quick select node which specified PATH in NeoTree."
- (let ((npath path)
- root-dir)
- (when (null npath)
- (throw 'invalid-path "Invalid path to select."))
- (setq root-dir (if (file-directory-p npath)
- npath (neo-path--updir npath)))
- (when (or (not (neo-global--window-exists-p))
- (not (neo-global--file-in-root-p npath)))
- (neo-global--open-dir root-dir))
- (neo-global--with-window
- (neo-buffer--select-file-node npath t))))
-
-(defun neo-global--select-mru-window (arg)
- "Create or find a window to select when open a file node.
-The description of ARG is in `neotree-enter'."
- (when (eq (safe-length (window-list)) 1)
- (neo-buffer--with-resizable-window
- (split-window-horizontally)))
- (when neo-reset-size-on-open
- (neo-global--when-window
- (neo-window--zoom 'minimize)))
- ;; select target window
- (cond
- ;; select window with winum
- ((and (integerp arg)
- (bound-and-true-p winum-mode)
- (fboundp 'winum-select-window-by-number))
- (winum-select-window-by-number arg))
- ;; select window with window numbering
- ((and (integerp arg)
- (boundp 'window-numbering-mode)
- (symbol-value window-numbering-mode)
- (fboundp 'select-window-by-number))
- (select-window-by-number arg))
- ;; open node in a new vertically split window
- ((and (stringp arg) (string= arg "a")
- (fboundp 'ace-select-window))
- (ace-select-window))
- ((and (stringp arg) (string= arg "|"))
- (select-window (get-mru-window))
- (split-window-right)
- (windmove-right))
- ;; open node in a new horizontally split window
- ((and (stringp arg) (string= arg "-"))
- (select-window (get-mru-window))
- (split-window-below)
- (windmove-down)))
- ;; open node in last active window
- (select-window (get-mru-window)))
-
-(defun neo-global--detach ()
- "Detach the global neotree buffer."
- (when neo-global--autorefresh-timer
- (cancel-timer neo-global--autorefresh-timer))
- (neo-global--with-buffer
- (neo-buffer--unlock-width))
- (setq neo-global--buffer nil)
- (setq neo-global--window nil))
-
-(defun neo-global--attach ()
- "Attach the global neotree buffer"
- (when neo-global--autorefresh-timer
- (cancel-timer neo-global--autorefresh-timer))
- (when neo-autorefresh
- (setq neo-global--autorefresh-timer
- (run-with-idle-timer 2 10 'neo-global--do-autorefresh)))
- (setq neo-global--buffer (get-buffer neo-buffer-name))
- (setq neo-global--window (get-buffer-window
- neo-global--buffer))
- (neo-global--with-buffer
- (neo-buffer--lock-width))
- (run-hook-with-args 'neo-after-create-hook '(window)))
-
-(defun neo-global--set-window-width (width)
- "Set neotree window width to WIDTH."
- (neo-global--with-window
- (neo-buffer--with-resizable-window
- (neo-util--set-window-width (selected-window) width))))
-
-(defun neo-global--reset-width ()
- "Set neotree window width to `neo-window-width'."
- (neo-global--set-window-width neo-window-width))
-
-;;
-;; Advices
-;;
-
-(defadvice mouse-drag-vertical-line
- (around neotree-drag-vertical-line (start-event) activate)
- "Drag and drop is not affected by the lock."
- (neo-buffer--with-resizable-window
- ad-do-it))
-
-(defadvice balance-windows
- (around neotree-balance-windows activate)
- "Fix neotree inhibits balance-windows."
- (if (neo-global--window-exists-p)
- (let (old-width)
- (neo-global--with-window
- (setq old-width (window-width)))
- (neo-buffer--with-resizable-window
- ad-do-it)
- (neo-global--with-window
- (neo-global--set-window-width old-width)))
- ad-do-it))
-
-(eval-after-load 'popwin
- '(progn
- (defadvice popwin:create-popup-window
- (around neotree/popwin-popup-buffer activate)
- (let ((neo-exists-p (neo-global--window-exists-p)))
- (when neo-exists-p
- (neo-global--detach))
- ad-do-it
- (when neo-exists-p
- (neo-global--attach)
- (neo-global--reset-width))))
-
- (defadvice popwin:close-popup-window
- (around neotree/popwin-close-popup-window activate)
- (let ((neo-exists-p (neo-global--window-exists-p)))
- (when neo-exists-p
- (neo-global--detach))
- ad-do-it
- (when neo-exists-p
- (neo-global--attach)
- (neo-global--reset-width))))))
-
-;;
-;; Hooks
-;;
-
-(defun neo-hook--node-first-letter ()
- "Move point to the first letter of the current node."
- (when (or (eq this-command 'next-line)
- (eq this-command 'previous-line))
- (neo-point-auto-indent)))
-
-;;
-;; Util methods
-;;
-
-(defun neo-util--filter (condp lst)
- "Apply CONDP to elements of LST keeping those that return non-nil.
-
-Example:
- (neo-util--filter 'symbolp '(a \"b\" 3 d4))
- => (a d4)
-
-This procedure does not work when CONDP is the `null' function."
- (delq nil
- (mapcar (lambda (x) (and (funcall condp x) x)) lst)))
-
-(defun neo-util--find (where which)
- "Find element of the list WHERE matching predicate WHICH."
- (catch 'found
- (dolist (elt where)
- (when (funcall which elt)
- (throw 'found elt)))
- nil))
-
-(defun neo-util--make-printable-string (string)
- "Strip newline character from STRING, like 'Icon\n'."
- (replace-regexp-in-string "\n" "" string))
-
-(defun neo-util--walk-dir (path)
- "Return the subdirectories and subfiles of the PATH."
- (let* ((full-path (neo-path--file-truename path)))
- (condition-case nil
- (directory-files
- path 'full directory-files-no-dot-files-regexp)
- ('file-error
- (message "Walk directory %S failed." path)
- nil))))
-
-(defun neo-util--hidden-path-filter (node)
- "A filter function, if the NODE can not match each item in \
-`neo-hidden-regexp-list', return t."
- (if (not neo-buffer--show-hidden-file-p)
- (let ((shortname (neo-path--file-short-name node)))
- (null (neo-util--filter
- (lambda (x) (not (null (string-match-p x shortname))))
- neo-hidden-regexp-list)))
- node))
-
-(defun neo-str--trim-left (s)
- "Remove whitespace at the beginning of S."
- (if (string-match "\\`[ \t\n\r]+" s)
- (replace-match "" t t s)
- s))
-
-(defun neo-str--trim-right (s)
- "Remove whitespace at the end of S."
- (if (string-match "[ \t\n\r]+\\'" s)
- (replace-match "" t t s)
- s))
-
-(defun neo-str--trim (s)
- "Remove whitespace at the beginning and end of S."
- (neo-str--trim-left (neo-str--trim-right s)))
-
-(defun neo-path--expand-name (path &optional current-dir)
- (expand-file-name (or (if (file-name-absolute-p path) path)
- (let ((r-path path))
- (setq r-path (substitute-in-file-name r-path))
- (setq r-path (expand-file-name r-path current-dir))
- r-path))))
-
-(defun neo-path--shorten (path len)
- "Shorten a given PATH to a specified LEN.
-This is needed for paths, which are to long for the window to display
-completely. The function cuts of the first part of the path to remain
-the last folder (the current one)."
- (let ((result
- (if (> (length path) len)
- (concat "<" (substring path (- (- len 2))))
- path)))
- (when result
- (decode-coding-string result 'utf-8))))
-
-(defun neo-path--insert-chroot-button (label path face)
- (insert-button
- label
- 'action '(lambda (x) (neotree-change-root))
- 'follow-link t
- 'face face
- 'neo-full-path path))
-
-(defun neo-path--insert-header-buttonized (path)
- "Shortens the PATH to (window-body-width) and displays any \
-visible remains as buttons that, when clicked, navigate to that
-parent directory."
- (let* ((dirs (reverse (cl-maplist 'identity (reverse (split-string path "/" :omitnulls)))))
- (last (car-safe (car-safe (last dirs)))))
- (neo-path--insert-chroot-button "/" "/" 'neo-root-dir-face)
- (dolist (dir dirs)
- (if (string= (car dir) last)
- (neo-buffer--insert-with-face last 'neo-root-dir-face)
- (neo-path--insert-chroot-button
- (concat (car dir) "/")
- (apply 'neo-path--join (cons "/" (reverse dir)))
- 'neo-root-dir-face))))
- ;;shorten the line if need be
- (when (> (current-column) (window-body-width))
- (forward-char (- (window-body-width)))
- (delete-region (point-at-bol) (point))
- (let* ((button (button-at (point)))
- (path (if button (overlay-get button 'neo-full-path) "/")))
- (neo-path--insert-chroot-button "<" path 'neo-root-dir-face))
- (end-of-line)))
-
-(defun neo-path--updir (path)
- (let ((r-path (neo-path--expand-name path)))
- (if (and (> (length r-path) 0)
- (equal (substring r-path -1) "/"))
- (setq r-path (substring r-path 0 -1)))
- (if (eq (length r-path) 0)
- (setq r-path "/"))
- (directory-file-name
- (file-name-directory r-path))))
-
-(defun neo-path--join (root &rest dirs)
- "Joins a series of directories together with ROOT and DIRS.
-Like Python's os.path.join,
- (neo-path--join \"/tmp\" \"a\" \"b\" \"c\") => /tmp/a/b/c ."
- (or (if (not dirs) root)
- (let ((tdir (car dirs))
- (epath nil))
- (setq epath
- (or (if (equal tdir ".") root)
- (if (equal tdir "..") (neo-path--updir root))
- (neo-path--expand-name tdir root)))
- (apply 'neo-path--join
- epath
- (cdr dirs)))))
-
-(defun neo-path--file-short-name (file)
- "Base file/directory name by FILE.
-Taken from http://lists.gnu.org/archive/html/emacs-devel/2011-01/msg01238.html"
- (or (if (string= file "/") "/")
- (neo-util--make-printable-string (file-name-nondirectory (directory-file-name file)))))
-
-(defun neo-path--file-truename (path)
- (let ((rlt (file-truename path)))
- (if (not (null rlt))
- (progn
- (if (and (file-directory-p rlt)
- (> (length rlt) 0)
- (not (equal (substring rlt -1) "/")))
- (setq rlt (concat rlt "/")))
- rlt)
- nil)))
-
-(defun neo-path--has-subfile-p (dir)
- "To determine whether a directory(DIR) contain files."
- (and (file-exists-p dir)
- (file-directory-p dir)
- (neo-util--walk-dir dir)
- t))
-
-(defun neo-path--match-path-directory (path)
- (let ((true-path (neo-path--file-truename path))
- (rlt-path nil))
- (setq rlt-path
- (catch 'rlt
- (if (file-directory-p true-path)
- (throw 'rlt true-path))
- (setq true-path
- (file-name-directory true-path))
- (if (file-directory-p true-path)
- (throw 'rlt true-path))))
- (if (not (null rlt-path))
- (setq rlt-path (neo-path--join "." rlt-path "./")))
- rlt-path))
-
-(defun neo-path--get-working-dir ()
- "Return a directory name of the current buffer."
- (file-name-as-directory (file-truename default-directory)))
-
-(defun neo-path--strip (path)
- "Remove whitespace at the end of PATH."
- (let* ((rlt (neo-str--trim path))
- (pos (string-match "[\\\\/]+\\'" rlt)))
- (when pos
- (setq rlt (replace-match "" t t rlt))
- (when (eq (length rlt) 0)
- (setq rlt "/")))
- rlt))
-
-(defun neo-path--path-equal-p (path1 path2)
- "Return non-nil if pathes PATH1 and PATH2 are the same path."
- (string-equal (neo-path--strip path1)
- (neo-path--strip path2)))
-
-(defun neo-path--file-equal-p (file1 file2)
- "Return non-nil if files FILE1 and FILE2 name the same file.
-If FILE1 or FILE2 does not exist, the return value is unspecified."
- (unless (or (null file1)
- (null file2))
- (let ((nfile1 (neo-path--strip file1))
- (nfile2 (neo-path--strip file2)))
- (file-equal-p nfile1 nfile2))))
-
-(defun neo-path--file-in-directory-p (file dir)
- "Return non-nil if FILE is in DIR or a subdirectory of DIR.
-A directory is considered to be \"in\" itself.
-Return nil if DIR is not an existing directory."
- (let ((nfile (neo-path--strip file))
- (ndir (neo-path--strip dir)))
- (setq ndir (concat ndir "/"))
- (file-in-directory-p nfile ndir)))
-
-(defun neo-util--kill-buffers-for-path (path)
- "Kill all buffers for files in PATH."
- (let ((buffer (find-buffer-visiting path)))
- (when buffer
- (kill-buffer buffer)))
- (dolist (filename (directory-files path t directory-files-no-dot-files-regexp))
- (let ((buffer (find-buffer-visiting filename)))
- (when buffer
- (kill-buffer buffer))
- (when (and
- (file-directory-p filename)
- (neo-path--has-subfile-p filename))
- (neo-util--kill-buffers-for-path filename)))))
-
-(defun neo-util--set-window-width (window n)
- "Make WINDOW N columns width."
- (let ((w (max n window-min-width)))
- (unless (null window)
- (if (> (window-width) w)
- (shrink-window-horizontally (- (window-width) w))
- (if (< (window-width) w)
- (enlarge-window-horizontally (- w (window-width))))))))
-
-(defun neo-point-auto-indent ()
- "Put the point on the first letter of the current node."
- (when (neo-buffer--get-filename-current-line)
- (beginning-of-line 1)
- (re-search-forward "[^-\s+]" (line-end-position 1) t)
- (backward-char 1)))
-
-(defun off-p (msg)
- "Returns true regardless of message value in the argument."
- t)
-
-(defun neo-sort-hidden-last (x y)
- "Sort normally but with hidden files last."
- (let ((x-hidden (neo-filepath-hidden-p x))
- (y-hidden (neo-filepath-hidden-p y)))
- (cond
- ((and x-hidden (not y-hidden))
- nil)
- ((and (not x-hidden) y-hidden)
- t)
- (t
- (string< x y)))))
-
-(defun neo-filepath-hidden-p (node)
- "Return whether or not node is a hidden path."
- (let ((shortname (neo-path--file-short-name node)))
- (neo-util--filter
- (lambda (x) (not (null (string-match-p x shortname))))
- neo-hidden-regexp-list)))
-
-(defun neo-get-unsaved-buffers-from-projectile ()
- "Return list of unsaved buffers from projectile buffers."
- (interactive)
- (let ((rlist '())
- (rtag t))
- (condition-case nil
- (projectile-project-buffers)
- (error (setq rtag nil)))
- (when (and rtag (fboundp 'projectile-project-buffers))
- (dolist (buf (projectile-project-buffers))
- (with-current-buffer buf
- (if (and (buffer-modified-p) buffer-file-name)
- (setq rlist (cons (buffer-file-name) rlist))
- ))))
- rlist))
-
-;;
-;; Buffer methods
-;;
-
-(defun neo-buffer--newline-and-begin ()
- "Insert new line."
- (newline)
- (beginning-of-line))
-
-(defun neo-buffer--get-icon (name)
- "Get image by NAME."
- (let ((icon-path (neo-path--join neo-dir "icons"))
- image)
- (setq image (create-image
- (neo-path--join icon-path (concat name ".xpm"))
- 'xpm nil :ascent 'center :mask '(heuristic t)))
- image))
-
-(defun neo-buffer--insert-fold-symbol (name &optional node-name)
- "Write icon by NAME, the icon style affected by neo-theme.
-`open' write opened folder icon.
-`close' write closed folder icon.
-`leaf' write leaf icon.
-Optional NODE-NAME is used for the `icons' theme"
- (let ((n-insert-image (lambda (n)
- (insert-image (neo-buffer--get-icon n))))
- (n-insert-symbol (lambda (n)
- (neo-buffer--insert-with-face
- n 'neo-expand-btn-face))))
- (cond
- ((and (display-graphic-p) (equal neo-theme 'classic))
- (or (and (equal name 'open) (funcall n-insert-image "open"))
- (and (equal name 'close) (funcall n-insert-image "close"))
- (and (equal name 'leaf) (funcall n-insert-image "leaf"))))
- ((equal neo-theme 'arrow)
- (or (and (equal name 'open) (funcall n-insert-symbol "â–¾"))
- (and (equal name 'close) (funcall n-insert-symbol "â–¸"))))
- ((equal neo-theme 'nerd)
- (or (and (equal name 'open) (funcall n-insert-symbol "â–¾ "))
- (and (equal name 'close) (funcall n-insert-symbol "â–¸ "))
- (and (equal name 'leaf) (funcall n-insert-symbol " "))))
- ((and (display-graphic-p) (equal neo-theme 'icons))
- (unless (require 'all-the-icons nil 'noerror)
- (error "Package `all-the-icons' isn't installed"))
- (setq-local tab-width 1)
- (or (and (equal name 'open) (insert (all-the-icons-icon-for-dir-with-chevron (directory-file-name node-name) "down")))
- (and (equal name 'close) (insert (all-the-icons-icon-for-dir-with-chevron (directory-file-name node-name) "right")))
- (and (equal name 'leaf) (insert (format "\t\t\t%s\t" (all-the-icons-icon-for-file node-name))))))
- (t
- (or (and (equal name 'open) (funcall n-insert-symbol "- "))
- (and (equal name 'close) (funcall n-insert-symbol "+ ")))))))
-
-(defun neo-buffer--save-cursor-pos (&optional node-path line-pos)
- "Save cursor position.
-If NODE-PATH and LINE-POS is nil, it will be save the current line node position."
- (let ((cur-node-path nil)
- (cur-line-pos nil)
- (ws-wind (selected-window))
- (ws-pos (window-start)))
- (setq cur-node-path (if node-path
- node-path
- (neo-buffer--get-filename-current-line)))
- (setq cur-line-pos (if line-pos
- line-pos
- (line-number-at-pos)))
- (setq neo-buffer--cursor-pos (cons cur-node-path cur-line-pos))
- (setq neo-buffer--last-window-pos (cons ws-wind ws-pos))))
-
-(defun neo-buffer--goto-cursor-pos ()
- "Jump to saved cursor position."
- (let ((line-pos nil)
- (node (car neo-buffer--cursor-pos))
- (line-pos (cdr neo-buffer--cursor-pos))
- (ws-wind (car neo-buffer--last-window-pos))
- (ws-pos (cdr neo-buffer--last-window-pos)))
- (catch 'line-pos-founded
- (unless (null node)
- (setq line-pos 0)
- (mapc
- (lambda (x)
- (setq line-pos (1+ line-pos))
- (unless (null x)
- (when (neo-path--path-equal-p x node)
- (throw 'line-pos-founded line-pos))))
- neo-buffer--node-list))
- (setq line-pos (cdr neo-buffer--cursor-pos))
- (throw 'line-pos-founded line-pos))
- ;; goto line
- (goto-char (point-min))
- (neo-buffer--forward-line (1- line-pos))
- ;; scroll window
- (when (equal (selected-window) ws-wind)
- (set-window-start ws-wind ws-pos t))))
-
-(defun neo-buffer--node-list-clear ()
- "Clear node list."
- (setq neo-buffer--node-list nil))
-
-(defun neo-buffer--node-list-set (line-num path)
- "Set value in node list.
-LINE-NUM is the index of node list.
-PATH is value."
- (let ((node-list-length (length neo-buffer--node-list))
- (node-index line-num))
- (when (null node-index)
- (setq node-index (line-number-at-pos)))
- (when (< node-list-length node-index)
- (setq neo-buffer--node-list
- (vconcat neo-buffer--node-list
- (make-vector (- node-index node-list-length) nil))))
- (aset neo-buffer--node-list (1- node-index) path))
- neo-buffer--node-list)
-
-(defun neo-buffer--insert-with-face (content face)
- (let ((pos-start (point)))
- (insert content)
- (set-text-properties pos-start
- (point)
- (list 'face face))))
-
-(defun neo-buffer--valid-start-node-p ()
- (and (not (null neo-buffer--start-node))
- (file-accessible-directory-p neo-buffer--start-node)))
-
-(defun neo-buffer--create ()
- "Create and switch to NeoTree buffer."
- (switch-to-buffer
- (generate-new-buffer-name neo-buffer-name))
- (neotree-mode)
- ;; disable linum-mode
- (when (and (boundp 'linum-mode)
- (not (null linum-mode)))
- (linum-mode -1))
- ;; Use inside helm window in NeoTree
- ;; Refs https://github.com/jaypei/emacs-neotree/issues/226
- (setq-local helm-split-window-inside-p t)
- (current-buffer))
-
-(defun neo-buffer--insert-banner ()
- (unless (null neo-banner-message)
- (let ((start (point)))
- (insert neo-banner-message)
- (set-text-properties start (point) '(face neo-banner-face)))
- (neo-buffer--newline-and-begin)))
-
-(defun neo-buffer--insert-root-entry (node)
- (neo-buffer--node-list-set nil node)
- (cond ((eq neo-cwd-line-style 'button)
- (neo-path--insert-header-buttonized node))
- (t
- (neo-buffer--insert-with-face (neo-path--shorten node (window-body-width))
- 'neo-root-dir-face)))
- (neo-buffer--newline-and-begin)
- (when neo-show-updir-line
- (neo-buffer--insert-fold-symbol 'close node)
- (insert-button ".."
- 'action '(lambda (x) (neotree-change-root))
- 'follow-link t
- 'face neo-dir-link-face
- 'neo-full-path (neo-path--updir node))
- (neo-buffer--newline-and-begin)))
-
-(defun neo-buffer--help-echo-message (node-name)
- (cond
- ((eq neo-help-echo-style 'default)
- (if (<= (+ (current-column) (string-width node-name))
- neo-window-width)
- nil
- node-name))
- (t nil)))
-
-(defun neo-buffer--insert-dir-entry (node depth expanded)
- (let ((node-short-name (neo-path--file-short-name node)))
- (insert-char ?\s (* (- depth 1) 2)) ; indent
- (when (memq 'char neo-vc-integration)
- (insert-char ?\s 2))
- (neo-buffer--insert-fold-symbol
- (if expanded 'open 'close) node)
- (insert-button (if neo-show-slash-for-folder (concat node-short-name "/") node-short-name)
- 'follow-link t
- 'face neo-dir-link-face
- 'neo-full-path node
- 'keymap neotree-dir-button-keymap
- 'help-echo (neo-buffer--help-echo-message node-short-name))
- (neo-buffer--node-list-set nil node)
- (neo-buffer--newline-and-begin)))
-
-(defun neo-buffer--insert-file-entry (node depth)
- (let ((node-short-name (neo-path--file-short-name node))
- (vc (when neo-vc-integration (neo-vc-for-node node))))
- (insert-char ?\s (* (- depth 1) 2)) ; indent
- (when (memq 'char neo-vc-integration)
- (insert-char (car vc))
- (insert-char ?\s))
- (neo-buffer--insert-fold-symbol 'leaf node-short-name)
- (insert-button node-short-name
- 'follow-link t
- 'face (if (memq 'face neo-vc-integration)
- (cdr vc)
- neo-file-link-face)
- 'neo-full-path node
- 'keymap neotree-file-button-keymap
- 'help-echo (neo-buffer--help-echo-message node-short-name))
- (neo-buffer--node-list-set nil node)
- (neo-buffer--newline-and-begin)))
-
-(defun neo-vc-for-node (node)
- (let* ((backend (ignore-errors
- (vc-responsible-backend node)))
- (vc-state (when backend (vc-state node backend))))
- (cons (cdr (assoc vc-state neo-vc-state-char-alist))
- (cl-case vc-state
- (up-to-date neo-vc-up-to-date-face)
- (edited neo-vc-edited-face)
- (needs-update neo-vc-needs-update-face)
- (needs-merge neo-vc-needs-merge-face)
- (unlocked-changes neo-vc-unlocked-changes-face)
- (added neo-vc-added-face)
- (removed neo-vc-removed-face)
- (conflict neo-vc-conflict-face)
- (missing neo-vc-missing-face)
- (ignored neo-vc-ignored-face)
- (unregistered neo-vc-unregistered-face)
- (user neo-vc-user-face)
- (otherwise neo-vc-default-face)))))
-
-(defun neo-buffer--get-nodes (path)
- (let* ((nodes (neo-util--walk-dir path))
- (comp neo-filepath-sort-function)
- (nodes (neo-util--filter 'neo-util--hidden-path-filter nodes)))
- (cons (sort (neo-util--filter 'file-directory-p nodes) comp)
- (sort (neo-util--filter #'(lambda (f) (not (file-directory-p f))) nodes) comp))))
-
-(defun neo-buffer--get-node-index (node nodes)
- "Return the index of NODE in NODES.
-
-NODES can be a list of directory or files.
-Return nil if NODE has not been found in NODES."
- (let ((i 0)
- (l (length nodes))
- (cur (car nodes))
- (rest (cdr nodes)))
- (while (and cur (not (equal cur node)))
- (setq i (1+ i))
- (setq cur (car rest))
- (setq rest (cdr rest)))
- (if (< i l) i)))
-
-(defun neo-buffer--expanded-node-p (node)
- "Return non-nil if NODE is expanded."
- (neo-util--to-bool
- (neo-util--find
- neo-buffer--expanded-node-list
- #'(lambda (x) (equal x node)))))
-
-(defun neo-buffer--set-expand (node do-expand)
- "Set the expanded state of the NODE to DO-EXPAND.
-Return the new expand state for NODE (t for expanded, nil for collapsed)."
- (if (not do-expand)
- (setq neo-buffer--expanded-node-list
- (neo-util--filter
- #'(lambda (x) (not (equal node x)))
- neo-buffer--expanded-node-list))
- (push node neo-buffer--expanded-node-list))
- do-expand)
-
-(defun neo-buffer--toggle-expand (node)
- (neo-buffer--set-expand node (not (neo-buffer--expanded-node-p node))))
-
-(defun neo-buffer--insert-tree (path depth)
- (if (eq depth 1)
- (neo-buffer--insert-root-entry path))
- (let* ((contents (neo-buffer--get-nodes path))
- (nodes (car contents))
- (leafs (cdr contents))
- (default-directory path))
- (dolist (node nodes)
- (let ((expanded (neo-buffer--expanded-node-p node)))
- (neo-buffer--insert-dir-entry
- node depth expanded)
- (if expanded (neo-buffer--insert-tree (concat node "/") (+ depth 1)))))
- (dolist (leaf leafs)
- (neo-buffer--insert-file-entry leaf depth))))
-
-(defun neo-buffer--refresh (save-pos-p &optional non-neotree-buffer)
- "Refresh the NeoTree buffer.
-If SAVE-POS-P is non-nil, it will be auto save current line number."
- (let ((start-node neo-buffer--start-node))
- (unless start-node
- (setq start-node default-directory))
- (neo-buffer--with-editing-buffer
- ;; save context
- (when save-pos-p
- (neo-buffer--save-cursor-pos))
- (when non-neotree-buffer
- (setq neo-buffer--start-node start-node))
- ;; starting refresh
- (erase-buffer)
- (neo-buffer--node-list-clear)
- (neo-buffer--insert-banner)
- (setq neo-buffer--start-line neo-header-height)
- (neo-buffer--insert-tree start-node 1))
- ;; restore context
- (neo-buffer--goto-cursor-pos)))
-
-(defun neo-buffer--post-move ()
- "Reset current directory when position moved."
- (funcall
- (neotree-make-executor
- :file-fn
- '(lambda (path _)
- (setq default-directory (neo-path--updir btn-full-path)))
- :dir-fn
- '(lambda (path _)
- (setq default-directory (file-name-as-directory path))))))
-
-(defun neo-buffer--get-button-current-line ()
- "Return the first button in current line."
- (let* ((btn-position nil)
- (pos-line-start (line-beginning-position))
- (pos-line-end (line-end-position))
- ;; NOTE: cannot find button when the button
- ;; at beginning of the line
- (current-button (or (button-at (point))
- (button-at pos-line-start))))
- (if (null current-button)
- (progn
- (setf btn-position
- (catch 'ret-button
- (let* ((next-button (next-button pos-line-start))
- (pos-btn nil))
- (if (null next-button) (throw 'ret-button nil))
- (setf pos-btn (overlay-start next-button))
- (if (> pos-btn pos-line-end) (throw 'ret-button nil))
- (throw 'ret-button pos-btn))))
- (if (null btn-position)
- nil
- (setf current-button (button-at btn-position)))))
- current-button))
-
-(defun neo-buffer--get-filename-current-line (&optional default)
- "Return filename for first button in current line.
-If there is no button in current line, then return DEFAULT."
- (let ((btn (neo-buffer--get-button-current-line)))
- (if (not (null btn))
- (button-get btn 'neo-full-path)
- default)))
-
-(defun neo-buffer--lock-width ()
- "Lock the width size for NeoTree window."
- (if neo-window-fixed-size
- (setq window-size-fixed 'width)))
-
-(defun neo-buffer--unlock-width ()
- "Unlock the width size for NeoTree window."
- (setq window-size-fixed nil))
-
-(defun neo-buffer--rename-node ()
- "Rename current node as another path."
- (interactive)
- (let* ((current-path (neo-buffer--get-filename-current-line))
- (buffer (find-buffer-visiting current-path))
- to-path
- msg)
- (unless (null current-path)
- (setq msg (format "Rename [%s] to: " (neo-path--file-short-name current-path)))
- (setq to-path (read-file-name msg (file-name-directory current-path)))
- (if buffer
- (with-current-buffer buffer
- (set-visited-file-name to-path nil t)))
- (rename-file current-path to-path 1)
- (neo-buffer--refresh t)
- (message "Rename successful."))))
-
-(defun neo-buffer--copy-node ()
- "Copies current node as another path."
- (interactive)
- (let* ((current-path (neo-buffer--get-filename-current-line))
- (buffer (find-buffer-visiting current-path))
- to-path
- msg)
- (unless (null current-path)
- (setq msg (format "Copy [%s] to: " (neo-path--file-short-name current-path)))
- (setq to-path (read-file-name msg (file-name-directory current-path)))
- (if (file-directory-p current-path)
- (copy-directory current-path to-path)
- (copy-file current-path to-path))
- (neo-buffer--refresh t)
- (message "Copy successful."))))
-
-(defun neo-buffer--select-file-node (file &optional recursive-p)
- "Select the node that corresponds to the FILE.
-If RECURSIVE-P is non nil, find files will recursively."
- (let ((efile file)
- (iter-curr-dir nil)
- (file-node-find-p nil)
- (file-node-list nil))
- (unless (file-name-absolute-p efile)
- (setq efile (expand-file-name efile)))
- (setq iter-curr-dir efile)
- (catch 'return
- (while t
- (setq iter-curr-dir (neo-path--updir iter-curr-dir))
- (push iter-curr-dir file-node-list)
- (when (neo-path--file-equal-p iter-curr-dir neo-buffer--start-node)
- (setq file-node-find-p t)
- (throw 'return nil))
- (let ((niter-curr-dir (file-remote-p iter-curr-dir 'localname)))
- (unless niter-curr-dir
- (setq niter-curr-dir iter-curr-dir))
- (when (neo-path--file-equal-p niter-curr-dir "/")
- (setq file-node-find-p nil)
- (throw 'return nil)))))
- (when file-node-find-p
- (dolist (p file-node-list)
- (neo-buffer--set-expand p t))
- (neo-buffer--save-cursor-pos file)
- (neo-buffer--refresh nil))))
-
-(defun neo-buffer--change-root (root-dir)
- "Change the tree root to ROOT-DIR."
- (let ((path root-dir)
- start-path)
- (unless (and (file-exists-p path)
- (file-directory-p path))
- (throw 'error "The path is not a valid directory."))
- (setq start-path (expand-file-name (substitute-in-file-name path)))
- (setq neo-buffer--start-node start-path)
- (cd start-path)
- (neo-buffer--save-cursor-pos path nil)
- (neo-buffer--refresh nil)))
-
-(defun neo-buffer--get-nodes-for-select-down-node (path)
- "Return the node list for the down dir selection."
- (if path
- (when (file-name-directory path)
- (if (neo-buffer--expanded-node-p path)
- (neo-buffer--get-nodes path)
- (neo-buffer--get-nodes (file-name-directory path))))
- (neo-buffer--get-nodes (file-name-as-directory neo-buffer--start-node))))
-
-(defun neo-buffer--get-nodes-for-sibling (path)
- "Return the node list for the sibling selection. Return nil of no nodes can
-be found.
-The returned list is a directory list if path is a directory, otherwise it is
-a file list."
- (when path
- (let ((nodes (neo-buffer--get-nodes (file-name-directory path))))
- (if (file-directory-p path)
- (car nodes)
- (cdr nodes)))))
-
-(defun neo-buffer--sibling (path &optional previous)
- "Return the next sibling of node PATH.
-If PREVIOUS is non-nil the previous sibling is returned."
- (let* ((nodes (neo-buffer--get-nodes-for-sibling path)))
- (when nodes
- (let ((i (neo-buffer--get-node-index path nodes))
- (l (length nodes)))
- (if i (nth (mod (+ i (if previous -1 1)) l) nodes))))))
-
-(defun neo-buffer--execute (arg &optional file-fn dir-fn)
- "Define the behaviors for keyboard event.
-ARG is the parameter for command.
-If FILE-FN is non-nil, it will executed when a file node.
-If DIR-FN is non-nil, it will executed when a dir node."
- (interactive "P")
- (let* ((btn-full-path (neo-buffer--get-filename-current-line))
- is-file-p
- enter-fn)
- (unless (null btn-full-path)
- (setq is-file-p (not (file-directory-p btn-full-path))
- enter-fn (if is-file-p file-fn dir-fn))
- (unless (null enter-fn)
- (funcall enter-fn btn-full-path arg)
- (run-hook-with-args
- 'neo-enter-hook
- (if is-file-p 'file 'directory)
- btn-full-path
- arg)))
- btn-full-path))
-
-(defun neo-buffer--set-show-hidden-file-p (show-p)
- "If SHOW-P is non-nil, show hidden nodes in tree."
- (setq neo-buffer--show-hidden-file-p show-p)
- (neo-buffer--refresh t))
-
-(defun neo-buffer--forward-line (n)
- "Move N lines forward in NeoTree buffer."
- (forward-line (or n 1))
- (neo-buffer--post-move))
-
-;;
-;; Mode-line methods
-;;
-
-(defun neo-mode-line--compute-format (parent index ndirs nfiles)
- "Return a formated string to be used in the `neotree' mode-line."
- (let* ((nall (+ ndirs nfiles))
- (has-dirs (> ndirs 0))
- (has-files (> nfiles 0))
- (msg-index (when index (format "[%s/%s] " index nall)))
- (msg-ndirs (when has-dirs (format (if has-files " (D:%s" " (D:%s)") ndirs)))
- (msg-nfiles (when has-files (format (if has-dirs " F:%s)" " (F:%s)") nfiles)))
- (msg-directory (file-name-nondirectory (directory-file-name parent)))
- (msg-directory-max-length (- (window-width)
- (length msg-index)
- (length msg-ndirs)
- (length msg-nfiles))))
- (setq msg-directory (if (<= (length msg-directory) msg-directory-max-length)
- msg-directory
- (concat (substring msg-directory
- 0 (- msg-directory-max-length 3))
- "...")))
- (propertize
- (decode-coding-string (concat msg-index msg-directory msg-ndirs msg-nfiles) 'utf-8)
- 'help-echo (decode-coding-string parent 'utf-8))))
-
-;;
-;; Window methods
-;;
-
-(defun neo-window--init (window buffer)
- "Make WINDOW a NeoTree window.
-NeoTree buffer is BUFFER."
- (neo-buffer--with-resizable-window
- (switch-to-buffer buffer)
- (set-window-parameter window 'no-delete-other-windows t)
- (set-window-dedicated-p window t))
- window)
-
-(defun neo-window--zoom (method)
- "Zoom the NeoTree window, the METHOD should one of these options:
-'maximize 'minimize 'zoom-in 'zoom-out."
- (neo-buffer--unlock-width)
- (cond
- ((eq method 'maximize)
- (maximize-window))
- ((eq method 'minimize)
- (neo-util--set-window-width (selected-window) neo-window-width))
- ((eq method 'zoom-in)
- (shrink-window-horizontally 2))
- ((eq method 'zoom-out)
- (enlarge-window-horizontally 2)))
- (neo-buffer--lock-width))
-
-(defun neo-window--minimize-p ()
- "Return non-nil when the NeoTree window is minimize."
- (<= (window-width) neo-window-width))
-
-;;
-;; Interactive functions
-;;
-
-(defun neotree-next-line (&optional count)
- "Move next line in NeoTree buffer.
-Optional COUNT argument, moves COUNT lines down."
- (interactive "p")
- (neo-buffer--forward-line (or count 1)))
-
-(defun neotree-previous-line (&optional count)
- "Move previous line in NeoTree buffer.
-Optional COUNT argument, moves COUNT lines up."
- (interactive "p")
- (neo-buffer--forward-line (- (or count 1))))
-
-;;;###autoload
-(defun neotree-find (&optional path default-path)
- "Quick select node which specified PATH in NeoTree.
-If path is nil and no buffer file name, then use DEFAULT-PATH,"
- (interactive)
- (let* ((ndefault-path (if default-path default-path
- (neo-path--get-working-dir)))
- (npath (if path path
- (or (buffer-file-name) ndefault-path)))
- (do-open-p nil))
- (if (and (not neo-force-change-root)
- (not (neo-global--file-in-root-p npath))
- (neo-global--window-exists-p))
- (setq do-open-p (funcall neo-confirm-change-root "File not found in root path, do you want to change root?"))
- (setq do-open-p t))
- (when do-open-p
- (neo-global--open-and-find npath))
- (when neo-auto-indent-point
- (neo-point-auto-indent)))
- (neo-global--select-window))
-
-(defun neotree-click-changes-root-toggle ()
- "Toggle the variable neo-click-changes-root.
-If true, clicking on a directory will change the current root to
-the directory instead of showing the directory contents."
- (interactive)
- (setq neo-click-changes-root (not neo-click-changes-root)))
-
-(defun neo-open-dir (full-path &optional arg)
- "Toggle fold a directory node.
-
-FULL-PATH is the path of the directory.
-ARG is ignored."
- (if neo-click-changes-root
- (neotree-change-root)
- (progn
- (let ((new-state (neo-buffer--toggle-expand full-path)))
- (neo-buffer--refresh t)
- (when neo-auto-indent-point
- (when new-state (forward-line 1))
- (neo-point-auto-indent))))))
-
-
-(defun neo--expand-recursive (path state)
- "Set the state of children recursively.
-
-The children of PATH will have state STATE."
- (let ((children (car (neo-buffer--get-nodes path) )))
- (dolist (node children)
- (neo-buffer--set-expand node state)
- (neo--expand-recursive node state ))))
-
-(defun neo-open-dir-recursive (full-path &optional arg)
- "Toggle fold a directory node recursively.
-
-The children of the node will also be opened recursively.
-FULL-PATH is the path of the directory.
-ARG is ignored."
- (if neo-click-changes-root
- (neotree-change-root)
- (let ((new-state (neo-buffer--toggle-expand full-path))
- (children (car (neo-buffer--get-nodes full-path))))
- (dolist (node children)
- (neo-buffer--set-expand node new-state)
- (neo--expand-recursive node new-state))
- (neo-buffer--refresh t))))
-
-(defun neo-open-dired (full-path &optional arg)
- "Open file or directory node in `dired-mode'.
-
-FULL-PATH is the path of node.
-ARG is same as `neo-open-file'."
- (neo-global--select-mru-window arg)
- (dired full-path))
-
-(defun neo-open-file (full-path &optional arg)
- "Open a file node.
-
-FULL-PATH is the file path you want to open.
-If ARG is an integer then the node is opened in a window selected via
-`winum' or`window-numbering' (if available) according to the passed number.
-If ARG is `|' then the node is opened in new vertically split window.
-If ARG is `-' then the node is opened in new horizontally split window."
- (neo-global--select-mru-window arg)
- (find-file full-path))
-
-(defun neo-open-file-vertical-split (full-path arg)
- "Open the current node is a vertically split window.
-FULL-PATH and ARG are the same as `neo-open-file'."
- (neo-open-file full-path "|"))
-
-(defun neo-open-file-horizontal-split (full-path arg)
- "Open the current node is horizontally split window.
-FULL-PATH and ARG are the same as `neo-open-file'."
- (neo-open-file full-path "-"))
-
-(defun neo-open-file-ace-window (full-path arg)
- "Open the current node in a window chosen by ace-window.
-FULL-PATH and ARG are the same as `neo-open-file'."
- (neo-open-file full-path "a"))
-
-(defun neotree-open-file-in-system-application ()
- "Open a file under point in the system application."
- (interactive)
- (call-process neo-default-system-application nil 0 nil
- (neo-buffer--get-filename-current-line)))
-
-(defun neotree-change-root ()
- "Change root to current node dir.
-If current node is a file, then it will do nothing.
-If cannot find any node in current line, it equivalent to using `neotree-dir'."
- (interactive)
- (neo-global--select-window)
- (let ((btn-full-path (neo-buffer--get-filename-current-line)))
- (if (null btn-full-path)
- (call-interactively 'neotree-dir)
- (neo-global--open-dir btn-full-path))))
-
-(defun neotree-select-up-node ()
- "Select the parent directory of the current node. Change the root if
-necessary. "
- (interactive)
- (neo-global--select-window)
- (let* ((btn-full-path (neo-buffer--get-filename-current-line))
- (btn-parent-dir (if btn-full-path (file-name-directory btn-full-path)))
- (root-slash (file-name-as-directory neo-buffer--start-node)))
- (cond
- ((equal btn-parent-dir root-slash) (neo-global--open-dir root-slash))
- (btn-parent-dir (neotree-find btn-parent-dir))
- (t (neo-global--open-dir (file-name-directory
- (directory-file-name root-slash)))))))
-
-(defun neotree-select-down-node ()
- "Select an expanded directory or content directory according to the
-current node, in this order:
-- select the first expanded child node if the current node has one
-- select the content of current node if it is expanded
-- select the next expanded sibling if the current node is not expanded."
- (interactive)
- (let* ((btn-full-path (neo-buffer--get-filename-current-line))
- (path (if btn-full-path btn-full-path neo-buffer--start-node))
- (nodes (neo-buffer--get-nodes-for-select-down-node path)))
- (when nodes
- (if (or (equal path neo-buffer--start-node)
- (neo-buffer--expanded-node-p path))
- ;; select the first expanded child node
- (let ((expanded-dir (catch 'break
- (dolist (node (car nodes))
- (if (neo-buffer--expanded-node-p node)
- (throw 'break node)))
- nil)))
- (if expanded-dir
- (neotree-find expanded-dir)
- ;; select the directory content if needed
- (let ((dirs (car nodes))
- (files (cdr nodes)))
- (if (> (length dirs) 0)
- (neotree-find (car dirs))
- (when (> (length files) 0)
- (neotree-find (car files)))))))
- ;; select the next expanded sibling
- (let ((sibling (neo-buffer--sibling path)))
- (while (and (not (neo-buffer--expanded-node-p sibling))
- (not (equal sibling path)))
- (setq sibling (neo-buffer--sibling sibling)))
- (when (not (string< sibling path))
- ;; select next expanded sibling
- (neotree-find sibling)))))))
-
-(defun neotree-select-next-sibling-node ()
- "Select the next sibling of current node.
-If the current node is the last node then the first node is selected."
- (interactive)
- (let ((sibling (neo-buffer--sibling (neo-buffer--get-filename-current-line))))
- (when sibling (neotree-find sibling))))
-
-(defun neotree-select-previous-sibling-node ()
- "Select the previous sibling of current node.
-If the current node is the first node then the last node is selected."
- (interactive)
- (let ((sibling (neo-buffer--sibling (neo-buffer--get-filename-current-line) t)))
- (when sibling (neotree-find sibling))))
-
-(defun neotree-create-node (filename)
- "Create a file or directory use specified FILENAME in current node."
- (interactive
- (let* ((current-dir (neo-buffer--get-filename-current-line neo-buffer--start-node))
- (current-dir (neo-path--match-path-directory current-dir))
- (filename (read-file-name "Filename:" current-dir)))
- (if (file-directory-p filename)
- (setq filename (concat filename "/")))
- (list filename)))
- (catch 'rlt
- (let ((is-file nil))
- (when (= (length filename) 0)
- (throw 'rlt nil))
- (setq is-file (not (equal (substring filename -1) "/")))
- (when (file-exists-p filename)
- (message "File %S already exists." filename)
- (throw 'rlt nil))
- (when (and is-file
- (funcall neo-confirm-create-file (format "Do you want to create file %S ?"
- filename)))
- ;; ensure parent directory exist before saving
- (mkdir (substring filename 0 (+ 1 (cl-position ?/ filename :from-end t))) t)
- ;; NOTE: create a empty file
- (write-region "" nil filename)
- (neo-buffer--save-cursor-pos filename)
- (neo-buffer--refresh nil)
- (if neo-create-file-auto-open
- (find-file-other-window filename)))
- (when (and (not is-file)
- (funcall neo-confirm-create-directory (format "Do you want to create directory %S?"
- filename)))
- (mkdir filename t)
- (neo-buffer--save-cursor-pos filename)
- (neo-buffer--refresh nil)))))
-
-(defun neotree-delete-node ()
- "Delete current node."
- (interactive)
- (let* ((filename (neo-buffer--get-filename-current-line))
- (buffer (find-buffer-visiting filename))
- (deleted-p nil)
- (trash delete-by-moving-to-trash))
- (catch 'end
- (if (null filename) (throw 'end nil))
- (if (not (file-exists-p filename)) (throw 'end nil))
- (if (not (funcall neo-confirm-delete-file (format "Do you really want to delete %S?"
- filename)))
- (throw 'end nil))
- (if (file-directory-p filename)
- ;; delete directory
- (progn
- (unless (neo-path--has-subfile-p filename)
- (delete-directory filename nil trash)
- (setq deleted-p t)
- (throw 'end nil))
- (when (funcall neo-confirm-delete-directory-recursively
- (format "%S is a directory, delete it recursively?"
- filename))
- (when (funcall neo-confirm-kill-buffers-for-files-in-directory
- (format "kill buffers for files in directory %S?"
- filename))
- (neo-util--kill-buffers-for-path filename))
- (delete-directory filename t trash)
- (setq deleted-p t)))
- ;; delete file
- (progn
- (delete-file filename trash)
- (when buffer
- (kill-buffer-ask buffer))
- (setq deleted-p t))))
- (when deleted-p
- (message "%S deleted." filename)
- (neo-buffer--refresh t))
- filename))
-
-(defun neotree-rename-node ()
- "Rename current node."
- (interactive)
- (neo-buffer--rename-node))
-
-(defun neotree-copy-node ()
- "Copy current node."
- (interactive)
- (neo-buffer--copy-node))
-
-(defun neotree-hidden-file-toggle ()
- "Toggle show hidden files."
- (interactive)
- (neo-buffer--set-show-hidden-file-p (not neo-buffer--show-hidden-file-p)))
-
-(defun neotree-empty-fn ()
- "Used to bind the empty function to the shortcut."
- (interactive))
-
-(defun neotree-refresh (&optional is-auto-refresh)
- "Refresh the NeoTree buffer."
- (interactive)
- (if (eq (current-buffer) (neo-global--get-buffer))
- (neo-buffer--refresh t)
- (save-excursion
- (let ((cw (selected-window))) ;; save current window
- (if is-auto-refresh
- (let ((origin-buffer-file-name (buffer-file-name)))
- (when (and (fboundp 'projectile-project-p)
- (projectile-project-p)
- (fboundp 'projectile-project-root))
- (neo-global--open-dir (projectile-project-root))
- (neotree-find (projectile-project-root)))
- (neotree-find origin-buffer-file-name))
- (neo-buffer--refresh t t))
- (recenter)
- (when (or is-auto-refresh neo-toggle-window-keep-p)
- (select-window cw))))))
-
-(defun neotree-stretch-toggle ()
- "Make the NeoTree window toggle maximize/minimize."
- (interactive)
- (neo-global--with-window
- (if (neo-window--minimize-p)
- (neo-window--zoom 'maximize)
- (neo-window--zoom 'minimize))))
-
-(defun neotree-collapse-all ()
- (interactive)
- "Collapse all expanded folders in the neotree buffer"
- (setq list-of-expanded-folders neo-buffer--expanded-node-list)
- (dolist (folder list-of-expanded-folders)
- (neo-buffer--toggle-expand folder)
- (neo-buffer--refresh t)
- )
- )
-;;;###autoload
-(defun neotree-projectile-action ()
- "Integration with `Projectile'.
-
-Usage:
- (setq projectile-switch-project-action 'neotree-projectile-action).
-
-When running `projectile-switch-project' (C-c p p), `neotree' will change root
-automatically."
- (interactive)
- (cond
- ((fboundp 'projectile-project-root)
- (neotree-dir (projectile-project-root)))
- (t
- (error "Projectile is not available"))))
-
-;;;###autoload
-(defun neotree-toggle ()
- "Toggle show the NeoTree window."
- (interactive)
- (if (neo-global--window-exists-p)
- (neotree-hide)
- (neotree-show)))
-
-;;;###autoload
-(defun neotree-show ()
- "Show the NeoTree window."
- (interactive)
- (let ((cw (selected-window))
- (path (buffer-file-name))) ;; save current window and buffer
- (if neo-smart-open
- (progn
- (when (and (fboundp 'projectile-project-p)
- (projectile-project-p)
- (fboundp 'projectile-project-root))
- (neotree-dir (projectile-project-root)))
- (neotree-find path))
- (neo-global--open))
- (neo-global--select-window)
- (when neo-toggle-window-keep-p
- (select-window cw))))
-
-;;;###autoload
-(defun neotree-hide ()
- "Close the NeoTree window."
- (interactive)
- (if (neo-global--window-exists-p)
- (delete-window neo-global--window)))
-
-;;;###autoload
-(defun neotree-dir (path)
- "Show the NeoTree window, and change root to PATH."
- (interactive "DDirectory: ")
- (neo-global--open-dir path)
- (neo-global--select-window))
-
-;;;###autoload
-(defalias 'neotree 'neotree-show "Show the NeoTree window.")
-
-;;
-;; backward compatible
-;;
-
-(defun neo-bc--make-obsolete-message (from to)
- (message "Warning: `%S' is obsolete. Use `%S' instead." from to))
-
-(defun neo-buffer--enter-file (path)
- (neo-bc--make-obsolete-message 'neo-buffer--enter-file 'neo-open-file))
-
-(defun neo-buffer--enter-dir (path)
- (neo-bc--make-obsolete-message 'neo-buffer--enter-dir 'neo-open-dir))
-
-(defun neotree-enter (&optional arg)
- "NeoTree typical open event.
-ARG are the same as `neo-open-file'."
- (interactive "P")
- (neo-buffer--execute arg 'neo-open-file 'neo-open-dir))
-
-(defun neotree-quick-look (&optional arg)
- "Quick Look like NeoTree open event.
-ARG are the same as `neo-open-file'."
- (interactive "P")
- (neotree-enter arg)
- (neo-global--select-window))
-
-(defun neotree-enter-vertical-split ()
- "NeoTree open event, file node will opened in new vertically split window."
- (interactive)
- (neo-buffer--execute nil 'neo-open-file-vertical-split 'neo-open-dir))
-
-(defun neotree-enter-horizontal-split ()
- "NeoTree open event, file node will opened in new horizontally split window."
- (interactive)
- (neo-buffer--execute nil 'neo-open-file-horizontal-split 'neo-open-dir))
-
-(defun neotree-enter-ace-window ()
- "NeoTree open event, file node will be opened in window chosen by ace-window."
- (interactive)
- (neo-buffer--execute nil 'neo-open-file-ace-window 'neo-open-dir))
-
-(defun neotree-copy-filepath-to-yank-ring ()
- "Neotree convenience interactive function: file node path will be added to the kill ring."
- (interactive)
- (kill-new (neo-buffer--get-filename-current-line)))
-
-(defun neotree-split-window-sensibly (&optional window)
- "An neotree-version of split-window-sensibly,
-which is used to fix issue #209.
-(setq split-window-preferred-function 'neotree-split-window-sensibly)"
- (let ((window (or window (selected-window))))
- (or (split-window-sensibly window)
- (and (get-buffer-window neo-buffer-name)
- (not (window-minibuffer-p window))
- ;; If WINDOW is the only window on its frame
- ;; (or only include Neo window) and is not the
- ;; minibuffer window, try to split it vertically disregarding
- ;; the value of `split-height-threshold'.
- (let ((split-height-threshold 0))
- (when (window-splittable-p window)
- (with-selected-window window
- (split-window-below))))))))
-
-(provide 'neotree)
-;;; neotree.el ends here
-
--- /dev/null
+;;; neotree-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*-
+;; Generated by the `loaddefs-generate' function.
+
+;; This file is part of GNU Emacs.
+
+;;; Code:
+
+(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path)))
+
+
+\f
+;;; Generated autoloads from neotree.el
+
+(autoload 'neotree-find "neotree" "\
+Quick select node which specified PATH in NeoTree.
+If path is nil and no buffer file name, then use DEFAULT-PATH,
+
+(fn &optional PATH DEFAULT-PATH)" t)
+(autoload 'neotree-projectile-action "neotree" "\
+Integration with `Projectile'.
+
+Usage:
+ (setq projectile-switch-project-action 'neotree-projectile-action).
+
+When running `projectile-switch-project' (C-c p p), `neotree' will change root
+automatically." t)
+(autoload 'neotree-toggle "neotree" "\
+Toggle show the NeoTree window." t)
+(autoload 'neotree-show "neotree" "\
+Show the NeoTree window." t)
+(autoload 'neotree-hide "neotree" "\
+Close the NeoTree window." t)
+(autoload 'neotree-dir "neotree" "\
+Show the NeoTree window, and change root to PATH.
+
+(fn PATH)" t)
+(defalias 'neotree 'neotree-show "\
+Show the NeoTree window.")
+(register-definition-prefixes "neotree" '("neo" "off-p"))
+\f
+;;; End of scraped data
+
+(provide 'neotree-autoloads)
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; no-native-compile: t
+;; coding: utf-8-emacs-unix
+;; End:
+
+;;; neotree-autoloads.el ends here
--- /dev/null
+;; -*- no-byte-compile: t; lexical-binding: nil -*-
+(define-package "neotree" "20240721.233"
+ "A tree plugin like NerdTree for Vim."
+ '((cl-lib "0.5"))
+ :url "https://github.com/jaypei/emacs-neotree"
+ :commit "599bd049a5d9cfab8a0d7ab7bec99d58b4581751"
+ :revdesc "599bd049a5d9"
+ :authors '(("jaypei" . "jaypei97159NOSPAMgmail.com"))
+ :maintainers '(("jaypei" . "jaypei97159NOSPAMgmail.com")))
--- /dev/null
+;;; neotree.el --- A tree plugin like NerdTree for Vim
+
+;; Copyright (C) 2014 jaypei
+
+;; Author: jaypei <jaypei97159NOSPAMgmail.com>
+;; URL: https://github.com/jaypei/emacs-neotree
+;; Package-Version: 20240721.233
+;; Package-Revision: 599bd049a5d9
+;; Package-Requires: ((cl-lib "0.5"))
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; To use this file, put something like the following in your
+;; ~/.emacs:
+;;
+;; (add-to-list 'load-path "/directory/containing/neotree/")
+;; (require 'neotree)
+;;
+;; Type M-x neotree to start.
+;;
+;; To set options for NeoTree, type M-x customize, then select
+;; Applications, NeoTree.
+;;
+
+;;; Code:
+
+(require 'cl-lib)
+
+;;
+;; Constants
+;;
+
+(defconst neo-buffer-name " *NeoTree*"
+ "Name of the buffer where neotree shows directory contents.")
+
+(defconst neo-dir
+ (expand-file-name (if load-file-name
+ (file-name-directory load-file-name)
+ default-directory)))
+
+(defconst neo-header-height 5)
+
+(eval-and-compile
+
+ ;; Added in Emacs 24.3
+ (unless (fboundp 'user-error)
+ (defalias 'user-error 'error))
+
+ ;; Added in Emacs 24.3 (mirrors/emacs@b335efc3).
+ (unless (fboundp 'setq-local)
+ (defmacro setq-local (var val)
+ "Set variable VAR to value VAL in current buffer."
+ (list 'set (list 'make-local-variable (list 'quote var)) val)))
+
+ ;; Added in Emacs 24.3 (mirrors/emacs@b335efc3).
+ (unless (fboundp 'defvar-local)
+ (defmacro defvar-local (var val &optional docstring)
+ "Define VAR as a buffer-local variable with default value VAL.
+Like `defvar' but additionally marks the variable as being automatically
+buffer-local wherever it is set."
+ (declare (debug defvar) (doc-string 3))
+ (list 'progn (list 'defvar var val docstring)
+ (list 'make-variable-buffer-local (list 'quote var))))))
+
+;; Add autoload function for vc (#153).
+(autoload 'vc-responsible-backend "vc.elc")
+
+;;
+;; Macros
+;;
+
+(defmacro neo-util--to-bool (obj)
+ "If OBJ is non-nil, return t, else return nil."
+ `(and ,obj t))
+
+(defmacro neo-global--with-buffer (&rest body)
+ "Execute the forms in BODY with global NeoTree buffer."
+ (declare (indent 0) (debug t))
+ `(let ((neotree-buffer (neo-global--get-buffer)))
+ (unless (null neotree-buffer)
+ (with-current-buffer neotree-buffer
+ ,@body))))
+
+(defmacro neo-global--with-window (&rest body)
+ "Execute the forms in BODY with global NeoTree window."
+ (declare (indent 0) (debug t))
+ `(save-selected-window
+ (neo-global--select-window)
+ ,@body))
+
+(defmacro neo-global--when-window (&rest body)
+ "Execute the forms in BODY when selected window is NeoTree window."
+ (declare (indent 0) (debug t))
+ `(when (eq (selected-window) neo-global--window)
+ ,@body))
+
+(defmacro neo-global--switch-to-buffer ()
+ "Switch to NeoTree buffer."
+ `(let ((neotree-buffer (neo-global--get-buffer)))
+ (unless (null neotree-buffer)
+ (switch-to-buffer neotree-buffer))))
+
+(defmacro neo-buffer--with-editing-buffer (&rest body)
+ "Execute BODY in neotree buffer without read-only restriction."
+ `(let (rlt)
+ (neo-global--with-buffer
+ (setq buffer-read-only nil)
+ (setq rlt (progn ,@body))
+ (setq buffer-read-only t))
+ rlt))
+
+(defmacro neo-buffer--with-resizable-window (&rest body)
+ "Execute BODY in neotree window without `window-size-fixed' restriction."
+ `(let (rlt)
+ (neo-global--with-buffer
+ (neo-buffer--unlock-width))
+ (setq rlt (progn ,@body))
+ (neo-global--with-buffer
+ (neo-buffer--lock-width))
+ rlt))
+
+(defmacro neotree-make-executor (&rest fn-form)
+ "Make an open event handler, FN-FORM is event handler form."
+ (let* ((get-args-fn
+ (lambda (sym) (or (plist-get fn-form sym) (lambda (&rest _)))))
+ (file-fn (funcall get-args-fn :file-fn))
+ (dir-fn (funcall get-args-fn :dir-fn)))
+ `(lambda (&optional arg)
+ (interactive "P")
+ (neo-global--select-window)
+ (neo-buffer--execute arg ,file-fn ,dir-fn))))
+
+
+;;
+;; Customization
+;;
+
+(defgroup neotree nil
+ "Options for neotree."
+ :prefix "neo-"
+ :group 'files)
+
+(defgroup neotree-vc-options nil
+ "Neotree-VC customizations."
+ :prefix "neo-vc-"
+ :group 'neotree
+ :link '(info-link "(neotree)Configuration"))
+
+(defgroup neotree-confirmations nil
+ "Neotree confirmation customizations."
+ :prefix "neo-confirm-"
+ :group 'neotree)
+
+(defcustom neo-window-position 'left
+ "*The position of NeoTree window."
+ :group 'neotree
+ :type '(choice (const left)
+ (const right)))
+
+(defcustom neo-display-action '(neo-default-display-fn)
+ "*Action to use for displaying NeoTree window.
+If you change the action so it doesn't use
+`neo-default-display-fn', then other variables such as
+`neo-window-position' won't be respected when opening NeoTree
+window."
+ :type 'sexp
+ :group 'neotree)
+
+(defcustom neo-create-file-auto-open nil
+ "*If non-nil, the file will auto open when created."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-banner-message nil
+ "*The banner message of neotree window."
+ :type 'string
+ :group 'neotree)
+
+(defcustom neo-show-updir-line t
+ "*If non-nil, show the updir line (..)."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-show-slash-for-folder t
+ "*If non-nil, show the slash at the end of folder (folder/)"
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-reset-size-on-open nil
+ "*If non-nil, the width of the noetree window will be reseted every time a file is open."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-theme 'classic
+ "*The tree style to display.
+`classic' use icon to display, it only it suitable for GUI mode.
+`ascii' is the simplest style, it will use +/- to display the fold state,
+it suitable for terminal.
+`arrow' use unicode arrow.
+`nerd' use the nerdtree indentation mode and arrow.
+`icons' use icons from `all-the-icons' when installed.
+`nerd-icons' use icons from `nerd-icons' when installed."
+ :group 'neotree
+ :type '(choice (const classic)
+ (const ascii)
+ (const arrow)
+ (const icons)
+ (const nerd-icons)
+ (const nerd)))
+
+(defcustom neo-mode-line-type 'neotree
+ "*The mode-line type to display, `default' is a non-modified mode-line, \
+`neotree' is a compact mode-line that shows useful information about the
+ current node like the parent directory and the number of nodes,
+`custom' uses the format stored in `neo-mode-line-custom-format',
+`none' hide the mode-line."
+ :group 'neotree
+ :type '(choice (const default)
+ (const neotree)
+ (const custom)
+ (const none)))
+
+(defcustom neo-mode-line-custom-format nil
+ "*If `neo-mode-line-type' is set to `custom', this variable specifiy \
+the mode-line format."
+ :type 'sexp
+ :group 'neotree)
+
+(defcustom neo-smart-open nil
+ "*If non-nil, every time when the neotree window is opened, it will try to find current file and jump to node."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-show-hidden-files nil
+ "*If non-nil, the hidden files are shown by default."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-autorefresh nil
+ "*If non-nil, the neotree buffer will auto refresh."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-window-width 25
+ "*Specifies the width of the NeoTree window."
+ :type 'integer
+ :group 'neotree)
+
+(defcustom neo-window-fixed-size t
+ "*If the neotree windows is fixed, it won't be resize when rebalance windows."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-keymap-style 'default
+ "*The default keybindings for neotree-mode-map."
+ :group 'neotree
+ :type '(choice (const default)
+ (const concise)))
+
+(defcustom neo-cwd-line-style 'text
+ "*The default header style."
+ :group 'neotree
+ :type '(choice (const text)
+ (const button)))
+
+(defcustom neo-help-echo-style 'default
+ "The message NeoTree displays when the mouse moves onto nodes.
+`default' means the node name is displayed if it has a
+width (including the indent) larger than `neo-window-width', and
+`none' means NeoTree doesn't display any messages."
+ :group 'neotree
+ :type '(choice (const default)
+ (const none)))
+
+(defcustom neo-click-changes-root nil
+ "*If non-nil, clicking on a directory will change the current root to the directory."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-auto-indent-point nil
+ "*If non-nil the point is autmotically put on the first letter of a node."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-hidden-regexp-list
+ '("^\\." "\\.pyc$" "~$" "^#.*#$" "\\.elc$" "\\.o$")
+ "*The regexp list matching hidden files."
+ :type '(repeat (choice regexp))
+ :group 'neotree)
+
+(defcustom neo-enter-hook nil
+ "Functions to run if enter node occured."
+ :type 'hook
+ :group 'neotree)
+
+(defcustom neo-after-create-hook nil
+ "Hooks called after creating the neotree buffer."
+ :type 'hook
+ :group 'neotree)
+
+(defcustom neo-vc-integration nil
+ "If non-nil, show VC status."
+ :group 'neotree-vc
+ :type '(set (const :tag "Use different faces" face)
+ (const :tag "Use different characters" char)))
+
+(defcustom neo-vc-state-char-alist
+ '((up-to-date . ?\s)
+ (edited . ?E)
+ (added . ?+)
+ (removed . ?-)
+ (missing . ?!)
+ (needs-merge . ?M)
+ (conflict . ?!)
+ (unlocked-changes . ?!)
+ (needs-update . ?U)
+ (ignored . ?\s)
+ (user . ?U)
+ (unregistered . ?\s)
+ (nil . ?\s))
+ "Alist of vc-states to indicator characters.
+This variable is used in `neo-vc-for-node' when
+`neo-vc-integration' contains `char'."
+ :group 'neotree-vc
+ :type '(alist :key-type symbol
+ :value-type character))
+
+(defcustom neo-confirm-change-root 'yes-or-no-p
+ "Confirmation asking for permission to change root if file was not found in root path."
+ :type '(choice (function-item :tag "Verbose" yes-or-no-p)
+ (function-item :tag "Succinct" y-or-n-p)
+ (function-item :tag "Off" off-p))
+ :group 'neotree-confirmations)
+
+(defcustom neo-confirm-create-file 'yes-or-no-p
+ "Confirmation asking whether *NeoTree* should create a file."
+ :type '(choice (function-item :tag "Verbose" yes-or-no-p)
+ (function-item :tag "Succinct" y-or-n-p)
+ (function-item :tag "Off" off-p))
+ :group 'neotree-confirmations)
+
+(defcustom neo-confirm-create-directory 'yes-or-no-p
+ "Confirmation asking whether *NeoTree* should create a directory."
+ :type '(choice (function-item :tag "Verbose" yes-or-no-p)
+ (function-item :tag "Succinct" y-or-n-p)
+ (function-item :tag "Off" off-p))
+ :group 'neotree-confirmations)
+
+(defcustom neo-confirm-delete-file 'yes-or-no-p
+ "Confirmation asking whether *NeoTree* should delete the file."
+ :type '(choice (function-item :tag "Verbose" yes-or-no-p)
+ (function-item :tag "Succinct" y-or-n-p)
+ (function-item :tag "Off" off-p))
+ :group 'neotree-confirmations)
+
+(defcustom neo-confirm-delete-directory-recursively 'yes-or-no-p
+ "Confirmation asking whether the directory should be deleted recursively."
+ :type '(choice (function-item :tag "Verbose" yes-or-no-p)
+ (function-item :tag "Succinct" y-or-n-p)
+ (function-item :tag "Off" off-p))
+ :group 'neotree-confirmations)
+
+(defcustom neo-confirm-kill-buffers-for-files-in-directory 'yes-or-no-p
+ "Confirmation asking whether *NeoTree* should kill buffers for the directory in question."
+ :type '(choice (function-item :tag "Verbose" yes-or-no-p)
+ (function-item :tag "Succinct" y-or-n-p)
+ (function-item :tag "Off" off-p))
+ :group 'neotree-confirmations)
+
+(defcustom neo-toggle-window-keep-p nil
+ "If not nil, not switch to *NeoTree* buffer when executing `neotree-toggle'."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-force-change-root t
+ "If not nil, do not prompt when switching root."
+ :type 'boolean
+ :group 'neotree)
+
+(defcustom neo-filepath-sort-function 'string<
+ "Function to be called when sorting neotree nodes."
+ :type '(symbol (const :tag "Normal" string<)
+ (const :tag "Sort Hidden at Bottom" neo-sort-hidden-last)
+ (function :tag "Other"))
+ :group 'neotree)
+
+(defcustom neo-default-system-application "xdg-open"
+ "*Name of the application that is used to open a file under point.
+By default it is xdg-open."
+ :type 'string
+ :group 'neotree)
+
+(defcustom neo-hide-cursor nil
+ "If not nil, hide cursor in NeoTree buffer and turn on line higlight."
+ :type 'boolean
+ :group 'neotree)
+
+;;
+;; Faces
+;;
+
+(defface neo-banner-face
+ '((((background dark)) (:foreground "lightblue" :weight bold))
+ (t (:foreground "DarkMagenta")))
+ "*Face used for the banner in neotree buffer."
+ :group 'neotree :group 'font-lock-highlighting-faces)
+(defvar neo-banner-face 'neo-banner-face)
+
+(defface neo-header-face
+ '((((background dark)) (:foreground "White"))
+ (t (:foreground "DarkMagenta")))
+ "*Face used for the header in neotree buffer."
+ :group 'neotree :group 'font-lock-highlighting-faces)
+(defvar neo-header-face 'neo-header-face)
+
+(defface neo-root-dir-face
+ '((((background dark)) (:foreground "lightblue" :weight bold))
+ (t (:foreground "DarkMagenta")))
+ "*Face used for the root dir in neotree buffer."
+ :group 'neotree :group 'font-lock-highlighting-faces)
+(defvar neo-root-dir-face 'neo-root-dir-face)
+
+(defface neo-dir-link-face
+ '((((background dark)) (:foreground "DeepSkyBlue"))
+ (t (:foreground "MediumBlue")))
+ "*Face used for expand sign [+] in neotree buffer."
+ :group 'neotree :group 'font-lock-highlighting-faces)
+(defvar neo-dir-link-face 'neo-dir-link-face)
+
+(defface neo-file-link-face
+ '((((background dark)) (:foreground "White"))
+ (t (:foreground "Black")))
+ "*Face used for open file/dir in neotree buffer."
+ :group 'neotree :group 'font-lock-highlighting-faces)
+(defvar neo-file-link-face 'neo-file-link-face)
+
+(defface neo-button-face
+ '((t (:underline nil)))
+ "*Face used for open file/dir in neotree buffer."
+ :group 'neotree :group 'font-lock-highlighting-faces)
+(defvar neo-button-face 'neo-button-face)
+
+(defface neo-expand-btn-face
+ '((((background dark)) (:foreground "SkyBlue"))
+ (t (:foreground "DarkCyan")))
+ "*Face used for open file/dir in neotree buffer."
+ :group 'neotree :group 'font-lock-highlighting-faces)
+(defvar neo-expand-btn-face 'neo-expand-btn-face)
+
+(defface neo-vc-default-face
+ '((((background dark)) (:foreground "White"))
+ (t (:foreground "Black")))
+ "*Face used for unknown files in the neotree buffer.
+Used only when \(vc-state node\) returns nil."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-default-face 'neo-vc-default-face)
+
+(defface neo-vc-user-face
+ '((t (:foreground "Red" :slant italic)))
+ "*Face used for user-locked files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-user-face 'neo-vc-user-face)
+
+(defface neo-vc-up-to-date-face
+ '((((background dark)) (:foreground "LightGray"))
+ (t (:foreground "DarkGray")))
+ "*Face used for vc-up-to-date files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-up-to-date-face 'neo-vc-up-to-date-face)
+
+(defface neo-vc-edited-face
+ '((((background dark)) (:foreground "Magenta"))
+ (t (:foreground "DarkMagenta")))
+ "*Face used for vc-edited files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-edited-face 'neo-vc-edited-face)
+
+(defface neo-vc-needs-update-face
+ '((t (:underline t)))
+ "*Face used for vc-needs-update files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-needs-update-face 'neo-vc-needs-update-face)
+
+(defface neo-vc-needs-merge-face
+ '((((background dark)) (:foreground "Red1"))
+ (t (:foreground "Red3")))
+ "*Face used for vc-needs-merge files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-needs-merge-face 'neo-vc-needs-merge-face)
+
+(defface neo-vc-unlocked-changes-face
+ '((t (:foreground "Red" :background "Blue")))
+ "*Face used for vc-unlocked-changes files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-unlocked-changes-face 'neo-vc-unlocked-changes-face)
+
+(defface neo-vc-added-face
+ '((((background dark)) (:foreground "LightGreen"))
+ (t (:foreground "DarkGreen")))
+ "*Face used for vc-added files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-added-face 'neo-vc-added-face)
+
+(defface neo-vc-removed-face
+ '((t (:strike-through t)))
+ "*Face used for vc-removed files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-removed-face 'neo-vc-removed-face)
+
+(defface neo-vc-conflict-face
+ '((((background dark)) (:foreground "Red1"))
+ (t (:foreground "Red3")))
+ "*Face used for vc-conflict files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-conflict-face 'neo-vc-conflict-face)
+
+(defface neo-vc-missing-face
+ '((((background dark)) (:foreground "Red1"))
+ (t (:foreground "Red3")))
+ "*Face used for vc-missing files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-missing-face 'neo-vc-missing-face)
+
+(defface neo-vc-ignored-face
+ '((((background dark)) (:foreground "DarkGrey"))
+ (t (:foreground "LightGray")))
+ "*Face used for vc-ignored files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-ignored-face 'neo-vc-ignored-face)
+
+(defface neo-vc-unregistered-face
+ nil
+ "*Face used for vc-unregistered files in the neotree buffer."
+ :group 'neotree-vc :group 'font-lock-highlighting-faces)
+(defvar neo-vc-unregistered-face 'neo-vc-unregistered-face)
+
+;;
+;; Variables
+;;
+
+(defvar neo-global--buffer nil)
+
+(defvar neo-global--window nil)
+
+(defvar neo-global--autorefresh-timer nil)
+
+(defvar neo-mode-line-format
+ (list
+ '(:eval
+ (let* ((fname (neo-buffer--get-filename-current-line))
+ (current (if fname fname neo-buffer--start-node))
+ (parent (if fname (file-name-directory current) current))
+ (nodes (neo-buffer--get-nodes parent))
+ (dirs (car nodes))
+ (files (cdr nodes))
+ (ndirs (length dirs))
+ (nfiles (length files))
+ (index
+ (when fname
+ (1+ (if (file-directory-p current)
+ (neo-buffer--get-node-index current dirs)
+ (+ ndirs (neo-buffer--get-node-index current files)))))))
+ (neo-mode-line--compute-format parent index ndirs nfiles))))
+ "Neotree mode-line displaying information on the current node.
+This mode-line format is used if `neo-mode-line-type' is set to `neotree'")
+
+(defvar-local neo-buffer--start-node nil
+ "Start node(i.e. directory) for the window.")
+
+(defvar-local neo-buffer--start-line nil
+ "Index of the start line of the root.")
+
+(defvar-local neo-buffer--cursor-pos (cons nil 1)
+ "To save the cursor position.
+The car of the pair will store fullpath, and cdr will store line number.")
+
+(defvar-local neo-buffer--last-window-pos (cons nil 1)
+ "To save the scroll position for NeoTree window.")
+
+(defvar-local neo-buffer--show-hidden-file-p nil
+ "Show hidden nodes in tree.")
+
+(defvar-local neo-buffer--expanded-node-list nil
+ "A list of expanded dir nodes.")
+
+(defvar-local neo-buffer--node-list nil
+ "The model of current NeoTree buffer.")
+
+(defvar-local neo-buffer--node-list-1 nil
+ "The model of current NeoTree buffer (temp).")
+
+;;
+;; Major mode definitions
+;;
+
+(defvar neotree-file-button-keymap
+ (let ((map (make-sparse-keymap)))
+ (define-key map [mouse-2]
+ (neotree-make-executor
+ :file-fn 'neo-open-file))
+ map)
+ "Keymap for file-node button.")
+
+(defvar neotree-dir-button-keymap
+ (let ((map (make-sparse-keymap)))
+ (define-key map [mouse-2]
+ (neotree-make-executor :dir-fn 'neo-open-dir))
+ map)
+ "Keymap for dir-node button.")
+
+(defvar neotree-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "TAB") (neotree-make-executor
+ :dir-fn 'neo-open-dir))
+ (define-key map (kbd "RET") (neotree-make-executor
+ :file-fn 'neo-open-file
+ :dir-fn 'neo-open-dir))
+ (define-key map (kbd "|") (neotree-make-executor
+ :file-fn 'neo-open-file-vertical-split))
+ (define-key map (kbd "-") (neotree-make-executor
+ :file-fn 'neo-open-file-horizontal-split))
+ (define-key map (kbd "a") (neotree-make-executor
+ :file-fn 'neo-open-file-ace-window))
+ (define-key map (kbd "d") (neotree-make-executor
+ :dir-fn 'neo-open-dired))
+ (define-key map (kbd "O") (neotree-make-executor
+ :dir-fn 'neo-open-dir-recursive))
+ (define-key map (kbd "SPC") 'neotree-quick-look)
+ (define-key map (kbd "g") 'neotree-refresh)
+ (define-key map (kbd "q") 'neotree-hide)
+ (define-key map (kbd "p") 'neotree-previous-line)
+ (define-key map (kbd "C-p") 'neotree-previous-line)
+ (define-key map (kbd "n") 'neotree-next-line)
+ (define-key map (kbd "C-n") 'neotree-next-line)
+ (define-key map (kbd "A") 'neotree-stretch-toggle)
+ (define-key map (kbd "U") 'neotree-select-up-node)
+ (define-key map (kbd "D") 'neotree-select-down-node)
+ (define-key map (kbd "H") 'neotree-hidden-file-toggle)
+ (define-key map (kbd "S") 'neotree-select-previous-sibling-node)
+ (define-key map (kbd "s") 'neotree-select-next-sibling-node)
+ (define-key map (kbd "o") 'neotree-open-file-in-system-application)
+ (define-key map (kbd "C-x C-f") 'find-file-other-window)
+ (define-key map (kbd "C-x 1") 'neotree-empty-fn)
+ (define-key map (kbd "C-x 2") 'neotree-empty-fn)
+ (define-key map (kbd "C-x 3") 'neotree-empty-fn)
+ (define-key map (kbd "C-c C-f") 'find-file-other-window)
+ (define-key map (kbd "C-c C-c") 'neotree-change-root)
+ (define-key map (kbd "C-c c") 'neotree-dir)
+ (define-key map (kbd "C-c C-a") 'neotree-collapse-all)
+ (cond
+ ((eq neo-keymap-style 'default)
+ (define-key map (kbd "C-c C-n") 'neotree-create-node)
+ (define-key map (kbd "C-c C-d") 'neotree-delete-node)
+ (define-key map (kbd "C-c C-r") 'neotree-rename-node)
+ (define-key map (kbd "C-c C-p") 'neotree-copy-node))
+ ((eq neo-keymap-style 'concise)
+ (define-key map (kbd "C") 'neotree-change-root)
+ (define-key map (kbd "c") 'neotree-create-node)
+ (define-key map (kbd "+") 'neotree-create-node)
+ (define-key map (kbd "d") 'neotree-delete-node)
+ (define-key map (kbd "r") 'neotree-rename-node)
+ (define-key map (kbd "e") 'neotree-enter)))
+ map)
+ "Keymap for `neotree-mode'.")
+
+(define-derived-mode neotree-mode special-mode "NeoTree"
+ "A major mode for displaying the directory tree in text mode."
+ (setq indent-tabs-mode nil ; only spaces
+ buffer-read-only t ; read only
+ truncate-lines -1
+ neo-buffer--show-hidden-file-p neo-show-hidden-files)
+ (when neo-hide-cursor
+ (progn
+ (setq cursor-type nil)
+ (hl-line-mode +1)))
+ (pcase neo-mode-line-type
+ (`neotree
+ (setq-local mode-line-format neo-mode-line-format)
+ (add-hook 'post-command-hook 'force-mode-line-update nil t))
+ (`none (setq-local mode-line-format nil))
+ (`custom
+ (setq-local mode-line-format neo-mode-line-custom-format)
+ (add-hook 'post-command-hook 'force-mode-line-update nil t))
+ (_ nil))
+ ;; fix for electric-indent-mode
+ ;; for emacs 24.4
+ (if (fboundp 'electric-indent-local-mode)
+ (electric-indent-local-mode -1)
+ ;; for emacs 24.3 or less
+ (add-hook 'electric-indent-functions
+ (lambda (arg) 'no-indent) nil 'local))
+ (when neo-auto-indent-point
+ (add-hook 'post-command-hook 'neo-hook--node-first-letter nil t)))
+
+;;
+;; Global methods
+;;
+
+(defun neo-global--window-exists-p ()
+ "Return non-nil if neotree window exists."
+ (and (not (null (window-buffer neo-global--window)))
+ (eql (window-buffer neo-global--window) (neo-global--get-buffer))))
+
+(defun neo-global--select-window ()
+ "Select the NeoTree window."
+ (interactive)
+ (let ((window (neo-global--get-window t)))
+ (select-window window)))
+
+(defun neo-global--get-window (&optional auto-create-p)
+ "Return the neotree window if it exists, else return nil.
+But when the neotree window does not exist and AUTO-CREATE-P is non-nil,
+it will create the neotree window and return it."
+ (unless (neo-global--window-exists-p)
+ (setf neo-global--window nil))
+ (when (and (null neo-global--window)
+ auto-create-p)
+ (setq neo-global--window
+ (neo-global--create-window)))
+ neo-global--window)
+
+(defun neo-default-display-fn (buffer _alist)
+ "Display BUFFER to the left or right of the root window.
+The side is decided according to `neo-window-position'.
+The root window is the root window of the selected frame.
+_ALIST is ignored."
+ (let ((window-pos (if (eq neo-window-position 'left) 'left 'right)))
+ (display-buffer-in-side-window buffer `((side . ,window-pos)))))
+
+(defun neo-global--create-window ()
+ "Create global neotree window."
+ (let ((window nil)
+ (buffer (neo-global--get-buffer t)))
+ (setq window
+ (select-window
+ (display-buffer buffer neo-display-action)))
+ (neo-window--init window buffer)
+ (neo-global--attach)
+ (neo-global--reset-width)
+ window))
+
+(defun neo-global--get-buffer (&optional init-p)
+ "Return the global neotree buffer if it exists.
+If INIT-P is non-nil and global NeoTree buffer not exists, then create it."
+ (unless (equal (buffer-name neo-global--buffer)
+ neo-buffer-name)
+ (setf neo-global--buffer nil))
+ (when (and init-p
+ (null neo-global--buffer))
+ (save-window-excursion
+ (setq neo-global--buffer
+ (neo-buffer--create))))
+ neo-global--buffer)
+
+(defun neo-global--file-in-root-p (path)
+ "Return non-nil if PATH in root dir."
+ (neo-global--with-buffer
+ (and (not (null neo-buffer--start-node))
+ (neo-path--file-in-directory-p path neo-buffer--start-node))))
+
+(defun neo-global--alone-p ()
+ "Check whether the global neotree window is alone with some other window."
+ (let ((windows (window-list)))
+ (and (= (length windows)
+ 2)
+ (member neo-global--window windows))))
+
+(defun neo-global--do-autorefresh ()
+ "Do auto refresh."
+ (interactive)
+ (when (and neo-autorefresh (neo-global--window-exists-p)
+ (buffer-file-name))
+ (neotree-refresh t)))
+
+(defun neo-global--open ()
+ "Show the NeoTree window."
+ (let ((valid-start-node-p nil))
+ (neo-global--with-buffer
+ (setf valid-start-node-p (neo-buffer--valid-start-node-p)))
+ (if (not valid-start-node-p)
+ (neo-global--open-dir (neo-path--get-working-dir))
+ (neo-global--get-window t))))
+
+(defun neo-global--open-dir (path)
+ "Show the NeoTree window, and change root to PATH."
+ (neo-global--get-window t)
+ (neo-global--with-buffer
+ (neo-buffer--change-root path)))
+
+(defun neo-global--open-and-find (path)
+ "Quick select node which specified PATH in NeoTree."
+ (let ((npath path)
+ root-dir)
+ (when (null npath)
+ (throw 'invalid-path "Invalid path to select."))
+ (setq root-dir (if (file-directory-p npath)
+ npath (neo-path--updir npath)))
+ (when (or (not (neo-global--window-exists-p))
+ (not (neo-global--file-in-root-p npath)))
+ (neo-global--open-dir root-dir))
+ (neo-global--with-window
+ (neo-buffer--select-file-node npath t))))
+
+(defun neo-global--select-mru-window (arg)
+ "Create or find a window to select when open a file node.
+The description of ARG is in `neotree-enter'."
+ (when (eq (safe-length (window-list)) 1)
+ (neo-buffer--with-resizable-window
+ (split-window-horizontally)))
+ (when neo-reset-size-on-open
+ (neo-global--when-window
+ (neo-window--zoom 'minimize)))
+ ;; select target window
+ (cond
+ ;; select window with winum
+ ((and (integerp arg)
+ (bound-and-true-p winum-mode)
+ (fboundp 'winum-select-window-by-number))
+ (winum-select-window-by-number arg))
+ ;; select window with window numbering
+ ((and (integerp arg)
+ (boundp 'window-numbering-mode)
+ (symbol-value window-numbering-mode)
+ (fboundp 'select-window-by-number))
+ (select-window-by-number arg))
+ ;; open node in a new vertically split window
+ ((and (stringp arg) (string= arg "a")
+ (fboundp 'ace-select-window))
+ (ace-select-window))
+ ((and (stringp arg) (string= arg "|"))
+ (select-window (get-mru-window))
+ (split-window-right)
+ (windmove-right))
+ ;; open node in a new horizontally split window
+ ((and (stringp arg) (string= arg "-"))
+ (select-window (get-mru-window))
+ (split-window-below)
+ (windmove-down)))
+ ;; open node in last active window
+ (select-window (get-mru-window)))
+
+(defun neo-global--detach ()
+ "Detach the global neotree buffer."
+ (when neo-global--autorefresh-timer
+ (cancel-timer neo-global--autorefresh-timer))
+ (neo-global--with-buffer
+ (neo-buffer--unlock-width))
+ (setq neo-global--buffer nil)
+ (setq neo-global--window nil))
+
+(defun neo-global--attach ()
+ "Attach the global neotree buffer"
+ (when neo-global--autorefresh-timer
+ (cancel-timer neo-global--autorefresh-timer))
+ (when neo-autorefresh
+ (setq neo-global--autorefresh-timer
+ (run-with-idle-timer 2 10 'neo-global--do-autorefresh)))
+ (setq neo-global--buffer (get-buffer neo-buffer-name))
+ (setq neo-global--window (get-buffer-window
+ neo-global--buffer))
+ (neo-global--with-buffer
+ (neo-buffer--lock-width))
+ (run-hook-with-args 'neo-after-create-hook '(window)))
+
+(defun neo-global--set-window-width (width)
+ "Set neotree window width to WIDTH."
+ (neo-global--with-window
+ (neo-buffer--with-resizable-window
+ (neo-util--set-window-width (selected-window) width))))
+
+(defun neo-global--reset-width ()
+ "Set neotree window width to `neo-window-width'."
+ (neo-global--set-window-width neo-window-width))
+
+;;
+;; Advices
+;;
+
+(defadvice mouse-drag-vertical-line
+ (around neotree-drag-vertical-line (start-event) activate)
+ "Drag and drop is not affected by the lock."
+ (neo-buffer--with-resizable-window
+ ad-do-it))
+
+(defadvice balance-windows
+ (around neotree-balance-windows activate)
+ "Fix neotree inhibits balance-windows."
+ (if (neo-global--window-exists-p)
+ (let (old-width)
+ (neo-global--with-window
+ (setq old-width (window-width)))
+ (neo-buffer--with-resizable-window
+ ad-do-it)
+ (neo-global--with-window
+ (neo-global--set-window-width old-width)))
+ ad-do-it))
+
+(eval-after-load 'popwin
+ '(progn
+ (defadvice popwin:create-popup-window
+ (around neotree/popwin-popup-buffer activate)
+ (let ((neo-exists-p (neo-global--window-exists-p)))
+ (when neo-exists-p
+ (neo-global--detach))
+ ad-do-it
+ (when neo-exists-p
+ (neo-global--attach)
+ (neo-global--reset-width))))
+
+ (defadvice popwin:close-popup-window
+ (around neotree/popwin-close-popup-window activate)
+ (let ((neo-exists-p (neo-global--window-exists-p)))
+ (when neo-exists-p
+ (neo-global--detach))
+ ad-do-it
+ (when neo-exists-p
+ (neo-global--attach)
+ (neo-global--reset-width))))))
+
+;;
+;; Hooks
+;;
+
+(defun neo-hook--node-first-letter ()
+ "Move point to the first letter of the current node."
+ (when (or (eq this-command 'next-line)
+ (eq this-command 'previous-line))
+ (neo-point-auto-indent)))
+
+;;
+;; Util methods
+;;
+
+(defun neo-util--filter (condp lst)
+ "Apply CONDP to elements of LST keeping those that return non-nil.
+
+Example:
+ (neo-util--filter 'symbolp '(a \"b\" 3 d4))
+ => (a d4)
+
+This procedure does not work when CONDP is the `null' function."
+ (delq nil
+ (mapcar (lambda (x) (and (funcall condp x) x)) lst)))
+
+(defun neo-util--find (where which)
+ "Find element of the list WHERE matching predicate WHICH."
+ (catch 'found
+ (dolist (elt where)
+ (when (funcall which elt)
+ (throw 'found elt)))
+ nil))
+
+(defun neo-util--make-printable-string (string)
+ "Strip newline character from STRING, like 'Icon\n'."
+ (replace-regexp-in-string "\n" "" string))
+
+(defun neo-util--walk-dir (path)
+ "Return the subdirectories and subfiles of the PATH."
+ (let* ((full-path (neo-path--file-truename path)))
+ (condition-case nil
+ (directory-files
+ path 'full directory-files-no-dot-files-regexp)
+ ('file-error
+ (message "Walk directory %S failed." path)
+ nil))))
+
+(defun neo-util--hidden-path-filter (node)
+ "A filter function, if the NODE can not match each item in \
+`neo-hidden-regexp-list', return t."
+ (if (not neo-buffer--show-hidden-file-p)
+ (let ((shortname (neo-path--file-short-name node)))
+ (null (neo-util--filter
+ (lambda (x) (not (null (string-match-p x shortname))))
+ neo-hidden-regexp-list)))
+ node))
+
+(defun neo-str--trim-left (s)
+ "Remove whitespace at the beginning of S."
+ (if (string-match "\\`[ \t\n\r]+" s)
+ (replace-match "" t t s)
+ s))
+
+(defun neo-str--trim-right (s)
+ "Remove whitespace at the end of S."
+ (if (string-match "[ \t\n\r]+\\'" s)
+ (replace-match "" t t s)
+ s))
+
+(defun neo-str--trim (s)
+ "Remove whitespace at the beginning and end of S."
+ (neo-str--trim-left (neo-str--trim-right s)))
+
+(defun neo-path--expand-name (path &optional current-dir)
+ (expand-file-name (or (if (file-name-absolute-p path) path)
+ (let ((r-path path))
+ (setq r-path (substitute-in-file-name r-path))
+ (setq r-path (expand-file-name r-path current-dir))
+ r-path))))
+
+(defun neo-path--shorten (path len)
+ "Shorten a given PATH to a specified LEN.
+This is needed for paths, which are to long for the window to display
+completely. The function cuts of the first part of the path to remain
+the last folder (the current one)."
+ (let ((result
+ (if (> (length path) len)
+ (concat "<" (substring path (- (- len 2))))
+ path)))
+ (when result
+ (decode-coding-string result 'utf-8))))
+
+(defun neo-path--insert-chroot-button (label path face)
+ (insert-button
+ label
+ 'action '(lambda (x) (neotree-change-root))
+ 'follow-link t
+ 'face face
+ 'neo-full-path path))
+
+(defun neo-path--insert-header-buttonized (path)
+ "Shortens the PATH to (window-body-width) and displays any \
+visible remains as buttons that, when clicked, navigate to that
+parent directory."
+ (let* ((dirs (reverse (cl-maplist 'identity (reverse (split-string path "/" :omitnulls)))))
+ (last (car-safe (car-safe (last dirs)))))
+ (neo-path--insert-chroot-button "/" "/" 'neo-root-dir-face)
+ (dolist (dir dirs)
+ (if (string= (car dir) last)
+ (neo-buffer--insert-with-face last 'neo-root-dir-face)
+ (neo-path--insert-chroot-button
+ (concat (car dir) "/")
+ (apply 'neo-path--join (cons "/" (reverse dir)))
+ 'neo-root-dir-face))))
+ ;;shorten the line if need be
+ (when (> (current-column) (window-body-width))
+ (forward-char (- (window-body-width)))
+ (delete-region (point-at-bol) (point))
+ (let* ((button (button-at (point)))
+ (path (if button (overlay-get button 'neo-full-path) "/")))
+ (neo-path--insert-chroot-button "<" path 'neo-root-dir-face))
+ (end-of-line)))
+
+(defun neo-path--updir (path)
+ (let ((r-path (neo-path--expand-name path)))
+ (if (and (> (length r-path) 0)
+ (equal (substring r-path -1) "/"))
+ (setq r-path (substring r-path 0 -1)))
+ (if (eq (length r-path) 0)
+ (setq r-path "/"))
+ (directory-file-name
+ (file-name-directory r-path))))
+
+(defun neo-path--join (root &rest dirs)
+ "Joins a series of directories together with ROOT and DIRS.
+Like Python's os.path.join,
+ (neo-path--join \"/tmp\" \"a\" \"b\" \"c\") => /tmp/a/b/c ."
+ (or (if (not dirs) root)
+ (let ((tdir (car dirs))
+ (epath nil))
+ (setq epath
+ (or (if (equal tdir ".") root)
+ (if (equal tdir "..") (neo-path--updir root))
+ (neo-path--expand-name tdir root)))
+ (apply 'neo-path--join
+ epath
+ (cdr dirs)))))
+
+(defun neo-path--file-short-name (file)
+ "Base file/directory name by FILE.
+Taken from http://lists.gnu.org/archive/html/emacs-devel/2011-01/msg01238.html"
+ (or (if (string= file "/") "/")
+ (neo-util--make-printable-string (file-name-nondirectory (directory-file-name file)))))
+
+(defun neo-path--file-truename (path)
+ (let ((rlt (file-truename path)))
+ (if (not (null rlt))
+ (progn
+ (if (and (file-directory-p rlt)
+ (> (length rlt) 0)
+ (not (equal (substring rlt -1) "/")))
+ (setq rlt (concat rlt "/")))
+ rlt)
+ nil)))
+
+(defun neo-path--has-subfile-p (dir)
+ "To determine whether a directory(DIR) contain files."
+ (and (file-exists-p dir)
+ (file-directory-p dir)
+ (neo-util--walk-dir dir)
+ t))
+
+(defun neo-path--match-path-directory (path)
+ (let ((true-path (neo-path--file-truename path))
+ (rlt-path nil))
+ (setq rlt-path
+ (catch 'rlt
+ (if (file-directory-p true-path)
+ (throw 'rlt true-path))
+ (setq true-path
+ (file-name-directory true-path))
+ (if (file-directory-p true-path)
+ (throw 'rlt true-path))))
+ (if (not (null rlt-path))
+ (setq rlt-path (neo-path--join "." rlt-path "./")))
+ rlt-path))
+
+(defun neo-path--get-working-dir ()
+ "Return a directory name of the current buffer."
+ (file-name-as-directory (file-truename default-directory)))
+
+(defun neo-path--strip (path)
+ "Remove whitespace at the end of PATH."
+ (let* ((rlt (neo-str--trim path))
+ (pos (string-match "[\\\\/]+\\'" rlt)))
+ (when pos
+ (setq rlt (replace-match "" t t rlt))
+ (when (eq (length rlt) 0)
+ (setq rlt "/")))
+ rlt))
+
+(defun neo-path--path-equal-p (path1 path2)
+ "Return non-nil if pathes PATH1 and PATH2 are the same path."
+ (string-equal (neo-path--strip path1)
+ (neo-path--strip path2)))
+
+(defun neo-path--file-equal-p (file1 file2)
+ "Return non-nil if files FILE1 and FILE2 name the same file.
+If FILE1 or FILE2 does not exist, the return value is unspecified."
+ (unless (or (null file1)
+ (null file2))
+ (let ((nfile1 (neo-path--strip file1))
+ (nfile2 (neo-path--strip file2)))
+ (file-equal-p nfile1 nfile2))))
+
+(defun neo-path--file-in-directory-p (file dir)
+ "Return non-nil if FILE is in DIR or a subdirectory of DIR.
+A directory is considered to be \"in\" itself.
+Return nil if DIR is not an existing directory."
+ (let ((nfile (neo-path--strip file))
+ (ndir (neo-path--strip dir)))
+ (setq ndir (concat ndir "/"))
+ (file-in-directory-p nfile ndir)))
+
+(defun neo-util--kill-buffers-for-path (path)
+ "Kill all buffers for files in PATH."
+ (let ((buffer (find-buffer-visiting path)))
+ (when buffer
+ (kill-buffer buffer)))
+ (dolist (filename (directory-files path t directory-files-no-dot-files-regexp))
+ (let ((buffer (find-buffer-visiting filename)))
+ (when buffer
+ (kill-buffer buffer))
+ (when (and
+ (file-directory-p filename)
+ (neo-path--has-subfile-p filename))
+ (neo-util--kill-buffers-for-path filename)))))
+
+(defun neo-util--set-window-width (window n)
+ "Make WINDOW N columns width."
+ (let ((w (max n window-min-width)))
+ (unless (null window)
+ (if (> (window-width) w)
+ (shrink-window-horizontally (- (window-width) w))
+ (if (< (window-width) w)
+ (enlarge-window-horizontally (- w (window-width))))))))
+
+(defun neo-point-auto-indent ()
+ "Put the point on the first letter of the current node."
+ (when (neo-buffer--get-filename-current-line)
+ (beginning-of-line 1)
+ (re-search-forward "[^-\s+]" (line-end-position 1) t)
+ (backward-char 1)))
+
+(defun off-p (msg)
+ "Returns true regardless of message value in the argument."
+ t)
+
+(defun neo-sort-hidden-last (x y)
+ "Sort normally but with hidden files last."
+ (let ((x-hidden (neo-filepath-hidden-p x))
+ (y-hidden (neo-filepath-hidden-p y)))
+ (cond
+ ((and x-hidden (not y-hidden))
+ nil)
+ ((and (not x-hidden) y-hidden)
+ t)
+ (t
+ (string< x y)))))
+
+(defun neo-filepath-hidden-p (node)
+ "Return whether or not node is a hidden path."
+ (let ((shortname (neo-path--file-short-name node)))
+ (neo-util--filter
+ (lambda (x) (not (null (string-match-p x shortname))))
+ neo-hidden-regexp-list)))
+
+(defun neo-get-unsaved-buffers-from-projectile ()
+ "Return list of unsaved buffers from projectile buffers."
+ (interactive)
+ (let ((rlist '())
+ (rtag t))
+ (condition-case nil
+ (projectile-project-buffers)
+ (error (setq rtag nil)))
+ (when (and rtag (fboundp 'projectile-project-buffers))
+ (dolist (buf (projectile-project-buffers))
+ (with-current-buffer buf
+ (if (and (buffer-modified-p) buffer-file-name)
+ (setq rlist (cons (buffer-file-name) rlist))
+ ))))
+ rlist))
+
+;;
+;; Buffer methods
+;;
+
+(defun neo-buffer--newline-and-begin ()
+ "Insert new line."
+ (newline)
+ (beginning-of-line))
+
+(defun neo-buffer--get-icon (name)
+ "Get image by NAME."
+ (let ((icon-path (neo-path--join neo-dir "icons"))
+ image)
+ (setq image (create-image
+ (neo-path--join icon-path (concat name ".xpm"))
+ 'xpm nil :ascent 'center :mask '(heuristic t)))
+ image))
+
+(defun neo--nerd-icons-icon-for-dir-with-chevron (dir &optional chevron padding)
+ (let ((icon (nerd-icons-icon-for-dir dir))
+ (chevron (if chevron (nerd-icons-octicon (format "nf-oct-chevron_%s" chevron) :height 0.8 :v-adjust -0.1) ""))
+ (padding (or padding "\t")))
+ (format "%s%s%s%s%s" padding chevron padding icon padding)))
+
+(defun neo-buffer--insert-fold-symbol (name &optional node-name)
+ "Write icon by NAME, the icon style affected by neo-theme.
+`open' write opened folder icon.
+`close' write closed folder icon.
+`leaf' write leaf icon.
+Optional NODE-NAME is used for the `icons' theme"
+ (let ((n-insert-image (lambda (n)
+ (insert-image (neo-buffer--get-icon n))))
+ (n-insert-symbol (lambda (n)
+ (neo-buffer--insert-with-face
+ n 'neo-expand-btn-face))))
+ (cond
+ ((and (display-graphic-p) (equal neo-theme 'classic))
+ (or (and (equal name 'open) (funcall n-insert-image "open"))
+ (and (equal name 'close) (funcall n-insert-image "close"))
+ (and (equal name 'leaf) (funcall n-insert-image "leaf"))))
+ ((equal neo-theme 'arrow)
+ (or (and (equal name 'open) (funcall n-insert-symbol "â–¾"))
+ (and (equal name 'close) (funcall n-insert-symbol "â–¸"))))
+ ((equal neo-theme 'nerd)
+ (or (and (equal name 'open) (funcall n-insert-symbol "â–¾ "))
+ (and (equal name 'close) (funcall n-insert-symbol "â–¸ "))
+ (and (equal name 'leaf) (funcall n-insert-symbol " "))))
+ ((and (display-graphic-p) (equal neo-theme 'icons))
+ (unless (require 'all-the-icons nil 'noerror)
+ (error "Package `all-the-icons' isn't installed"))
+ (setq-local tab-width 1)
+ (or (and (equal name 'open) (insert (all-the-icons-icon-for-dir-with-chevron (directory-file-name node-name) "down")))
+ (and (equal name 'close) (insert (all-the-icons-icon-for-dir-with-chevron (directory-file-name node-name) "right")))
+ (and (equal name 'leaf) (insert (format "\t\t\t%s\t" (all-the-icons-icon-for-file node-name))))))
+ ((equal neo-theme 'nerd-icons)
+ (unless (require 'nerd-icons nil 'noerror)
+ (error "Package `nerd-icons' isn't installed"))
+ (setq-local tab-width 1)
+ (or (and (equal name 'open) (insert (neo--nerd-icons-icon-for-dir-with-chevron (directory-file-name node-name) "down")))
+ (and (equal name 'close) (insert (neo--nerd-icons-icon-for-dir-with-chevron (directory-file-name node-name) "right")))
+ (and (equal name 'leaf) (insert (format "\t\t\t%s\t" (nerd-icons-icon-for-file node-name))))))
+ (t
+ (or (and (equal name 'open) (funcall n-insert-symbol "- "))
+ (and (equal name 'close) (funcall n-insert-symbol "+ ")))))))
+
+(defun neo-buffer--save-cursor-pos (&optional node-path line-pos)
+ "Save cursor position.
+If NODE-PATH and LINE-POS is nil, it will be save the current line node position."
+ (let ((cur-node-path nil)
+ (cur-line-pos nil)
+ (ws-wind (selected-window))
+ (ws-pos (window-start)))
+ (setq cur-node-path (if node-path
+ node-path
+ (neo-buffer--get-filename-current-line)))
+ (setq cur-line-pos (if line-pos
+ line-pos
+ (line-number-at-pos)))
+ (setq neo-buffer--cursor-pos (cons cur-node-path cur-line-pos))
+ (setq neo-buffer--last-window-pos (cons ws-wind ws-pos))))
+
+(defun neo-buffer--goto-cursor-pos ()
+ "Jump to saved cursor position."
+ (let ((line-pos nil)
+ (node (car neo-buffer--cursor-pos))
+ (line-pos (cdr neo-buffer--cursor-pos))
+ (ws-wind (car neo-buffer--last-window-pos))
+ (ws-pos (cdr neo-buffer--last-window-pos)))
+ (catch 'line-pos-founded
+ (unless (null node)
+ (setq line-pos 0)
+ (mapc
+ (lambda (x)
+ (setq line-pos (1+ line-pos))
+ (unless (null x)
+ (when (neo-path--path-equal-p x node)
+ (throw 'line-pos-founded line-pos))))
+ neo-buffer--node-list))
+ (setq line-pos (cdr neo-buffer--cursor-pos))
+ (throw 'line-pos-founded line-pos))
+ ;; goto line
+ (goto-char (point-min))
+ (neo-buffer--forward-line (1- line-pos))
+ ;; scroll window
+ (when (equal (selected-window) ws-wind)
+ (set-window-start ws-wind ws-pos t))))
+
+(defun neo-buffer--node-list-clear ()
+ "Clear node list."
+ (setq neo-buffer--node-list nil))
+
+(defun neo-buffer--node-list-set (line-num path)
+ "Set value in node list.
+LINE-NUM is the index of node list.
+PATH is value."
+ (let ((node-list-length (length neo-buffer--node-list))
+ (node-index line-num))
+ (when (null node-index)
+ (setq node-index (line-number-at-pos)))
+ (when (< node-list-length node-index)
+ (setq neo-buffer--node-list
+ (vconcat neo-buffer--node-list
+ (make-vector (- node-index node-list-length) nil))))
+ (aset neo-buffer--node-list (1- node-index) path))
+ neo-buffer--node-list)
+
+(defun neo-buffer--insert-with-face (content face)
+ (let ((pos-start (point)))
+ (insert content)
+ (set-text-properties pos-start
+ (point)
+ (list 'face face))))
+
+(defun neo-buffer--valid-start-node-p ()
+ (and (not (null neo-buffer--start-node))
+ (file-accessible-directory-p neo-buffer--start-node)))
+
+(defun neo-buffer--create ()
+ "Create and switch to NeoTree buffer."
+ (switch-to-buffer
+ (generate-new-buffer-name neo-buffer-name))
+ (neotree-mode)
+ ;; disable linum-mode
+ (when (and (boundp 'linum-mode)
+ (not (null linum-mode)))
+ (linum-mode -1))
+ ;; Use inside helm window in NeoTree
+ ;; Refs https://github.com/jaypei/emacs-neotree/issues/226
+ (setq-local helm-split-window-inside-p t)
+ (current-buffer))
+
+(defun neo-buffer--insert-banner ()
+ (unless (null neo-banner-message)
+ (let ((start (point)))
+ (insert neo-banner-message)
+ (set-text-properties start (point) '(face neo-banner-face)))
+ (neo-buffer--newline-and-begin)))
+
+(defun neo-buffer--insert-root-entry (node)
+ (neo-buffer--node-list-set nil node)
+ (cond ((eq neo-cwd-line-style 'button)
+ (neo-path--insert-header-buttonized node))
+ (t
+ (neo-buffer--insert-with-face (neo-path--shorten node (window-body-width))
+ 'neo-root-dir-face)))
+ (neo-buffer--newline-and-begin)
+ (when neo-show-updir-line
+ (neo-buffer--insert-fold-symbol 'close node)
+ (insert-button ".."
+ 'action '(lambda (x) (neotree-change-root))
+ 'follow-link t
+ 'face neo-dir-link-face
+ 'neo-full-path (neo-path--updir node))
+ (neo-buffer--newline-and-begin)))
+
+(defun neo-buffer--help-echo-message (node-name)
+ (cond
+ ((eq neo-help-echo-style 'default)
+ (if (<= (+ (current-column) (string-width node-name))
+ neo-window-width)
+ nil
+ node-name))
+ (t nil)))
+
+(defun neo-buffer--insert-dir-entry (node depth expanded)
+ (let ((node-short-name (neo-path--file-short-name node)))
+ (insert-char ?\s (* (- depth 1) 2)) ; indent
+ (when (memq 'char neo-vc-integration)
+ (insert-char ?\s 2))
+ (neo-buffer--insert-fold-symbol
+ (if expanded 'open 'close) node)
+ (insert-button (if neo-show-slash-for-folder (concat node-short-name "/") node-short-name)
+ 'follow-link t
+ 'face neo-dir-link-face
+ 'neo-full-path node
+ 'keymap neotree-dir-button-keymap
+ 'help-echo (neo-buffer--help-echo-message node-short-name))
+ (neo-buffer--node-list-set nil node)
+ (neo-buffer--newline-and-begin)))
+
+(defun neo-buffer--insert-file-entry (node depth)
+ (let ((node-short-name (neo-path--file-short-name node))
+ (vc (when neo-vc-integration (neo-vc-for-node node))))
+ (insert-char ?\s (* (- depth 1) 2)) ; indent
+ (when (memq 'char neo-vc-integration)
+ (insert-char (car vc))
+ (insert-char ?\s))
+ (neo-buffer--insert-fold-symbol 'leaf node-short-name)
+ (insert-button node-short-name
+ 'follow-link t
+ 'face (if (memq 'face neo-vc-integration)
+ (cdr vc)
+ neo-file-link-face)
+ 'neo-full-path node
+ 'keymap neotree-file-button-keymap
+ 'help-echo (neo-buffer--help-echo-message node-short-name))
+ (neo-buffer--node-list-set nil node)
+ (neo-buffer--newline-and-begin)))
+
+(defun neo-vc-for-node (node)
+ (let* ((backend (ignore-errors
+ (vc-responsible-backend node)))
+ (vc-state (when backend (vc-state node backend))))
+ (cons (cdr (assoc vc-state neo-vc-state-char-alist))
+ (cl-case vc-state
+ (up-to-date neo-vc-up-to-date-face)
+ (edited neo-vc-edited-face)
+ (needs-update neo-vc-needs-update-face)
+ (needs-merge neo-vc-needs-merge-face)
+ (unlocked-changes neo-vc-unlocked-changes-face)
+ (added neo-vc-added-face)
+ (removed neo-vc-removed-face)
+ (conflict neo-vc-conflict-face)
+ (missing neo-vc-missing-face)
+ (ignored neo-vc-ignored-face)
+ (unregistered neo-vc-unregistered-face)
+ (user neo-vc-user-face)
+ (otherwise neo-vc-default-face)))))
+
+(defun neo-buffer--get-nodes (path)
+ (let* ((nodes (neo-util--walk-dir path))
+ (comp neo-filepath-sort-function)
+ (nodes (neo-util--filter 'neo-util--hidden-path-filter nodes)))
+ (cons (sort (neo-util--filter 'file-directory-p nodes) comp)
+ (sort (neo-util--filter #'(lambda (f) (not (file-directory-p f))) nodes) comp))))
+
+(defun neo-buffer--get-node-index (node nodes)
+ "Return the index of NODE in NODES.
+
+NODES can be a list of directory or files.
+Return nil if NODE has not been found in NODES."
+ (let ((i 0)
+ (l (length nodes))
+ (cur (car nodes))
+ (rest (cdr nodes)))
+ (while (and cur (not (equal cur node)))
+ (setq i (1+ i))
+ (setq cur (car rest))
+ (setq rest (cdr rest)))
+ (if (< i l) i)))
+
+(defun neo-buffer--expanded-node-p (node)
+ "Return non-nil if NODE is expanded."
+ (neo-util--to-bool
+ (neo-util--find
+ neo-buffer--expanded-node-list
+ #'(lambda (x) (equal x node)))))
+
+(defun neo-buffer--set-expand (node do-expand)
+ "Set the expanded state of the NODE to DO-EXPAND.
+Return the new expand state for NODE (t for expanded, nil for collapsed)."
+ (if (not do-expand)
+ (setq neo-buffer--expanded-node-list
+ (neo-util--filter
+ #'(lambda (x) (not (equal node x)))
+ neo-buffer--expanded-node-list))
+ (push node neo-buffer--expanded-node-list))
+ do-expand)
+
+(defun neo-buffer--toggle-expand (node)
+ (neo-buffer--set-expand node (not (neo-buffer--expanded-node-p node))))
+
+(defun neo-buffer--insert-tree (path depth)
+ (if (eq depth 1)
+ (neo-buffer--insert-root-entry path))
+ (let* ((contents (neo-buffer--get-nodes path))
+ (nodes (car contents))
+ (leafs (cdr contents))
+ (default-directory path))
+ (dolist (node nodes)
+ (let ((expanded (neo-buffer--expanded-node-p node)))
+ (neo-buffer--insert-dir-entry
+ node depth expanded)
+ (if expanded (neo-buffer--insert-tree (concat node "/") (+ depth 1)))))
+ (dolist (leaf leafs)
+ (neo-buffer--insert-file-entry leaf depth))))
+
+(defun neo-buffer--refresh (save-pos-p &optional non-neotree-buffer)
+ "Refresh the NeoTree buffer.
+If SAVE-POS-P is non-nil, it will be auto save current line number."
+ (let ((start-node neo-buffer--start-node))
+ (unless start-node
+ (setq start-node default-directory))
+ (neo-buffer--with-editing-buffer
+ ;; save context
+ (when save-pos-p
+ (neo-buffer--save-cursor-pos))
+ (when non-neotree-buffer
+ (setq neo-buffer--start-node start-node))
+ ;; starting refresh
+ (erase-buffer)
+ (neo-buffer--node-list-clear)
+ (neo-buffer--insert-banner)
+ (setq neo-buffer--start-line neo-header-height)
+ (neo-buffer--insert-tree start-node 1))
+ ;; restore context
+ (neo-buffer--goto-cursor-pos)))
+
+(defun neo-buffer--post-move ()
+ "Reset current directory when position moved."
+ (funcall
+ (neotree-make-executor
+ :file-fn
+ '(lambda (path _)
+ (setq default-directory (neo-path--updir btn-full-path)))
+ :dir-fn
+ '(lambda (path _)
+ (setq default-directory (file-name-as-directory path))))))
+
+(defun neo-buffer--get-button-current-line ()
+ "Return the first button in current line."
+ (let* ((btn-position nil)
+ (pos-line-start (line-beginning-position))
+ (pos-line-end (line-end-position))
+ ;; NOTE: cannot find button when the button
+ ;; at beginning of the line
+ (current-button (or (button-at (point))
+ (button-at pos-line-start))))
+ (if (null current-button)
+ (progn
+ (setf btn-position
+ (catch 'ret-button
+ (let* ((next-button (next-button pos-line-start))
+ (pos-btn nil))
+ (if (null next-button) (throw 'ret-button nil))
+ (setf pos-btn (overlay-start next-button))
+ (if (> pos-btn pos-line-end) (throw 'ret-button nil))
+ (throw 'ret-button pos-btn))))
+ (if (null btn-position)
+ nil
+ (setf current-button (button-at btn-position)))))
+ current-button))
+
+(defun neo-buffer--get-filename-current-line (&optional default)
+ "Return filename for first button in current line.
+If there is no button in current line, then return DEFAULT."
+ (let ((btn (neo-buffer--get-button-current-line)))
+ (if (not (null btn))
+ (button-get btn 'neo-full-path)
+ default)))
+
+(defun neo-buffer--lock-width ()
+ "Lock the width size for NeoTree window."
+ (if neo-window-fixed-size
+ (setq window-size-fixed 'width)))
+
+(defun neo-buffer--unlock-width ()
+ "Unlock the width size for NeoTree window."
+ (setq window-size-fixed nil))
+
+(defun neo-buffer--rename-node ()
+ "Rename current node as another path."
+ (interactive)
+ (let* ((current-path (neo-buffer--get-filename-current-line))
+ (buffer (find-buffer-visiting current-path))
+ to-path
+ msg)
+ (unless (null current-path)
+ (setq msg (format "Rename [%s] to: " (neo-path--file-short-name current-path)))
+ (setq to-path (read-file-name msg (file-name-directory current-path)))
+ (if buffer
+ (with-current-buffer buffer
+ (set-visited-file-name to-path nil t)))
+ (if (vc-registered current-path)
+ (vc-rename-file current-path to-path)
+ (rename-file current-path to-path 1))
+ (neo-buffer--refresh t)
+ (message "Rename successful."))))
+
+(defun neo-buffer--copy-node ()
+ "Copies current node as another path."
+ (interactive)
+ (let* ((current-path (neo-buffer--get-filename-current-line))
+ (buffer (find-buffer-visiting current-path))
+ to-path
+ msg)
+ (unless (null current-path)
+ (setq msg (format "Copy [%s] to: " (neo-path--file-short-name current-path)))
+ (setq to-path (read-file-name msg (file-name-directory current-path)))
+ (if (file-directory-p current-path)
+ (copy-directory current-path to-path)
+ (copy-file current-path to-path))
+ (neo-buffer--refresh t)
+ (message "Copy successful."))))
+
+(defun neo-buffer--select-file-node (file &optional recursive-p)
+ "Select the node that corresponds to the FILE.
+If RECURSIVE-P is non nil, find files will recursively."
+ (let ((efile file)
+ (iter-curr-dir nil)
+ (file-node-find-p nil)
+ (file-node-list nil))
+ (unless (file-name-absolute-p efile)
+ (setq efile (expand-file-name efile)))
+ (setq iter-curr-dir efile)
+ (catch 'return
+ (while t
+ (setq iter-curr-dir (neo-path--updir iter-curr-dir))
+ (push iter-curr-dir file-node-list)
+ (when (neo-path--file-equal-p iter-curr-dir neo-buffer--start-node)
+ (setq file-node-find-p t)
+ (throw 'return nil))
+ (let ((niter-curr-dir (file-remote-p iter-curr-dir 'localname)))
+ (unless niter-curr-dir
+ (setq niter-curr-dir iter-curr-dir))
+ (when (neo-path--file-equal-p niter-curr-dir "/")
+ (setq file-node-find-p nil)
+ (throw 'return nil)))))
+ (when file-node-find-p
+ (dolist (p file-node-list)
+ (neo-buffer--set-expand p t))
+ (neo-buffer--save-cursor-pos file)
+ (neo-buffer--refresh nil))))
+
+(defun neo-buffer--change-root (root-dir)
+ "Change the tree root to ROOT-DIR."
+ (let ((path root-dir)
+ start-path)
+ (unless (and (file-exists-p path)
+ (file-directory-p path))
+ (throw 'error "The path is not a valid directory."))
+ (setq start-path (expand-file-name (substitute-in-file-name path)))
+ (setq neo-buffer--start-node start-path)
+ (cd start-path)
+ (neo-buffer--save-cursor-pos path nil)
+ (neo-buffer--refresh nil)))
+
+(defun neo-buffer--get-nodes-for-select-down-node (path)
+ "Return the node list for the down dir selection."
+ (if path
+ (when (file-name-directory path)
+ (if (neo-buffer--expanded-node-p path)
+ (neo-buffer--get-nodes path)
+ (neo-buffer--get-nodes (file-name-directory path))))
+ (neo-buffer--get-nodes (file-name-as-directory neo-buffer--start-node))))
+
+(defun neo-buffer--get-nodes-for-sibling (path)
+ "Return the node list for the sibling selection. Return nil of no nodes can
+be found.
+The returned list is a directory list if path is a directory, otherwise it is
+a file list."
+ (when path
+ (let ((nodes (neo-buffer--get-nodes (file-name-directory path))))
+ (if (file-directory-p path)
+ (car nodes)
+ (cdr nodes)))))
+
+(defun neo-buffer--sibling (path &optional previous)
+ "Return the next sibling of node PATH.
+If PREVIOUS is non-nil the previous sibling is returned."
+ (let* ((nodes (neo-buffer--get-nodes-for-sibling path)))
+ (when nodes
+ (let ((i (neo-buffer--get-node-index path nodes))
+ (l (length nodes)))
+ (if i (nth (mod (+ i (if previous -1 1)) l) nodes))))))
+
+(defun neo-buffer--execute (arg &optional file-fn dir-fn)
+ "Define the behaviors for keyboard event.
+ARG is the parameter for command.
+If FILE-FN is non-nil, it will executed when a file node.
+If DIR-FN is non-nil, it will executed when a dir node."
+ (interactive "P")
+ (let* ((btn-full-path (neo-buffer--get-filename-current-line))
+ is-file-p
+ enter-fn)
+ (unless (null btn-full-path)
+ (setq is-file-p (not (file-directory-p btn-full-path))
+ enter-fn (if is-file-p file-fn dir-fn))
+ (unless (null enter-fn)
+ (funcall enter-fn btn-full-path arg)
+ (run-hook-with-args
+ 'neo-enter-hook
+ (if is-file-p 'file 'directory)
+ btn-full-path
+ arg)))
+ btn-full-path))
+
+(defun neo-buffer--set-show-hidden-file-p (show-p)
+ "If SHOW-P is non-nil, show hidden nodes in tree."
+ (setq neo-buffer--show-hidden-file-p show-p)
+ (neo-buffer--refresh t))
+
+(defun neo-buffer--forward-line (n)
+ "Move N lines forward in NeoTree buffer."
+ (forward-line (or n 1))
+ (neo-buffer--post-move))
+
+;;
+;; Mode-line methods
+;;
+
+(defun neo-mode-line--compute-format (parent index ndirs nfiles)
+ "Return a formated string to be used in the `neotree' mode-line."
+ (let* ((nall (+ ndirs nfiles))
+ (has-dirs (> ndirs 0))
+ (has-files (> nfiles 0))
+ (msg-index (when index (format "[%s/%s] " index nall)))
+ (msg-ndirs (when has-dirs (format (if has-files " (D:%s" " (D:%s)") ndirs)))
+ (msg-nfiles (when has-files (format (if has-dirs " F:%s)" " (F:%s)") nfiles)))
+ (msg-directory (file-name-nondirectory (directory-file-name parent)))
+ (msg-directory-max-length (- (window-width)
+ (length msg-index)
+ (length msg-ndirs)
+ (length msg-nfiles))))
+ (setq msg-directory (if (<= (length msg-directory) msg-directory-max-length)
+ msg-directory
+ (concat (substring msg-directory
+ 0 (- msg-directory-max-length 3))
+ "...")))
+ (propertize
+ (decode-coding-string (concat msg-index msg-directory msg-ndirs msg-nfiles) 'utf-8)
+ 'help-echo (decode-coding-string parent 'utf-8))))
+
+;;
+;; Window methods
+;;
+
+(defun neo-window--init (window buffer)
+ "Make WINDOW a NeoTree window.
+NeoTree buffer is BUFFER."
+ (neo-buffer--with-resizable-window
+ (switch-to-buffer buffer)
+ (set-window-parameter window 'no-delete-other-windows t)
+ (set-window-dedicated-p window t))
+ window)
+
+(defun neo-window--zoom (method)
+ "Zoom the NeoTree window, the METHOD should one of these options:
+'maximize 'minimize 'zoom-in 'zoom-out."
+ (neo-buffer--unlock-width)
+ (cond
+ ((eq method 'maximize)
+ (maximize-window))
+ ((eq method 'minimize)
+ (neo-util--set-window-width (selected-window) neo-window-width))
+ ((eq method 'zoom-in)
+ (shrink-window-horizontally 2))
+ ((eq method 'zoom-out)
+ (enlarge-window-horizontally 2)))
+ (neo-buffer--lock-width))
+
+(defun neo-window--minimize-p ()
+ "Return non-nil when the NeoTree window is minimize."
+ (<= (window-width) neo-window-width))
+
+;;
+;; Interactive functions
+;;
+
+(defun neotree-next-line (&optional count)
+ "Move next line in NeoTree buffer.
+Optional COUNT argument, moves COUNT lines down."
+ (interactive "p")
+ (neo-buffer--forward-line (or count 1)))
+
+(defun neotree-previous-line (&optional count)
+ "Move previous line in NeoTree buffer.
+Optional COUNT argument, moves COUNT lines up."
+ (interactive "p")
+ (neo-buffer--forward-line (- (or count 1))))
+
+;;;###autoload
+(defun neotree-find (&optional path default-path)
+ "Quick select node which specified PATH in NeoTree.
+If path is nil and no buffer file name, then use DEFAULT-PATH,"
+ (interactive)
+ (let* ((ndefault-path (if default-path default-path
+ (neo-path--get-working-dir)))
+ (npath (if path path
+ (or (buffer-file-name) ndefault-path)))
+ (do-open-p nil))
+ (if (and (not neo-force-change-root)
+ (not (neo-global--file-in-root-p npath))
+ (neo-global--window-exists-p))
+ (setq do-open-p (funcall neo-confirm-change-root "File not found in root path, do you want to change root?"))
+ (setq do-open-p t))
+ (when do-open-p
+ (neo-global--open-and-find npath))
+ (when neo-auto-indent-point
+ (neo-point-auto-indent)))
+ (neo-global--select-window))
+
+(defun neotree-click-changes-root-toggle ()
+ "Toggle the variable neo-click-changes-root.
+If true, clicking on a directory will change the current root to
+the directory instead of showing the directory contents."
+ (interactive)
+ (setq neo-click-changes-root (not neo-click-changes-root)))
+
+(defun neo-open-dir (full-path &optional arg)
+ "Toggle fold a directory node.
+
+FULL-PATH is the path of the directory.
+ARG is ignored."
+ (if neo-click-changes-root
+ (neotree-change-root)
+ (progn
+ (let ((new-state (neo-buffer--toggle-expand full-path)))
+ (neo-buffer--refresh t)
+ (when neo-auto-indent-point
+ (when new-state (forward-line 1))
+ (neo-point-auto-indent))))))
+
+
+(defun neo--expand-recursive (path state)
+ "Set the state of children recursively.
+
+The children of PATH will have state STATE."
+ (let ((children (car (neo-buffer--get-nodes path) )))
+ (dolist (node children)
+ (neo-buffer--set-expand node state)
+ (neo--expand-recursive node state ))))
+
+(defun neo-open-dir-recursive (full-path &optional arg)
+ "Toggle fold a directory node recursively.
+
+The children of the node will also be opened recursively.
+FULL-PATH is the path of the directory.
+ARG is ignored."
+ (if neo-click-changes-root
+ (neotree-change-root)
+ (let ((new-state (neo-buffer--toggle-expand full-path))
+ (children (car (neo-buffer--get-nodes full-path))))
+ (dolist (node children)
+ (neo-buffer--set-expand node new-state)
+ (neo--expand-recursive node new-state))
+ (neo-buffer--refresh t))))
+
+(defun neo-open-dired (full-path &optional arg)
+ "Open file or directory node in `dired-mode'.
+
+FULL-PATH is the path of node.
+ARG is same as `neo-open-file'."
+ (neo-global--select-mru-window arg)
+ (dired full-path))
+
+(defun neo-open-file (full-path &optional arg)
+ "Open a file node.
+
+FULL-PATH is the file path you want to open.
+If ARG is an integer then the node is opened in a window selected via
+`winum' or`window-numbering' (if available) according to the passed number.
+If ARG is `|' then the node is opened in new vertically split window.
+If ARG is `-' then the node is opened in new horizontally split window."
+ (neo-global--select-mru-window arg)
+ (find-file full-path))
+
+(defun neo-open-file-vertical-split (full-path arg)
+ "Open the current node is a vertically split window.
+FULL-PATH and ARG are the same as `neo-open-file'."
+ (neo-open-file full-path "|"))
+
+(defun neo-open-file-horizontal-split (full-path arg)
+ "Open the current node is horizontally split window.
+FULL-PATH and ARG are the same as `neo-open-file'."
+ (neo-open-file full-path "-"))
+
+(defun neo-open-file-ace-window (full-path arg)
+ "Open the current node in a window chosen by ace-window.
+FULL-PATH and ARG are the same as `neo-open-file'."
+ (neo-open-file full-path "a"))
+
+(defun neotree-open-file-in-system-application ()
+ "Open a file under point in the system application."
+ (interactive)
+ (call-process neo-default-system-application nil 0 nil
+ (neo-buffer--get-filename-current-line)))
+
+(defun neotree-change-root ()
+ "Change root to current node dir.
+If current node is a file, then it will do nothing.
+If cannot find any node in current line, it equivalent to using `neotree-dir'."
+ (interactive)
+ (neo-global--select-window)
+ (let ((btn-full-path (neo-buffer--get-filename-current-line)))
+ (if (null btn-full-path)
+ (call-interactively 'neotree-dir)
+ (neo-global--open-dir btn-full-path))))
+
+(defun neotree-select-up-node ()
+ "Select the parent directory of the current node. Change the root if
+necessary. "
+ (interactive)
+ (neo-global--select-window)
+ (let* ((btn-full-path (neo-buffer--get-filename-current-line))
+ (btn-parent-dir (if btn-full-path (file-name-directory btn-full-path)))
+ (root-slash (file-name-as-directory neo-buffer--start-node)))
+ (cond
+ ((equal btn-parent-dir root-slash) (neo-global--open-dir root-slash))
+ (btn-parent-dir (neotree-find btn-parent-dir))
+ (t (neo-global--open-dir (file-name-directory
+ (directory-file-name root-slash)))))))
+
+(defun neotree-select-down-node ()
+ "Select an expanded directory or content directory according to the
+current node, in this order:
+- select the first expanded child node if the current node has one
+- select the content of current node if it is expanded
+- select the next expanded sibling if the current node is not expanded."
+ (interactive)
+ (let* ((btn-full-path (neo-buffer--get-filename-current-line))
+ (path (if btn-full-path btn-full-path neo-buffer--start-node))
+ (nodes (neo-buffer--get-nodes-for-select-down-node path)))
+ (when nodes
+ (if (or (equal path neo-buffer--start-node)
+ (neo-buffer--expanded-node-p path))
+ ;; select the first expanded child node
+ (let ((expanded-dir (catch 'break
+ (dolist (node (car nodes))
+ (if (neo-buffer--expanded-node-p node)
+ (throw 'break node)))
+ nil)))
+ (if expanded-dir
+ (neotree-find expanded-dir)
+ ;; select the directory content if needed
+ (let ((dirs (car nodes))
+ (files (cdr nodes)))
+ (if (> (length dirs) 0)
+ (neotree-find (car dirs))
+ (when (> (length files) 0)
+ (neotree-find (car files)))))))
+ ;; select the next expanded sibling
+ (let ((sibling (neo-buffer--sibling path)))
+ (while (and (not (neo-buffer--expanded-node-p sibling))
+ (not (equal sibling path)))
+ (setq sibling (neo-buffer--sibling sibling)))
+ (when (not (string< sibling path))
+ ;; select next expanded sibling
+ (neotree-find sibling)))))))
+
+(defun neotree-select-next-sibling-node ()
+ "Select the next sibling of current node.
+If the current node is the last node then the first node is selected."
+ (interactive)
+ (let ((sibling (neo-buffer--sibling (neo-buffer--get-filename-current-line))))
+ (when sibling (neotree-find sibling))))
+
+(defun neotree-select-previous-sibling-node ()
+ "Select the previous sibling of current node.
+If the current node is the first node then the last node is selected."
+ (interactive)
+ (let ((sibling (neo-buffer--sibling (neo-buffer--get-filename-current-line) t)))
+ (when sibling (neotree-find sibling))))
+
+(defun neotree-create-node (filename)
+ "Create a file or directory use specified FILENAME in current node."
+ (interactive
+ (let* ((current-dir (neo-buffer--get-filename-current-line neo-buffer--start-node))
+ (current-dir (neo-path--match-path-directory current-dir))
+ (filename (read-file-name "Filename:" current-dir)))
+ (if (file-directory-p filename)
+ (setq filename (concat filename "/")))
+ (list filename)))
+ (catch 'rlt
+ (let ((is-file nil))
+ (when (= (length filename) 0)
+ (throw 'rlt nil))
+ (setq is-file (not (equal (substring filename -1) "/")))
+ (when (file-exists-p filename)
+ (message "File %S already exists." filename)
+ (throw 'rlt nil))
+ (when (and is-file
+ (funcall neo-confirm-create-file (format "Do you want to create file %S ?"
+ filename)))
+ ;; ensure parent directory exist before saving
+ (mkdir (substring filename 0 (+ 1 (cl-position ?/ filename :from-end t))) t)
+ ;; NOTE: create a empty file
+ (write-region "" nil filename)
+ (neo-buffer--save-cursor-pos filename)
+ (neo-buffer--refresh nil)
+ (if neo-create-file-auto-open
+ (find-file-other-window filename)))
+ (when (and (not is-file)
+ (funcall neo-confirm-create-directory (format "Do you want to create directory %S?"
+ filename)))
+ (mkdir filename t)
+ (neo-buffer--save-cursor-pos filename)
+ (neo-buffer--refresh nil)))))
+
+(defun neotree-delete-node ()
+ "Delete current node."
+ (interactive)
+ (let* ((filename (neo-buffer--get-filename-current-line))
+ (buffer (find-buffer-visiting filename))
+ (deleted-p nil)
+ (trash delete-by-moving-to-trash))
+ (catch 'end
+ (if (null filename) (throw 'end nil))
+ (if (not (file-exists-p filename)) (throw 'end nil))
+ (if (not (funcall neo-confirm-delete-file (format "Do you really want to delete %S?"
+ filename)))
+ (throw 'end nil))
+ (if (file-directory-p filename)
+ ;; delete directory
+ (progn
+ (unless (neo-path--has-subfile-p filename)
+ (delete-directory filename nil trash)
+ (setq deleted-p t)
+ (throw 'end nil))
+ (when (funcall neo-confirm-delete-directory-recursively
+ (format "%S is a directory, delete it recursively?"
+ filename))
+ (when (funcall neo-confirm-kill-buffers-for-files-in-directory
+ (format "kill buffers for files in directory %S?"
+ filename))
+ (neo-util--kill-buffers-for-path filename))
+ (delete-directory filename t trash)
+ (setq deleted-p t)))
+ ;; delete file
+ (progn
+ (delete-file filename trash)
+ (when buffer
+ (kill-buffer-ask buffer))
+ (setq deleted-p t))))
+ (when deleted-p
+ (message "%S deleted." filename)
+ (neo-buffer--refresh t))
+ filename))
+
+(defun neotree-rename-node ()
+ "Rename current node."
+ (interactive)
+ (neo-buffer--rename-node))
+
+(defun neotree-copy-node ()
+ "Copy current node."
+ (interactive)
+ (neo-buffer--copy-node))
+
+(defun neotree-hidden-file-toggle ()
+ "Toggle show hidden files."
+ (interactive)
+ (neo-buffer--set-show-hidden-file-p (not neo-buffer--show-hidden-file-p)))
+
+(defun neotree-empty-fn ()
+ "Used to bind the empty function to the shortcut."
+ (interactive))
+
+(defun neotree-refresh (&optional is-auto-refresh)
+ "Refresh the NeoTree buffer."
+ (interactive)
+ (if (eq (current-buffer) (neo-global--get-buffer))
+ (neo-buffer--refresh t)
+ (save-excursion
+ (let ((cw (selected-window))) ;; save current window
+ (if is-auto-refresh
+ (let ((origin-buffer-file-name (buffer-file-name)))
+ (when (and (fboundp 'projectile-project-p)
+ (projectile-project-p)
+ (fboundp 'projectile-project-root))
+ (neo-global--open-dir (projectile-project-root))
+ (neotree-find (projectile-project-root)))
+ (neotree-find origin-buffer-file-name))
+ (neo-buffer--refresh t t))
+ (recenter)
+ (when (or is-auto-refresh neo-toggle-window-keep-p)
+ (select-window cw))))))
+
+(defun neotree-stretch-toggle ()
+ "Make the NeoTree window toggle maximize/minimize."
+ (interactive)
+ (neo-global--with-window
+ (if (neo-window--minimize-p)
+ (neo-window--zoom 'maximize)
+ (neo-window--zoom 'minimize))))
+
+(defun neotree-collapse-all ()
+ (interactive)
+ "Collapse all expanded folders in the neotree buffer"
+ (setq list-of-expanded-folders neo-buffer--expanded-node-list)
+ (dolist (folder list-of-expanded-folders)
+ (neo-buffer--toggle-expand folder)
+ (neo-buffer--refresh t)
+ )
+ )
+;;;###autoload
+(defun neotree-projectile-action ()
+ "Integration with `Projectile'.
+
+Usage:
+ (setq projectile-switch-project-action 'neotree-projectile-action).
+
+When running `projectile-switch-project' (C-c p p), `neotree' will change root
+automatically."
+ (interactive)
+ (cond
+ ((fboundp 'projectile-project-root)
+ (neotree-dir (projectile-project-root)))
+ (t
+ (error "Projectile is not available"))))
+
+;;;###autoload
+(defun neotree-toggle ()
+ "Toggle show the NeoTree window."
+ (interactive)
+ (if (neo-global--window-exists-p)
+ (neotree-hide)
+ (neotree-show)))
+
+;;;###autoload
+(defun neotree-show ()
+ "Show the NeoTree window."
+ (interactive)
+ (let ((cw (selected-window))
+ (path (buffer-file-name))) ;; save current window and buffer
+ (if neo-smart-open
+ (progn
+ (when (and (fboundp 'projectile-project-p)
+ (projectile-project-p)
+ (fboundp 'projectile-project-root))
+ (neotree-dir (projectile-project-root)))
+ (neotree-find path))
+ (neo-global--open))
+ (neo-global--select-window)
+ (when neo-toggle-window-keep-p
+ (select-window cw))))
+
+;;;###autoload
+(defun neotree-hide ()
+ "Close the NeoTree window."
+ (interactive)
+ (if (neo-global--window-exists-p)
+ (delete-window neo-global--window)))
+
+;;;###autoload
+(defun neotree-dir (path)
+ "Show the NeoTree window, and change root to PATH."
+ (interactive "DDirectory: ")
+ (neo-global--open-dir path)
+ (neo-global--select-window))
+
+;;;###autoload
+(defalias 'neotree 'neotree-show "Show the NeoTree window.")
+
+;;
+;; backward compatible
+;;
+
+(defun neo-bc--make-obsolete-message (from to)
+ (message "Warning: `%S' is obsolete. Use `%S' instead." from to))
+
+(defun neo-buffer--enter-file (path)
+ (neo-bc--make-obsolete-message 'neo-buffer--enter-file 'neo-open-file))
+
+(defun neo-buffer--enter-dir (path)
+ (neo-bc--make-obsolete-message 'neo-buffer--enter-dir 'neo-open-dir))
+
+(defun neotree-enter (&optional arg)
+ "NeoTree typical open event.
+ARG are the same as `neo-open-file'."
+ (interactive "P")
+ (neo-buffer--execute arg 'neo-open-file 'neo-open-dir))
+
+(defun neotree-quick-look (&optional arg)
+ "Quick Look like NeoTree open event.
+ARG are the same as `neo-open-file'."
+ (interactive "P")
+ (neotree-enter arg)
+ (neo-global--select-window))
+
+(defun neotree-enter-vertical-split ()
+ "NeoTree open event, file node will opened in new vertically split window."
+ (interactive)
+ (neo-buffer--execute nil 'neo-open-file-vertical-split 'neo-open-dir))
+
+(defun neotree-enter-horizontal-split ()
+ "NeoTree open event, file node will opened in new horizontally split window."
+ (interactive)
+ (neo-buffer--execute nil 'neo-open-file-horizontal-split 'neo-open-dir))
+
+(defun neotree-enter-ace-window ()
+ "NeoTree open event, file node will be opened in window chosen by ace-window."
+ (interactive)
+ (neo-buffer--execute nil 'neo-open-file-ace-window 'neo-open-dir))
+
+(defun neotree-copy-filepath-to-yank-ring ()
+ "Neotree convenience interactive function: file node path will be added to the kill ring."
+ (interactive)
+ (kill-new (neo-buffer--get-filename-current-line)))
+
+(defun neotree-split-window-sensibly (&optional window)
+ "An neotree-version of split-window-sensibly,
+which is used to fix issue #209.
+(setq split-window-preferred-function 'neotree-split-window-sensibly)"
+ (let ((window (or window (selected-window))))
+ (or (split-window-sensibly window)
+ (and (get-buffer-window neo-buffer-name)
+ (not (window-minibuffer-p window))
+ ;; If WINDOW is the only window on its frame
+ ;; (or only include Neo window) and is not the
+ ;; minibuffer window, try to split it vertically disregarding
+ ;; the value of `split-height-threshold'.
+ (let ((split-height-threshold 0))
+ (when (window-splittable-p window)
+ (with-selected-window window
+ (split-window-below))))))))
+
+(provide 'neotree)
+;;; neotree.el ends here
+
projects / emacsconfig.git / commitdiff