emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(format): resolve list expansion issues

Browse source 
The argument list was being expanded incorrectly, this should now be resolved.
This commit is contained in:
Ellis Kenyő 2022-08-14 16:17:36 +01:00 • committed by Ellis Kenyo
parent 115bfc52a2
commit 3aa9796b84
No known key found for this signature in database
GPG key ID: 298BE5D997EBAA02
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/editor/format/autoload/settings.el
View file

@ -1,8 +1,7 @@
;;; editor/format/autoload/settings.el -*- lexical-binding: t; -*- ;;; editor/format/autoload/settings.el -*- lexical-binding: t; -*-
;;;###autodef ;;;###autodef
(cl-defun set-formatter! (cl-defun set-formatter! (name args &key modes filter)
(name &rest args &key modes filter &allow-other-keys)
"Define (or modify) a formatter named NAME. "Define (or modify) a formatter named NAME.
Supported keywords: :modes :filter Supported keywords: :modes :filter
@ -80,7 +79,10 @@ Advanced examples:
(while (rassoc name apheleia-mode-alist) (while (rassoc name apheleia-mode-alist)
(setq apheleia-mode-alist (setq apheleia-mode-alist
(assq-delete-all (car (rassoc name apheleia-mode-alist)) apheleia-mode-alist)))) (assq-delete-all (car (rassoc name apheleia-mode-alist)) apheleia-mode-alist))))
(setf (alist-get name apheleia-formatters) args) (let ((formatter (cond
((listp args) `(,@args))
(t args))))
(setf (alist-get name apheleia-formatters) formatter))
(when modes (when modes
(dolist (mode modes) (dolist (mode modes)
(setf (alist-get mode apheleia-mode-alist) name)))))) (setf (alist-get mode apheleia-mode-alist) name))))))