mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
a32cf8b132
- Make use of use-package's :bind option whenever possible. - Make use of use-package's :hook option whenever possible. - Rename and move all mode setup functions into use-package's :init step. - Other minor misc fixes and tweaks to a few modules.
72 lines
2.0 KiB
EmacsLisp
72 lines
2.0 KiB
EmacsLisp
;;; siren-rubocop.el --- jimeh's Emacs Siren: rubocop-mode configuration.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for rubocop-mode.
|
|
|
|
;;; Code:
|
|
|
|
(use-package rubocop
|
|
:defer t
|
|
:bind (:map rubocop-mode-map
|
|
("C-c C-f" . siren-rubocop-autocorrect))
|
|
|
|
:hook
|
|
(rubocop-mode . siren-rubocop-mode-setup)
|
|
(after-save . siren-rubocop-autocorrect-hook)
|
|
|
|
:init
|
|
(defun siren-rubocop-mode-setup ())
|
|
|
|
:config
|
|
(defgroup siren-rubocop nil
|
|
"Rubocop options specific to Siren."
|
|
:group 'siren)
|
|
|
|
(defcustom siren-rubocop-autocorrect-on-save t
|
|
"Auto-correct files with rubocop when saving."
|
|
:group 'siren-rubocop
|
|
:type 'boolean)
|
|
|
|
(defadvice compilation-start
|
|
(around inhibit-display
|
|
(command &optional mode name-function highlight-regexp))
|
|
(if (not (string-match "^\\(find\\|grep\\)" command))
|
|
(flet ((display-buffer)
|
|
(set-window-point)
|
|
(goto-char))
|
|
(fset 'display-buffer 'ignore)
|
|
(fset 'goto-char 'ignore)
|
|
(fset 'set-window-point 'ignore)
|
|
(save-window-excursion
|
|
ad-do-it))
|
|
ad-do-it))
|
|
|
|
(defun siren-rubocop-autocorrect ()
|
|
"Auto-correct with Rubocop and instantly revert buffer."
|
|
(interactive)
|
|
(if siren-rubocop-autocorrect-on-save
|
|
(save-buffer)
|
|
(siren-rubocop-autocorrect-p t)))
|
|
|
|
(defun siren-rubocop-autocorrect-p (force-save)
|
|
"Auto-correct with Rubocop and instantly revert buffer.
|
|
|
|
If FORCE-SAVE is nil then file will not be saved before
|
|
auto-correction is triggered."
|
|
(if force-save (save-buffer))
|
|
(ad-activate 'compilation-start)
|
|
(rubocop-autocorrect-current-file)
|
|
(ad-deactivate 'compilation-start)
|
|
;; doesn't work, buffer just updates a few seconds later via auto-revert.
|
|
;; (revert-buffer t t)
|
|
)
|
|
|
|
(defun siren-rubocop-autocorrect-hook ()
|
|
"Siren's Rubocop auto-correct hook."
|
|
(if siren-rubocop-autocorrect-on-save
|
|
(siren-rubocop-autocorrect-p nil))))
|
|
|
|
(provide 'siren-rubocop)
|
|
;;; siren-rubocop.el ends here
|