;; -*- lexical-binding: t; no-byte-compile: t; -*-
;;; lang/markdown/doctor.el

(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)))))
        ((stringp markdown-command)
         (let ((cmd (car (split-string markdown-command " "))))
           (unless (executable-find cmd)
             (warn! "Couldn't find %S. markdown-preview command won't work"
                    cmd))))))