From b7902ec1cd8263442baac5450d4153f6dd341ab3 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 16 Apr 2021 00:16:14 +0100 Subject: one of these days we'll have working zathura sessions --- lib/doc/jao-doc-view.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'lib') diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el index f7984f0..0687518 100644 --- a/lib/doc/jao-doc-view.el +++ b/lib/doc/jao-doc-view.el @@ -32,9 +32,11 @@ (defvar jao-doc-view-session-file "~/.emacs.d/cache/doc-view-session.eld") (defvar-local jao-doc-view--is-pdf nil) -(defun jao-doc-view-session-mark () (setq-local jao-doc-view--is-pdf t)) +(defun jao-doc-view-session-mark (path) (setq-local jao-doc-view--is-pdf path)) (defun jao-doc-view--is-pdf () - (or jao-doc-view--is-pdf (derived-mode-p 'doc-view-mode 'pdf-view-mode))) + (or jao-doc-view--is-pdf + (when (derived-mode-p 'doc-view-mode 'pdf-view-mode) + (buffer-file-name)))) (defun jao-doc-view--read-file (file) (let ((buff (find-file-noselect file))) @@ -59,11 +61,11 @@ (cb (when skip-current (current-buffer)))) (dolist (b (buffer-list)) (with-current-buffer b - (when (and (jao-doc-view--is-pdf) (not (equalp cb b))) - (add-to-list 'docs (buffer-file-name))))) + (when-let (fn (and (not (equalp cb b)) (jao-doc-view--is-pdf))) + (add-to-list 'docs fn)))) (when (> (length docs) 0) - (jao-doc-view--save-to-file jao-doc-view-session-file docs)) - (message "%s docs saved" (length docs)))) + (jao-doc-view--save-to-file jao-doc-view-session-file docs) + (message "%s docs saved" (length docs))))) (defun jao-doc-view--save-session-1 () (when (jao-doc-view--is-pdf) (jao-doc-view-save-session t))) -- cgit v1.2.3