github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-24 03:00:10 +00:00
Code Issues Projects Releases Packages Wiki Activity

Show perl version in the modeline.

Browse source
This commit is contained in:
Vincent Zhang 2018-08-23 11:05:45 +08:00
parent 558ca30cdd
commit c800b62a19
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
doom-modeline.el
View file

@ -1131,6 +1131,10 @@ See `mode-line-percent-position'.")
(lambda () (lambda ()
(when (and (executable-find "ruby") (executable-find "cut") (executable-find "sed")) (when (and (executable-find "ruby") (executable-find "cut") (executable-find "sed"))
(setq doom-modeline-env-command "ruby --version 2>&1 | cut -d' ' -f2 | sed -n '1p'")))) (setq doom-modeline-env-command "ruby --version 2>&1 | cut -d' ' -f2 | sed -n '1p'"))))
(add-hook 'perl-mode-hook
(lambda ()
(when (and (executable-find "perl") (executable-find "cut") (executable-find "tr") (executable-find "sed"))
(setq doom-modeline-env-command "perl --version 2>&1 | cut -d'(' -f2 | cut -d')' -f1 | tr -d 'v' | sed -n '2p'"))))
(add-hook 'go-mode-hook (add-hook 'go-mode-hook
(lambda () (lambda ()
(when (and (executable-find "go") (executable-find "cut") (executable-find "tr") (executable-find "sed")) (when (and (executable-find "go") (executable-find "cut") (executable-find "tr") (executable-find "sed"))