14 lines
464 B
EmacsLisp
14 lines
464 B
EmacsLisp
|
;;; defuns-spaceline.el
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun narf|spaceline-env-update ()
|
||
|
|
(when narf--env-command
|
||
|
|
(let* ((command (format "cd '%s' && %s" (narf/project-root) narf--env-command))
|
||
|
|
(s (shell-command-to-string command)))
|
||
|
|
(setq narf--env-version (if (string-match "[ \t\n\r]+\\'" s)
|
||
|
|
(replace-match "" t t s)
|
||
|
|
s)))))
|
||
|
|
|
||
|
|
(provide 'defuns-spaceline)
|
||
|
|
;;; defuns-spaceline.el ends here
|