From 15fa9c0a9f74f93eaceac8024847f02ea4b85419 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 13 May 2016 00:26:36 -0400 Subject: [PATCH] narf--flycheck-count -> narf/-flycheck-count --- core/core-ui.el | 7 ------- core/defuns/defuns-spaceline.el | 8 ++++++++ 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/core/core-ui.el b/core/core-ui.el index ed10b0cf0..ca473b3a9 100644 --- a/core/core-ui.el +++ b/core/core-ui.el @@ -370,13 +370,6 @@ iedit." highlight-face))) ;; flycheck - (defun narf--flycheck-count (state) - "Return flycheck information for the given error type STATE." - (when (flycheck-has-current-errors-p state) - (if (eq 'running flycheck-last-status-change) - "?" - (cdr-safe (assq state (flycheck-count-errors flycheck-current-errors)))))) - (defface spaceline-flycheck-error '((t (:foreground "#FC5C94" :distant-foreground "#A20C41"))) "Face for flycheck error feedback in the modeline.") diff --git a/core/defuns/defuns-spaceline.el b/core/defuns/defuns-spaceline.el index 8a5acfd03..906b0bc07 100644 --- a/core/defuns/defuns-spaceline.el +++ b/core/defuns/defuns-spaceline.el @@ -9,5 +9,13 @@ (replace-match "" t t s) s)))))) +;;;###autoload +(defun narf/-flycheck-count (state) + "Return flycheck information for the given error type STATE." + (when (flycheck-has-current-errors-p state) + (if (eq 'running flycheck-last-status-change) + "?" + (cdr-safe (assq state (flycheck-count-errors flycheck-current-errors)))))) + (provide 'defuns-spaceline) ;;; defuns-spaceline.el ends here