emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

neotree: strip extension from org files

Browse source
This commit is contained in:
Henrik Lissner 2016-01-30 02:35:46 -05:00
parent 380d42dd7a
commit fa7b8b30f5
1 changed files with 20 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

22
core/core-project.el
View file

@ -52,7 +52,7 @@
neo-auto-indent-point t neo-auto-indent-point t
neo-mode-line-type 'none neo-mode-line-type 'none
neo-persist-show nil neo-persist-show nil
neo-window-width 22 neo-window-width 27
neo-show-updir-line nil neo-show-updir-line nil
neo-auto-indent-point t neo-auto-indent-point t
neo-banner-message nil) neo-banner-message nil)
@ -77,7 +77,25 @@
"r" 'neotree-rename-node "r" 'neotree-rename-node
"R" 'neotree-change-root)) "R" 'neotree-change-root))
;; (add-hook! window-configuration-change 'narf|neotree-close-on-window-change) (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))))
(when (f-ext? node-short-name "org")
(setq node-short-name (f-base node-short-name)))
(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)
(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)
(neo-buffer--node-list-set nil node)
(neo-buffer--newline-and-begin)))
(after! projectile (after! projectile
(setq projectile-switch-project-action 'neotree-projectile-action)) (setq projectile-switch-project-action 'neotree-projectile-action))