2018-08-22 02:15:44 +02:00
|
|
|
;;; editor/format/config.el -*- lexical-binding: t; -*-
|
|
|
|
|
2018-08-29 12:46:24 +02:00
|
|
|
(defvar +format-on-save-enabled-modes '(not emacs-lisp-mode)
|
2018-08-22 02:15:44 +02:00
|
|
|
"A list of major modes in which to enable `format-all-mode'.
|
|
|
|
|
|
|
|
This mode will auto-format buffers when you save them.
|
|
|
|
|
|
|
|
If this list begins with `not', then it negates the list.
|
|
|
|
If it is `t', it is enabled in all modes.
|
|
|
|
If nil, it is disabled in all modes, the same as if the +onsave flag wasn't
|
|
|
|
used at all.")
|
|
|
|
|
|
|
|
|
|
|
|
;;
|
|
|
|
;; Plugins
|
|
|
|
;;
|
|
|
|
|
|
|
|
(defun +format|enable-on-save-maybe ()
|
2018-08-28 12:02:56 +02:00
|
|
|
"Enable formatting on save in certain major modes.
|
|
|
|
|
|
|
|
This is controlled by `+format-on-save-enabled-modes'."
|
2018-08-22 02:15:44 +02:00
|
|
|
(unless (or (eq major-mode 'fundamental-mode)
|
|
|
|
(cond ((booleanp +format-on-save-enabled-modes)
|
|
|
|
(null +format-on-save-enabled-modes))
|
|
|
|
((eq (car +format-on-save-enabled-modes) 'not)
|
|
|
|
(memq major-mode (cdr +format-on-save-enabled-modes)))
|
|
|
|
((not (memq major-mode +format-on-save-enabled-modes))))
|
2018-08-25 01:10:47 +02:00
|
|
|
(not (require 'format-all nil t))
|
2018-08-28 13:33:48 +02:00
|
|
|
(equal (format-all-probe) (list nil nil)))
|
2018-08-28 12:02:56 +02:00
|
|
|
(add-hook 'before-save-hook #'+format|buffer nil t)))
|
2018-08-22 02:15:44 +02:00
|
|
|
|
|
|
|
(when (featurep! +onsave)
|
|
|
|
(add-hook 'after-change-major-mode-hook #'+format|enable-on-save-maybe))
|