82ae3a73f3
This commit does two things: - Renames def-advice! to defadvice!, in the spirit of naming convenience macros after the function/macro they enhance or replace. - Correct the names of advice functions to indicate visibility and intent. A public advice function like doom-set-jump-a is meant to be used elsewhere. A private one like +dired--cleanup-header-line-a shouldn't -- it likely won't work anywhere but the function(s) it was made to advise.
55 lines
1.9 KiB
EmacsLisp
55 lines
1.9 KiB
EmacsLisp
;;; ui/neotree/config.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package! neotree
|
|
:commands (neotree-show
|
|
neotree-hide
|
|
neotree-toggle
|
|
neotree-dir
|
|
neotree-find
|
|
neo-global--with-buffer
|
|
neo-global--window-exists-p)
|
|
:config
|
|
(setq neo-create-file-auto-open nil
|
|
neo-auto-indent-point nil
|
|
neo-autorefresh nil
|
|
neo-mode-line-type 'none
|
|
neo-window-width 28
|
|
neo-show-updir-line nil
|
|
neo-theme 'nerd ; fallback
|
|
neo-banner-message nil
|
|
neo-confirm-create-file #'off-p
|
|
neo-confirm-create-directory #'off-p
|
|
neo-show-hidden-files nil
|
|
neo-keymap-style 'concise
|
|
neo-show-hidden-files t
|
|
neo-hidden-regexp-list
|
|
'(;; vcs folders
|
|
"^\\.\\(?:git\\|hg\\|svn\\)$"
|
|
;; compiled files
|
|
"\\.\\(?:pyc\\|o\\|elc\\|lock\\|css.map\\|class\\)$"
|
|
;; generated files, caches or local pkgs
|
|
"^\\(?:node_modules\\|vendor\\|.\\(project\\|cask\\|yardoc\\|sass-cache\\)\\)$"
|
|
;; org-mode folders
|
|
"^\\.\\(?:sync\\|export\\|attach\\)$"
|
|
;; temp files
|
|
"~$"
|
|
"^#.*#$"))
|
|
|
|
(set-popup-rule! "^ ?\\*NeoTree"
|
|
:side neo-window-position :size neo-window-width
|
|
:quit 'current :select t)
|
|
|
|
(after! winner
|
|
(add-to-list 'winner-boring-buffers neo-buffer-name))
|
|
|
|
;; The cursor always sits at bol. `+neotree--fix-cursor-h' and
|
|
;; `+neotree--indent-cursor-a' change that behavior so that the cursor is
|
|
;; always on the first non-blank character on the line, in the neo buffer.
|
|
(add-hook 'neo-enter-hook
|
|
(defun +neotree-fix-cursor-h (&rest _)
|
|
(with-current-buffer neo-global--buffer
|
|
(+neotree*indent-cursor))))
|
|
(defadvice! +neotree--indent-cursor-a (&rest _)
|
|
:after '(neotree-next-line neotree-previous-line)
|
|
(beginning-of-line)
|
|
(skip-chars-forward " \t\r")))
|