142 lines
5.1 KiB
EmacsLisp
142 lines
5.1 KiB
EmacsLisp
;;; core-project.el --- all your (basic) project navigational needs
|
|
|
|
;;; Dired
|
|
;; Always copy/delete recursively
|
|
(setq dired-recursive-copies (quote always))
|
|
(setq dired-recursive-deletes (quote top))
|
|
|
|
;; Auto refresh dired, but be quiet about it
|
|
(setq global-auto-revert-non-file-buffers t)
|
|
(setq auto-revert-verbose nil)
|
|
|
|
(setq dired-omit-mode t)
|
|
|
|
;; List directories first
|
|
(defun narf|dired-sort ()
|
|
"Dired sort hook to list directories first."
|
|
(save-excursion
|
|
(let (buffer-read-only)
|
|
(forward-line 2) ;; beyond dir. header
|
|
(sort-regexp-fields t "^.*$" "[ ]*." (point) (point-max))))
|
|
(and (featurep 'xemacs)
|
|
(fboundp 'dired-insert-set-properties)
|
|
(dired-insert-set-properties (point-min) (point-max)))
|
|
(set-buffer-modified-p nil))
|
|
(add-hook 'dired-after-readin-hook 'narf|dired-sort)
|
|
|
|
;; Automatically create missing directories when creating new files
|
|
(defun narf|create-non-existent-directory ()
|
|
(let ((parent-directory (file-name-directory buffer-file-name)))
|
|
(when (and (not (file-exists-p parent-directory))
|
|
(y-or-n-p (format "Directory `%s' does not exist! Create it?" parent-directory)))
|
|
(make-directory parent-directory t))))
|
|
(add-to-list 'find-file-not-found-functions #'narf|create-non-existent-directory)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(use-package ido
|
|
:defines (flx-ido-mode ido-ubiquitous-debug-mode ido-context-switch-command ido-temp-list)
|
|
:functions (ido-to-end)
|
|
:init
|
|
(setq ido-ignore-buffers
|
|
'("\\` " "^\\*ESS\\*" "^\\*Messages\\*" "^\\*Help\\*" "^\\*Buffer"
|
|
"^\\*.*Completions\\*$" "^\\*Ediff" "^\\*tramp" "^\\*cvs-"
|
|
"_region_" " output\\*$" "^TAGS$" "^\*Ido")
|
|
ido-use-faces nil
|
|
ido-confirm-unique-completion t
|
|
ido-case-fold t
|
|
ido-enable-tramp-completion nil
|
|
ido-enable-flex-matching t
|
|
ido-create-new-buffer 'always
|
|
ido-enable-tramp-completion t
|
|
ido-enable-last-directory-history t
|
|
ido-cr+-max-items 10000
|
|
ido-save-directory-list-file (concat narf-temp-dir "ido.last"))
|
|
:config
|
|
(add-hook! ido-setup
|
|
(require 'ido-vertical-mode)
|
|
(ido-vertical-mode 1)
|
|
(require 'flx-ido)
|
|
(flx-ido-mode 1)
|
|
(map! :map (ido-common-completion-map
|
|
ido-completion-map
|
|
ido-file-completion-map)
|
|
"C-n" 'ido-next-match
|
|
"C-p" 'ido-prev-match
|
|
"C-w" 'ido-delete-backward-word-updir
|
|
"C-u" 'ido-up-directory))
|
|
|
|
(add-to-list 'ido-ignore-files "\\`.DS_Store$")
|
|
(add-to-list 'ido-ignore-files "Icon\\?$")
|
|
|
|
(advice-add 'ido-sort-mtime :override 'narf*ido-sort-mtime)
|
|
(add-hook! (ido-make-file-list ido-make-dir-list) 'narf*ido-sort-mtime)
|
|
(add-hook! ido-setup 'narf|ido-setup-home-keybind))
|
|
|
|
(use-package neotree
|
|
:commands (neotree-show
|
|
neotree-hide
|
|
neotree-toggle
|
|
neotree-dir
|
|
neotree-find
|
|
neo-global--window-exists-p)
|
|
:functions (neo-buffer--unlock-width neo-buffer--lock-width)
|
|
:init
|
|
(setq neo-create-file-auto-open t
|
|
neo-auto-indent-point t
|
|
neo-mode-line-type 'none
|
|
neo-persist-show nil
|
|
neo-window-width 27
|
|
neo-show-updir-line nil
|
|
neo-auto-indent-point t
|
|
neo-banner-message nil)
|
|
:config
|
|
(evil-set-initial-state 'neotree-mode 'motion)
|
|
(add-hook! neotree-mode 'narf|neotree-init-keymap)
|
|
(defun narf|neotree-init-keymap ()
|
|
(map! :map evil-motion-state-local-map
|
|
"ESC" 'neotree-hide
|
|
"q" 'neotree-hide
|
|
|
|
"RET" 'neotree-enter
|
|
"J" 'neotree-select-next-sibling-node
|
|
"K" 'neotree-select-previous-sibling-node
|
|
"H" 'neotree-select-up-node
|
|
"L" 'neotree-select-down-node
|
|
"v" 'neotree-enter-vertical-split
|
|
"s" 'neotree-enter-horizontal-split
|
|
"c" 'neotree-create-node
|
|
"d" 'neotree-delete-node
|
|
"g" 'neotree-refresh
|
|
"r" 'neotree-rename-node
|
|
"R" 'neotree-change-root))
|
|
|
|
(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
|
|
(setq projectile-switch-project-action 'neotree-projectile-action))
|
|
|
|
;; A custom and simple theme for neotree
|
|
(advice-add 'neo-buffer--insert-fold-symbol :override 'narf*neo-buffer-fold-symbol))
|
|
|
|
(provide 'core-project)
|
|
;;; core-project.el ends here
|