narf--flycheck-count -> narf/-flycheck-count

This commit is contained in:
Henrik Lissner 2016-05-13 00:26:36 -04:00
parent 0af304b311
commit 15fa9c0a9f
2 changed files with 8 additions and 7 deletions

View file

@ -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