25 lines
939 B
EmacsLisp
25 lines
939 B
EmacsLisp
;;; defuns-spaceline.el
|
|
|
|
(defvar doom-env-version-hook '()
|
|
"Hook that runs whenever the environment version changes (e.g. rbenv/pyenv)")
|
|
|
|
;;;###autoload
|
|
(defun doom|spaceline-env-update ()
|
|
(when doom--env-command
|
|
(let ((default-directory (doom/project-root)))
|
|
(let ((s (shell-command-to-string doom--env-command)))
|
|
(setq doom--env-version (if (string-match "[ \t\n\r]+\\'" s)
|
|
(replace-match "" t t s)
|
|
s))
|
|
(run-hook-with-args 'doom-env-version-hook doom--env-version)))))
|
|
|
|
;;;###autoload
|
|
(defun doom/-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
|