From 66de890cfb59bd88daba3000fe73100ae7d27212 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 20 Nov 2015 03:59:09 -0500 Subject: [PATCH] Refactor flycheck config --- core/core-flycheck.el | 3 +-- core/lib/defuns-flycheck.el | 8 ++------ 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/core/core-flycheck.el b/core/core-flycheck.el index 2829c66b9..1498acf33 100644 --- a/core/core-flycheck.el +++ b/core/core-flycheck.el @@ -24,8 +24,7 @@ ;; Check buffer when normal mode is entered (add-hook! evil-normal-state-entry 'narf*flycheck-buffer) ;; And on ESC in normal mode. - (advice-add 'evil-force-normal-state :after 'narf*flycheck-buffer) - (advice-add 'flycheck-mode-line-status-text :filter-return 'narf*fly-shorter-status)) + (advice-add 'evil-force-normal-state :after 'narf*flycheck-buffer)) (use-package flyspell :commands flyspell-mode) diff --git a/core/lib/defuns-flycheck.el b/core/lib/defuns-flycheck.el index 8d662f5ba..7ab68c0e2 100644 --- a/core/lib/defuns-flycheck.el +++ b/core/lib/defuns-flycheck.el @@ -1,14 +1,10 @@ ;;; defuns-flycheck.el ;; for ../core-flycheck.el -;;;###autoload -(defun narf*fly-shorter-status (result) - (format "[%s]" (replace-regexp-in-string " FlyC:?" "" result))) - ;;;###autoload (defun narf*flycheck-buffer () - (if (and (featurep 'flycheck) flycheck-mode) - (flycheck-buffer))) + (when (and (featurep 'flycheck) flycheck-mode) + (flycheck-buffer))) ;;;###autoload (defun narf/flycheck-next-error ()