2015-06-15 09:05:52 +02:00
|
|
|
;;; core-flycheck.el --- check yourself before you shrek yourself
|
|
|
|
|
|
|
|
(use-package flycheck
|
2015-10-15 14:01:53 -04:00
|
|
|
:commands (flycheck-mode flycheck-list-errors flycheck-buffer)
|
2015-06-15 09:05:52 +02:00
|
|
|
:init
|
2015-11-12 02:07:48 -05:00
|
|
|
(setq flycheck-indication-mode 'right-fringe
|
2015-06-15 09:05:52 +02:00
|
|
|
;; Removed checks on idle/change for snappiness
|
2015-11-12 02:07:48 -05:00
|
|
|
flycheck-check-syntax-automatically '(save mode-enabled)
|
2016-02-22 15:23:49 -05:00
|
|
|
flycheck-disabled-checkers '(emacs-lisp emacs-lisp-checkdoc make))
|
2016-04-19 02:08:48 -04:00
|
|
|
|
2015-06-15 09:05:52 +02:00
|
|
|
:config
|
2016-04-23 22:08:46 -04:00
|
|
|
;; fixes Unknown defun property `interactive-only' error by compiling flycheck
|
|
|
|
(let ((path (locate-library "flycheck")))
|
|
|
|
(unless (f-ext? path "elc")
|
|
|
|
(byte-compile-file path)))
|
2016-03-04 22:38:04 -05:00
|
|
|
|
2016-03-29 23:48:06 -04:00
|
|
|
(map! :map flycheck-error-list-mode-map
|
|
|
|
:n "C-n" 'flycheck-error-list-next-error
|
|
|
|
:n "C-p" 'flycheck-error-list-previous-error
|
|
|
|
:n "j" 'flycheck-error-list-next-error
|
|
|
|
:n "k" 'flycheck-error-list-previous-error
|
|
|
|
:n "RET" 'flycheck-error-list-goto-error)
|
2015-06-15 09:05:52 +02:00
|
|
|
|
|
|
|
;; And on ESC in normal mode.
|
2015-12-11 16:51:04 -05:00
|
|
|
(advice-add 'evil-force-normal-state :after 'narf*flycheck-buffer)
|
|
|
|
|
|
|
|
(define-fringe-bitmap 'flycheck-fringe-bitmap-double-arrow
|
2015-12-23 02:41:03 -05:00
|
|
|
[0 0 0 8 24 56 120 248 120 56 24 8 0 0 0]
|
2015-12-11 16:51:04 -05:00
|
|
|
;; (fringe-helper-convert
|
|
|
|
;; "........"
|
|
|
|
;; "........"
|
|
|
|
;; "........"
|
|
|
|
;; "....X..."
|
|
|
|
;; "...XX..."
|
|
|
|
;; "..XXX..."
|
|
|
|
;; ".XXXX..."
|
2015-12-23 02:41:03 -05:00
|
|
|
;; "XXXXX..."
|
|
|
|
;; ".XXXX..."
|
2015-12-11 16:51:04 -05:00
|
|
|
;; "..XXX..."
|
|
|
|
;; "...XX..."
|
|
|
|
;; "....X..."
|
|
|
|
;; "........"
|
|
|
|
;; "........"
|
|
|
|
;; "........")
|
|
|
|
))
|
2015-06-15 09:05:52 +02:00
|
|
|
|
2016-04-23 22:08:46 -04:00
|
|
|
(use-package flycheck-package
|
|
|
|
:after flycheck
|
|
|
|
:config (flycheck-package-setup))
|
|
|
|
|
|
|
|
(use-package flycheck-pos-tip
|
2016-05-07 21:56:21 -04:00
|
|
|
:when (= emacs-major-version 24)
|
2016-04-23 22:08:46 -04:00
|
|
|
:after flycheck
|
|
|
|
:config
|
|
|
|
(setq flycheck-pos-tip-timeout 10
|
|
|
|
flycheck-display-errors-delay 0.5)
|
|
|
|
(flycheck-pos-tip-mode +1))
|
|
|
|
|
2015-06-15 09:05:52 +02:00
|
|
|
(use-package flyspell :commands flyspell-mode)
|
|
|
|
|
|
|
|
(provide 'core-flycheck)
|
|
|
|
;;; core-flycheck.el ends here
|