2018-06-22 13:46:56 +02:00
|
|
|
;; -*- lexical-binding: t; no-byte-compile: t; -*-
|
|
|
|
|
;;; lang/markdown/doctor.el
|
|
|
|
|
|
2019-03-30 02:17:52 -04:00
|
|
|
(when (require 'markdown-mode nil t)
|
2019-05-19 15:22:51 -04:00
|
|
|
(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))))))
|
