From 6153af95946121cf65481a80bc7c4d8ee5a84957 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 14 Jul 2019 00:24:09 +0200 Subject: [PATCH] lang/markdown: only warn if all compilers are unavailable Rather than check each individual module. --- modules/lang/markdown/doctor.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/modules/lang/markdown/doctor.el b/modules/lang/markdown/doctor.el index 4c9238840..dd1468394 100644 --- a/modules/lang/markdown/doctor.el +++ b/modules/lang/markdown/doctor.el @@ -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)