emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor macros

Browse source
This commit is contained in:
Henrik Lissner 2016-05-12 02:53:31 -04:00
parent f2df8192ff
commit d751be7898
8 changed files with 53 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

7
core/defuns/macros-spaceline.el
View file

@ -1,18 +1,17 @@
;;; defuns-spaceline.el
;;;###autoload
(defmacro def-env-command! (mode command)
(defmacro def-version-cmd! (modes command)
"Define a COMMAND for MODE that will set `narf--env-command' when that mode is
activated, which should return the version number of the current environment. It is used
by `narf|spaceline-env-update' to display a version number in the modeline. For instance:
(def-env-command! ruby-mode \"ruby --version | cut -d' ' -f2\")
(def-version-cmd! ruby-mode \"ruby --version | cut -d' ' -f2\")
This will display the ruby version in the modeline in ruby-mode buffers. It is cached the
first time."
(add-hook! (focus-in find-file) 'narf|spaceline-env-update)
`(add-hook ',(intern (format "%s-hook" (symbol-name mode)))
(lambda () (setq narf--env-command ,command))))
`(add-hook! ,modes (setq narf--env-command ,command)))
(provide 'defuns-spaceline)
;;; defuns-spaceline.el ends here