First commit.
This commit is contained in:
24
lisp/utilities/direx.el
Normal file
24
lisp/utilities/direx.el
Normal file
@@ -0,0 +1,24 @@
|
||||
;;; direx.el --- a simple directory explorer -*- lexical-binding: t; -*-
|
||||
;;; Commentary: direx.el is a simple directory explorer. It also works as a generic tree explore library.
|
||||
;;; Code: https://github.com/emacsorphanage/direx
|
||||
|
||||
(use-package direx
|
||||
:defer
|
||||
:init
|
||||
(user/bind-key-global :basic :open-file-context
|
||||
'direx-project:jump-to-project-root-other-window)
|
||||
:config
|
||||
(validate-setq
|
||||
;; Use the functionality from utilities/project to locate project root
|
||||
direx-project:project-root-predicate-functions
|
||||
'((lambda (path)
|
||||
(with-project-root project-root path
|
||||
(and path (equal (file-truename path) (file-truename project-root)))))))
|
||||
|
||||
(with-eval-after-load 'popwin
|
||||
(push '(direx:direx-mode :position left :width 30 :dedicated t)
|
||||
popwin:special-display-config)))
|
||||
|
||||
|
||||
(provide 'utilities/direx)
|
||||
;;; direx.el ends here
|
Reference in New Issue
Block a user