hiro/apheleia
1
0
Fork 0
mirror of https://github.com/vale981/apheleia synced 2025-03-04 17:11:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Delete apheleia-formatters-args-from-file (#273)

Browse source 
Remove unused artifact from #224
This commit is contained in:
Nolan 2023-12-30 13:24:07 -08:00 • committed by GitHub
parent f868b22357
commit 2b9e03a7b2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
apheleia-utils.el
View file

@ -92,17 +92,6 @@ FILE-NAME."
(when-let ((file (locate-dominating-file default-directory file-name))) (when-let ((file (locate-dominating-file default-directory file-name)))
(list file-flag (concat (expand-file-name file) file-name)))) (list file-flag (concat (expand-file-name file) file-name))))
(defun apheleia-formatters-args-from-file (file-name)
"Extract arguments from a text file.
Look for a file up recursively from the current directory until FILE-NAME is
found. If found, read the file and return an Alist of lines in the file."
(when-let ((file (locate-dominating-file default-directory file-name)))
(with-temp-buffer
(insert-file-contents (concat (expand-file-name file) file-name))
(cl-loop for line in (split-string (buffer-string) "\n" t)
collect line)))
)
(defun apheleia-formatters-extension-p (&rest exts) (defun apheleia-formatters-extension-p (&rest exts)
"Assert whether current buffer has an extension in EXTS." "Assert whether current buffer has an extension in EXTS."
(when-let ((name buffer-file-name) (when-let ((name buffer-file-name)