remove project-root-of-file
This commit is contained in:
parent
74620118ab
commit
2a1671a6b3
@ -473,30 +473,6 @@ buffer is not visiting a file."
|
|||||||
(cond ((eq system-type 'darwin) 'notification-center)
|
(cond ((eq system-type 'darwin) 'notification-center)
|
||||||
((eq system-type 'gnu/linux) 'notify-send)))
|
((eq system-type 'gnu/linux) 'notify-send)))
|
||||||
|
|
||||||
(defun project-root-of-file (filename)
|
|
||||||
"Retrieves the root directory of a project if available.
|
|
||||||
The current directory is assumed to be the project's root otherwise."
|
|
||||||
(file-truename
|
|
||||||
(let ((dir (file-truename filename)))
|
|
||||||
(or (--reduce-from
|
|
||||||
(or acc
|
|
||||||
(let* ((cache-key (format "%s-%s" it dir))
|
|
||||||
(cache-value (gethash cache-key
|
|
||||||
projectile-project-root-cache)))
|
|
||||||
(if cache-value
|
|
||||||
(if (eq cache-value 'no-project-root)
|
|
||||||
nil
|
|
||||||
cache-value)
|
|
||||||
(let ((value (funcall it dir)))
|
|
||||||
(puthash cache-key (or value 'no-project-root)
|
|
||||||
projectile-project-root-cache)
|
|
||||||
value))))
|
|
||||||
nil
|
|
||||||
projectile-project-root-files-functions)
|
|
||||||
(if projectile-require-project-root
|
|
||||||
(error "You're not in a project")
|
|
||||||
default-directory)))))
|
|
||||||
|
|
||||||
;; =============================================================================
|
;; =============================================================================
|
||||||
;; General Emacs Options
|
;; General Emacs Options
|
||||||
;; =============================================================================
|
;; =============================================================================
|
||||||
|
Loading…
Reference in New Issue
Block a user