emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
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) (when (require 'markdown-mode nil t)
(cond ((eq markdown-command #'+markdown-compile) (cond ((eq markdown-command #'+markdown-compile)
(dolist (cmd (list (cons "marked" '+markdown-compile-marked) (unless (cl-loop for (exe . cmd) in (list (cons "marked" '+markdown-compile-marked)
(cons "pandoc" '+markdown-compile-pandoc) (cons "pandoc" '+markdown-compile-pandoc)
(cons "markdown" '+markdown-compile-markdown))) (cons "markdown" '+markdown-compile-markdown)
(when (and (memq (cdr cmd) +markdown-compile-functions) (cons "multimarkdown" '+markdown-compile-multimarkdown))
(not (executable-find (car cmd)))) if (and (memq cmd +markdown-compile-functions)
(warn! "Couldn't find %S. markdown-preview command won't work" (executable-find exe))
(car cmd))))) return t)
(warn! "Couldn't find a markdown compiler, `markdown-preview' won't work")))
((stringp markdown-command) ((stringp markdown-command)
(let ((cmd (car (split-string markdown-command " ")))) (let ((cmd (car (split-string markdown-command " "))))
(unless (executable-find cmd) (unless (executable-find cmd)