161 lines
7 KiB
EmacsLisp
161 lines
7 KiB
EmacsLisp
;;; editor/format/autoload/settings.el -*- lexical-binding: t; -*-
|
|
|
|
(defconst +format-system-type
|
|
(cl-case system-type
|
|
(windows-nt 'windows)
|
|
(cygwin 'windows)
|
|
(darwin 'macos)
|
|
(gnu/linux 'linux)
|
|
(berkeley-unix
|
|
(save-match-data
|
|
(let ((case-fold-search t))
|
|
(cond ((string-match "freebsd" system-configuration) 'freebsd)
|
|
((string-match "openbsd" system-configuration) 'openbsd)
|
|
((string-match "netbsd" system-configuration) 'netbsd))))))
|
|
"Current operating system according to the format-all package.")
|
|
|
|
(defun +format--resolve-system (choices)
|
|
"Get first choice matching `format-all-system-type' from CHOICES."
|
|
(cl-loop for choice in choices
|
|
if (atom choice) return choice
|
|
else if (eql +format-system-type (car choice))
|
|
return (cadr choice)))
|
|
|
|
;;;###autodef
|
|
(cl-defun set-formatter! (modes formatter &key
|
|
name
|
|
install
|
|
filter
|
|
ok-statuses
|
|
error-regexp)
|
|
"Define a FORMATTER for MODES.
|
|
|
|
MODES can be a major mode symbol, a list of major modes, or a list of
|
|
two-element lists made up of (MAJOR-MODE FORM). FORM is evaluated when the
|
|
buffer is formatted and its return value serves two roles:
|
|
|
|
1. It is a predicate for this formatter. If it returns non-nil (and MAJOR-MODE
|
|
matches the current mode), that formatter is used.
|
|
2. Its return value is stored in the `mode-result' variable for FORMATTER (if
|
|
it's a function).
|
|
|
|
FORMATTER can be a function, string or nested list.
|
|
|
|
If a function, it should be a formatter function that
|
|
`format-all-buffer-thunk' will accept.
|
|
If a string, it is assumed to be a shell command that the buffer's text will
|
|
be piped to (through stdin).
|
|
If a list, it should represent a shell command as a list of arguments. Each
|
|
element is either a string or list (STRING ARG) where STRING is a format
|
|
string and ARG is both a predicate and argument for STRING. If ARG is nil,
|
|
STRING will be omitted from the vector.
|
|
|
|
NAME is the identifier for this formatter. If FORMATTER is a lambda, NAME is
|
|
required.
|
|
|
|
INSTALL is a string representing the shell command to install this formatter's
|
|
dependencies. INSTALL can also be a list of lists made up of two items: (OS
|
|
COMMAND). OS can be windows, macos, linux, freebsd, openbsd or netbsd.
|
|
|
|
FILTER is a function that takes three arguments: the formatted output, any error
|
|
output and the position of the first change, and must return these three after
|
|
making whatever changes you like to them. This might be useful if the output
|
|
contains ANSI color codes that need to be stripped out (as is the case with
|
|
elm-format).
|
|
|
|
OK-STATUSES is a list of integer exit codes that should be treated as success
|
|
codes. However, if ERROR-REGEXP is given, and the program's stderr contains that
|
|
regexp, then the formatting is considered failed even if the exit status is in
|
|
OK-STATUSES.
|
|
|
|
Basic examples:
|
|
|
|
(set-formatter! '(asm-mode nasm-mode) \"asmfmt\")
|
|
(set-formatter! 'python-mode \"black -q -\" :install \"pip install black\")
|
|
|
|
Advanced examples:
|
|
|
|
(set-formatter!
|
|
'((c-mode \".c\")
|
|
(c++-mode \".cpp\")
|
|
(java-mode \".java\")
|
|
(objc-mode \".m\")
|
|
(protobuf-mode \".proto\"))
|
|
'(\"clang-format\"
|
|
(\"-assume-filename=%S\" (or buffer-file-name mode-result \"\")))
|
|
:install '(macos \"brew install clang-format\"))
|
|
|
|
(set-formatter!
|
|
'(html-mode
|
|
(web-mode (and (equal \"none\" web-mode-engine)
|
|
(car (member web-mode-content-type '(\"xml\" \"html\"))))))
|
|
'(\"tidy\" \"-q\" \"-indent\"
|
|
(\"-xml\" (memq major-mode '(nxml-mode xml-mode))))
|
|
:ok-statuses '(0 1)
|
|
:install '(macos \"brew install tidy-html5\"))
|
|
|
|
(set-formatter! 'elm-mode
|
|
\"elm-format --yes --stdin\"
|
|
:install '(macos \"brew install elm\")
|
|
:filter
|
|
(lambda (output errput first-diff)
|
|
(list output
|
|
(format-all-remove-ansi-color errput)
|
|
first-diff)))"
|
|
(declare (indent defun))
|
|
(cl-check-type name (or symbol null))
|
|
(let* ((command-list (cond ((stringp formatter) ; shell command
|
|
(split-string formatter " " t))
|
|
((listp formatter) ; shell command in lists
|
|
formatter)))
|
|
(name (cond (name)
|
|
((car command-list) (intern (car command-list)))
|
|
((symbolp formatter) formatter)
|
|
((user-error "Anonymous formatter requires a :name"))))
|
|
(fn (lambda (executable mode-result)
|
|
(let ((result
|
|
(cond ((commandp formatter)
|
|
(let ((mode major-mode)
|
|
(file buffer-file-name)
|
|
(dir default-directory))
|
|
(format-all-buffer-thunk
|
|
(lambda (input)
|
|
(with-silent-modifications
|
|
(setq buffer-file-name file
|
|
default-directory dir)
|
|
(delay-mode-hooks (funcall mode))
|
|
(insert input)
|
|
(condition-case e
|
|
(progn
|
|
(call-interactively formatter)
|
|
(list nil ""))
|
|
(error (list t (error-message-string e)))))))))
|
|
((functionp formatter)
|
|
(format-all-buffer-thunk formatter))
|
|
((cl-loop for arg in command-list
|
|
if (stringp arg)
|
|
collect arg into args
|
|
else if (eval (cadr arg) t)
|
|
collect (format (car arg) it) into args
|
|
finally do
|
|
(if (or ok-statuses error-regexp)
|
|
(apply #'format-all-buffer-hard ok-statuses error-regexp args)
|
|
(apply #'format-all-buffer-easy args)))))))
|
|
(if filter
|
|
(apply filter result)
|
|
result))))
|
|
(install (cond ((null install) install)
|
|
((listp install)
|
|
(cdr (assq (+format--resolve-system) install)))
|
|
(install))))
|
|
(after! format-all
|
|
(puthash name fn format-all-format-table)
|
|
(puthash name install format-all-install-table)
|
|
(puthash name (car command-list) format-all-executable-table)
|
|
(dolist (mode (doom-enlist modes))
|
|
(cl-destructuring-bind (m &optional probe)
|
|
(doom-enlist mode)
|
|
(format-all-pushhash
|
|
m (cons name (if probe `(lambda () ,probe)))
|
|
format-all-mode-table))))
|
|
name))
|