diff options
| author | jao <jao@gnu.org> | 2021-04-16 00:16:14 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-04-16 00:16:14 +0100 |
| commit | b7902ec1cd8263442baac5450d4153f6dd341ab3 (patch) | |
| tree | 9359745732cc0eb99297da438c89475f34981248 /lib/doc | |
| parent | 3c6e40cfe291558a5d041201d65dd1fef58d7a82 (diff) | |
| download | elibs-b7902ec1cd8263442baac5450d4153f6dd341ab3.tar.gz elibs-b7902ec1cd8263442baac5450d4153f6dd341ab3.tar.bz2 | |
one of these days we'll have working zathura sessions
Diffstat (limited to 'lib/doc')
| -rw-r--r-- | lib/doc/jao-doc-view.el | 14 |
1 files changed, 8 insertions, 6 deletions
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))) |