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

feat(lib): backport file-name-with-extension

Browse Source
This commit is contained in:
Henrik Lissner
2022-09-24 10:47:32 +02:00
parent 2fc3442508
commit d33478dc79
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/doom-lib.el
View File

@ -933,6 +933,29 @@ The previous values will be be restored upon exit."
collect `(setenv ,(car var) ,(cadr var)))
,@body))
;; Introduced in Emacs 28.1
(defbackport! defun file-name-with-extension (filename extension)
"Return FILENAME modified to have the specified EXTENSION.
The extension (in a file name) is the part that begins with the last \".\".
This function removes any existing extension from FILENAME, and then
appends EXTENSION to it.
EXTENSION may include the leading dot; if it doesn't, this function
will provide it.
It is an error if FILENAME or EXTENSION is empty, or if FILENAME
is in the form of a directory name according to `directory-name-p'.
See also `file-name-sans-extension'."
(let ((extn (string-trim-left extension "[.]")))
(cond ((string-empty-p filename)
(error "Empty filename"))
((string-empty-p extn)
(error "Malformed extension: %s" extension))
((directory-name-p filename)
(error "Filename is a directory: %s" filename))
((concat (file-name-sans-extension filename) "." extn)))))
;; Introduced in Emacs 29+
(defbackport! defmacro with-memoization (place &rest code)
"Return the value of CODE and stash it in PLACE.