awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor doom--recentf-file-truename-fn

Browse Source
This commit is contained in:
Henrik Lissner
2021-05-09 00:20:52 -04:00
parent 62d2f27510
commit 7332a6f798
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
core/core-editor.el
View File

@ -286,14 +286,10 @@ or file path may exist now."
recentf-max-saved-items 200) ; default is 20
(defun doom--recentf-file-truename-fn (file)
(if (file-remote-p file)
(if-let* ((tfile (and (bound-and-true-p tramp-mode)
(tramp-tramp-file-p file)
(tramp-dissect-file-name file)))
((string= (tramp-file-name-method tfile) "sudo")))
(abbreviate-file-name (file-truename (tramp-file-name-localname tfile)))
file)
(abbreviate-file-name (file-truename file))))
(if (or (not (file-remote-p file))
(equal "sudo" (file-remote-p file 'method)))
(abbreviate-file-name (file-truename (tramp-file-name-localname tfile)))
file))
;; Resolve symlinks, strip out the /sudo:X@ prefix in local tramp paths, and
;; abbreviate $HOME -> ~ in filepaths (more portable, more readable, & saves