Merge pull request #2225 fix-markdown-preview

fix markdown-preview

Author: vindarel

extensions/markdown-mode/preview/external-browser.lisp

@@ -71,7 +71,11 @@ The WS connection is closed when the markdown file is closed."))
 (defun generate-html-and-preview (buffer)
   (let* ((port (setup-server buffer))
          (html-file (generate-html buffer port)))
-    (trivial-open-browser:open-browser (namestring html-file))))
+    (uiop:launch-program
+      (list #+(or win32 mswindows windows) "explorer"
+            #+(or macos darwin) "open"
+            #-(or win32 mswindows macos darwin windows) "xdg-open"
+            (namestring html-file)))))
 
 (defun refresh (buffer)
   (alexandria:when-let ((server (get-buffer-server-or-make buffer)))
@@ -90,7 +94,7 @@ The WS connection is closed when the markdown file is closed."))
     (trivial-ws:stop handler)))
 
 (defmethod lem-markdown-mode/internal:on-change (buffer (view-type (eql :external-browser)))
-  )
+  (refresh buffer))
 
 (defmethod lem-markdown-mode/internal:preview (buffer (view-type (eql :external-browser)))
   "Render the markdown of the current buffer to a browser window. The preview is refreshed when the file is saved.

extensions/markdown-mode/preview/preview.lisp

@@ -3,8 +3,13 @@
 (in-package :lem-markdown-mode/preview/preview)
 
 (define-command markdown-preview () ()
+  "Preview the current Markdown buffer as rendered HTML in an internal buffer."
   (lem-markdown-mode/internal:preview (current-buffer) :html-buffer))
 
+(define-command markdown-preview-external-browser () ()
+  "Preview the current Markdown buffer as rendered HTML in an external web browser."
+  (lem-markdown-mode/internal:preview (current-buffer) :external-browser))
+
 (defun render (string)
   (let ((3bmd-code-blocks:*code-blocks* t))
     (with-output-to-string (stream)