A bug in livemd mode has been fixed

This commit is contained in:
Sameer Rahmani 2019-09-08 11:57:13 +01:00
parent 25eb2facdf
commit 85eb203e1a
3 changed files with 5 additions and 17 deletions

View File

@ -33,6 +33,7 @@
'common-lisp
'python
'arduino
'racket
'irc
'latex)

View File

@ -10,7 +10,6 @@
(depends-on 'flycheck-clojure)
(depends-on 'clj-refactor)
(depends-on 'let-alist)
(depends-on 'flycheck-clojure)
(depends-on 'clojure-mode-extra-font-locking)
;(depends-on 'core-async-mode)

View File

@ -14,7 +14,6 @@
;;; Commentary:
;; Realtime Markdown previews for Emacs.
;;; Code:
(defgroup livemd nil
"Realtime Markdown previews"
:group 'livemd
@ -49,15 +48,7 @@
(defun livemd-preview ()
"Preview the current file in livemd."
(interactive)
(call-process-shell-command (format "livedown stop --port %s &" livemd-port))
(message (format "%s start %s --port %s %s %s "
livedown-path
buffer-file-name
livemd-port
(if livemd-browser (concat "--browser " livemd-browser) "")
(if livemd-open "--open" "")))
(start-process-shell-command
"livedown"
"*fg42-livemd-buffer*"
@ -66,9 +57,11 @@
buffer-file-name
livemd-port
(if livemd-browser (concat "--browser " livemd-browser) "")
(if livemd-open "--open" ""))))
(if livemd-open "--open" "")))
(add-hook 'kill-emacs-query-functions (lambda () (livemd-kill t)))
(print (format "%s rendered @ %s" buffer-file-name livemd-port) (get-buffer "emacs-livemd-buffer")))
;; (print (format "%s rendered @ %s" buffer-file-name livemd-port) (get-buffer "emacs-livemd-buffer")))
;;;###autoload
(defun livemd-kill (&optional async)
"Stop the livemd process ASYNC or otherwise."
@ -76,11 +69,6 @@
(let ((stop-livemd (if async 'async-shell-command 'call-process-shell-command)))
(funcall stop-livemd (format "%s stop --port %s &" livedown-path livemd-port))))
(if livemd-autostart
(eval-after-load 'markdown-mode '(livemd-preview)))
(add-hook 'kill-emacs-query-functions (lambda () (livemd-kill t)))
(provide 'extensions/development/livemd)
;;; livemd.el ends here