2017-07-27 17:29:22 +02:00
|
|
|
;;; Flycheck
|
|
|
|
|
2017-08-30 17:43:59 +02:00
|
|
|
(defun flycheck-and-whitespace-mode ()
|
2017-07-27 17:29:22 +02:00
|
|
|
"Toggle `flycheck-mode' and `whitespace-mode'."
|
|
|
|
(interactive)
|
2017-08-30 17:43:59 +02:00
|
|
|
(if (derived-mode-p 'text-mode)
|
|
|
|
(flyspell-mode)
|
|
|
|
(flycheck-mode 'toggle)
|
|
|
|
(if flyspell-mode (flyspell-mode 0) (flyspell-prog-mode)))
|
2017-09-20 17:00:39 +02:00
|
|
|
(whitespace-mode 'toggle)
|
|
|
|
(message "flyspell %s, flycheck %s, whitespace %s" flyspell-mode flycheck-mode whitespace-mode))
|
2017-08-30 17:43:59 +02:00
|
|
|
(global-set-key (kbd "<f9>") 'flycheck-and-whitespace-mode)
|
2017-07-27 17:29:22 +02:00
|
|
|
|
|
|
|
(define-key flycheck-mode-map (kbd "C-c ! h") 'helm-flycheck)
|
|
|
|
|
|
|
|
(provide 'init-flycheck)
|