hiro/doom-modeline
1
0
Fork 0
mirror of https://github.com/vale981/doom-modeline synced 2025-03-06 09:41:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #231 from hlissner/patch-3

Browse source 
Evaluate docstrings in doom-modeline-def-env
This commit is contained in:
Vincent Zhang 2019-10-13 11:51:24 +08:00 • committed by GitHub
commit bc046daea2
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
doom-modeline-env.el
View file

@ -145,18 +145,18 @@ PARSER should be a function for parsing COMMAND's output line-by-line, to
(exe-var (intern (format "doom-modeline-env-%s-executable" name)))) (exe-var (intern (format "doom-modeline-env-%s-executable" name))))
(macroexp-progn (macroexp-progn
`((defcustom ,enable-var t `((defcustom ,enable-var t
(format "Whether to display the version string for %s buffers." ',name) ,(format "Whether to display the version string for %s buffers." name)
:type 'boolean :type 'boolean
:group 'doom-modeline-env) :group 'doom-modeline-env)
(defvar ,command-var ',action-fn (defvar ,command-var ',action-fn
(concat "A function that returns the shell command and arguments (as a list) to\n" ,(concat "A function that returns the shell command and arguments (as a list) to\n"
"produce a version string.")) "produce a version string."))
(defvar ,parser-var ',parse-fn (defvar ,parser-var ',parse-fn
(format "The function for parsing each line of `%s's output." ',command-var)) ,(format "The function for parsing each line of `%s's output." command-var))
(defcustom ,exe-var nil (defcustom ,exe-var nil
(format (concat "What executable to use for the version indicator in %s buffers.\n\n" ,(format (concat "What executable to use for the version indicator in %s buffers.\n\n"
"If nil, the default binary for this language is used.") "If nil, the default binary for this language is used.")
',name) name)
:type 'string :type 'string
:group 'doom-modeline-env) :group 'doom-modeline-env)
(defalias ',parse-fn ,parser (defalias ',parse-fn ,parser