Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

eshell-starship.el - Don't show Emacs for .dir-locals(2).el

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-09-27 00:54:19 -07:00
parent 450e951914
commit de7e77c1ea
1 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
elisp/eshell-starship.el
View File

@ -153,6 +153,12 @@ LAST-TIMES is a list of the 10 last execution times for this module.")
:type list :type list
:documentation :documentation
"A list of extensions that indicate that the module should be run.") "A list of extensions that indicate that the module should be run.")
(extensions-excluded-files :initarg :extensions-excluded-files
:initform nil
:accessor eshell-starship-module-extensions-excluded-files
:type list
:documentation
"A list of files that are ignored when searching for extensions.")
(prefix :initarg :prefix (prefix :initarg :prefix
:initform "" :initform ""
:accessor eshell-starship-module-prefix :accessor eshell-starship-module-prefix
@ -620,6 +626,7 @@ For example, a revert. If there is no current operation, return nil."
(eshell-starship-defmodule elisp (eshell-starship-defmodule elisp
:extensions '("el" "elc" "eln") :extensions '("el" "elc" "eln")
:extensions-excluded-files '(".dir-locals.el" ".dir-locals2.el")
:prefix "via " :prefix "via "
:icon "" :icon ""
:color "dark orchid" :color "dark orchid"
@ -837,6 +844,18 @@ That is, if EXT is \"pkg.tar.gz\", this will return
(and method (and method
(not (member method eshell-starship-overridden-remote-methods))))) (not (member method eshell-starship-overridden-remote-methods)))))
(defun eshell-starship--extension-modules-for-file (file)
"Return a list of modules that should be run due the exteions of FILE."
(mapcar (lambda (ext)
(cl-delete-if
(lambda (mod)
(cl-find file (eshell-starship-module-extensions-excluded-files mod)
:test #'equal))
(copy-sequence (eshell-starship--module-by
:extensions ext))))
(eshell-starship--permute-extension
(eshell-starship--file-name-extension file))))
(defun eshell-starship--modules-for-dir (dir) (defun eshell-starship--modules-for-dir (dir)
"Return a list of modules that are applicable to DIR." "Return a list of modules that are applicable to DIR."
(let ((is-remote (eshell-starship--remote-for-modules-p dir))) (let ((is-remote (eshell-starship--remote-for-modules-p dir)))
@ -853,11 +872,7 @@ That is, if EXT is \"pkg.tar.gz\", this will return
(copy-sequence (eshell-starship--module-by :dirs name)) (copy-sequence (eshell-starship--module-by :dirs name))
(apply 'append (apply 'append
(eshell-starship--module-by :files name) (eshell-starship--module-by :files name)
(mapcar (lambda (ext) (eshell-starship--extension-modules-for-file name)))))
(copy-sequence (eshell-starship--module-by
:extensions ext)))
(eshell-starship--permute-extension
(eshell-starship--file-name-extension name)))))))
(directory-files-and-attributes dir nil nil t))) (directory-files-and-attributes dir nil nil t)))
(let ((default-directory dir)) (let ((default-directory dir))
(cl-loop for (name is-dir module) in eshell-starship--extra-module-files (cl-loop for (name is-dir module) in eshell-starship--extra-module-files