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

feature/evil: abbreviate :P filename modifier

Browse Source
This commit is contained in:
Henrik Lissner
2017-04-15 01:28:38 -04:00
parent e32a804f1d
commit a71ca4d340
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/feature/evil/autoload/evil.el
View File

@ -87,7 +87,7 @@ flags. See http://vimdoc.sourceforge.net/htmldoc/cmdline.html#filename-modifiers
(unless global 1))))) (unless global 1)))))
("P" ("P"
(let ((default-directory (file-name-directory (expand-file-name path)))) (let ((default-directory (file-name-directory (expand-file-name path))))
(doom-project-root))) (abbreviate-file-name (doom-project-root))))
(_ path)) (_ path))
""))) "")))
;; strip trailing slash, if applicable ;; strip trailing slash, if applicable

2
test/modules/feature/test-evil.el
View File

@ -19,7 +19,7 @@
(should (equal (do-it "%:~") "~/.emacs.d/test/modules/feature/test-evil.el")) (should (equal (do-it "%:~") "~/.emacs.d/test/modules/feature/test-evil.el"))
(should (equal (do-it "%:s?e?x?") "fxature/test-evil.el")) (should (equal (do-it "%:s?e?x?") "fxature/test-evil.el"))
(should (equal (do-it "%:gs?e?x?") "fxaturx/txst-xvil.xl")) (should (equal (do-it "%:gs?e?x?") "fxaturx/txst-xvil.xl"))
(should (equal (do-it "%:P/") (doom-project-root))) (should (equal (do-it "%:P/") (abbreviate-file-name (doom-project-root))))
(should (equal (file-truename (do-it "%:p")) (should (equal (file-truename (do-it "%:p"))
(file-truename buffer-file-name))))) (file-truename buffer-file-name)))))