eww-auto-rename-buffer
to t
.markdown-live-preview-mode
in a markdown buffer.After that, a live preview of the markdown buffer should be displayed in a new window.
Actual BehaviorThe live preview window does not appear. Following error is echoed.
markdown-live-preview-mode: Wrong type argument: stringp, nil
Steps to Reproduce
emacs -Q --load path/to/markdown-mode.el test-case.md
(customize-set-variable 'eww-auto-rename-buffer t)
M-x
, markdown-live-preview-mode
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
set-buffer(nil)
(save-current-buffer (set-buffer output-buffer) (setq markdown-live-preview-source-buffer cur-buf) (add-hook 'kill-buffer-hook #'markdown-live-preview-remove-on-kill t t))
(let ((output-buffer (funcall markdown-live-preview-window-function export-file))) (save-current-buffer (set-buffer output-buffer) (setq markdown-live-preview-source-buffer cur-buf) (add-hook 'kill-buffer-hook #'markdown-live-preview-remove-on-kill t t)) (save-current-buffer (set-buffer cur-buf) (setq markdown-live-preview-buffer output-buffer)))
(progn (let ((output-buffer (funcall markdown-live-preview-window-function export-file))) (save-current-buffer (set-buffer output-buffer) (setq markdown-live-preview-source-buffer cur-buf) (add-hook 'kill-buffer-hook #'markdown-live-preview-remove-on-kill t t)) (save-current-buffer (set-buffer cur-buf) (setq markdown-live-preview-buffer output-buffer))))
(unwind-protect (progn (let ((output-buffer (funcall markdown-live-preview-window-function export-file))) (save-current-buffer (set-buffer output-buffer) (setq markdown-live-preview-source-buffer cur-buf) (add-hook 'kill-buffer-hook #'markdown-live-preview-remove-on-kill t t)) (save-current-buffer (set-buffer cur-buf) (setq markdown-live-preview-buffer output-buffer)))) (set-window-configuration wconfig))
(let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((output-buffer (funcall markdown-live-preview-window-function export-file))) (save-current-buffer (set-buffer output-buffer) (setq markdown-live-preview-source-buffer cur-buf) (add-hook 'kill-buffer-hook #'markdown-live-preview-remove-on-kill t t)) (save-current-buffer (set-buffer cur-buf) (setq markdown-live-preview-buffer output-buffer)))) (set-window-configuration wconfig)))
(let* ((markdown-live-preview-currently-exporting t) (cur-buf (current-buffer)) (export-file (markdown-export filename)) (window-data (markdown-live-preview-window-serialize markdown-live-preview-buffer))) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((output-buffer (funcall markdown-live-preview-window-function export-file))) (save-current-buffer (set-buffer output-buffer) (setq markdown-live-preview-source-buffer cur-buf) (add-hook 'kill-buffer-hook #'markdown-live-preview-remove-on-kill t t)) (save-current-buffer (set-buffer cur-buf) (setq markdown-live-preview-buffer output-buffer)))) (set-window-configuration wconfig))) (save-current-buffer (set-buffer cur-buf) (mapc #'markdown-live-preview-window-deserialize window-data) (let ((buf (get-file-buffer export-file))) (if buf (progn (kill-buffer buf)))) (if (and export-file (file-exists-p export-file) (eq markdown-live-preview-delete-export 'delete-on-export)) (progn (delete-file export-file))) markdown-live-preview-buffer))
(progn (let* ((markdown-live-preview-currently-exporting t) (cur-buf (current-buffer)) (export-file (markdown-export filename)) (window-data (markdown-live-preview-window-serialize markdown-live-preview-buffer))) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((output-buffer ...)) (save-current-buffer (set-buffer output-buffer) (setq markdown-live-preview-source-buffer cur-buf) (add-hook ... ... t t)) (save-current-buffer (set-buffer cur-buf) (setq markdown-live-preview-buffer output-buffer)))) (set-window-configuration wconfig))) (save-current-buffer (set-buffer cur-buf) (mapc #'markdown-live-preview-window-deserialize window-data) (let ((buf (get-file-buffer export-file))) (if buf (progn (kill-buffer buf)))) (if (and export-file (file-exists-p export-file) (eq markdown-live-preview-delete-export 'delete-on-export)) (progn (delete-file export-file))) markdown-live-preview-buffer)))
(if filename (progn (let* ((markdown-live-preview-currently-exporting t) (cur-buf (current-buffer)) (export-file (markdown-export filename)) (window-data (markdown-live-preview-window-serialize markdown-live-preview-buffer))) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let (...) (save-current-buffer ... ... ...) (save-current-buffer ... ...))) (set-window-configuration wconfig))) (save-current-buffer (set-buffer cur-buf) (mapc #'markdown-live-preview-window-deserialize window-data) (let ((buf (get-file-buffer export-file))) (if buf (progn (kill-buffer buf)))) (if (and export-file (file-exists-p export-file) (eq markdown-live-preview-delete-export 'delete-on-export)) (progn (delete-file export-file))) markdown-live-preview-buffer))))
(let ((filename (markdown-live-preview-get-filename))) (if filename (progn (let* ((markdown-live-preview-currently-exporting t) (cur-buf (current-buffer)) (export-file (markdown-export filename)) (window-data (markdown-live-preview-window-serialize markdown-live-preview-buffer))) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ... ... ...)) (set-window-configuration wconfig))) (save-current-buffer (set-buffer cur-buf) (mapc #'markdown-live-preview-window-deserialize window-data) (let ((buf ...)) (if buf (progn ...))) (if (and export-file (file-exists-p export-file) (eq markdown-live-preview-delete-export ...)) (progn (delete-file export-file))) markdown-live-preview-buffer)))))
markdown-live-preview-export()
(markdown-display-buffer-other-window (markdown-live-preview-export))
(if (markdown-live-preview-get-filename) (markdown-display-buffer-other-window (markdown-live-preview-export)) (markdown-live-preview-mode -1) (user-error "Buffer %s does not visit a file" (current-buffer)))
(if markdown-live-preview-mode (if (markdown-live-preview-get-filename) (markdown-display-buffer-other-window (markdown-live-preview-export)) (markdown-live-preview-mode -1) (user-error "Buffer %s does not visit a file" (current-buffer))) (markdown-live-preview-remove))
(let ((last-message (current-message))) (setq markdown-live-preview-mode (cond ((eq arg 'toggle) (not markdown-live-preview-mode)) ((and (numberp arg) (< arg 1)) nil) (t t))) (if (boundp 'local-minor-modes) (progn (setq local-minor-modes (delq 'markdown-live-preview-mode local-minor-modes)) (if markdown-live-preview-mode (progn (setq local-minor-modes (cons 'markdown-live-preview-mode local-minor-modes)))))) (if markdown-live-preview-mode (if (markdown-live-preview-get-filename) (markdown-display-buffer-other-window (markdown-live-preview-export)) (markdown-live-preview-mode -1) (user-error "Buffer %s does not visit a file" (current-buffer))) (markdown-live-preview-remove)) (run-hooks 'markdown-live-preview-mode-hook (if markdown-live-preview-mode 'markdown-live-preview-mode-on-hook 'markdown-live-preview-mode-off-hook)) (if (called-interactively-p 'any) (progn nil (if (and (current-message) (not (equal last-message (current-message)))) nil (let ((local " in current buffer")) (message "Markdown-Live-Preview mode %sabled%s" (if markdown-live-preview-mode "en" "dis") local))))))
markdown-live-preview-mode(toggle)
funcall-interactively(markdown-live-preview-mode toggle)
command-execute(markdown-live-preview-mode)
Software Versions
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4