gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lang/markdown: only warn if all compilers are unavailable

Browse Source 
Rather than check each individual module.
This commit is contained in:
Henrik Lissner 2019-07-14 00:24:09 +02:00
parent 7900d8a10e
commit 6153af9594
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
modules/lang/markdown/doctor.el
View File

@ -3,13 +3,14 @@
(when (require 'markdown-mode nil t)
(cond ((eq markdown-command #'+markdown-compile)
(dolist (cmd (list (cons "marked" '+markdown-compile-marked)
(cons "pandoc" '+markdown-compile-pandoc)
(cons "markdown" '+markdown-compile-markdown)))
(when (and (memq (cdr cmd) +markdown-compile-functions)
(not (executable-find (car cmd))))
(warn! "Couldn't find %S. markdown-preview command won't work"
(car cmd)))))
(unless (cl-loop for (exe . cmd) in (list (cons "marked" '+markdown-compile-marked)
(cons "pandoc" '+markdown-compile-pandoc)
(cons "markdown" '+markdown-compile-markdown)
(cons "multimarkdown" '+markdown-compile-multimarkdown))
if (and (memq cmd +markdown-compile-functions)
(executable-find exe))
return t)
(warn! "Couldn't find a markdown compiler, `markdown-preview' won't work")))
((stringp markdown-command)
(let ((cmd (car (split-string markdown-command " "))))
(unless (executable-find cmd)