From 460d921de8788a7ae8dfaebcf5aec0d776d3cbd5 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 13 Aug 2022 19:44:05 +0100 Subject: jao-doc-session: using it --- lib/eos/jao-afio.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'lib/eos') diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el index 306a1d5..98a8760 100644 --- a/lib/eos/jao-afio.el +++ b/lib/eos/jao-afio.el @@ -21,6 +21,7 @@ ;;; Code: (require 'cl-lib) +(require 'jao-doc-session) (defvar jao-open-doc-fun 'find-file) (defvar jao-afio-mail-function 'gnus) @@ -74,8 +75,8 @@ ;;;###autoload (defun jao-afio-open-pdf-session () (interactive) - (let ((jao-doc-view-inhibit-session-save t)) - (dolist (doc (jao-doc-view-session)) + (let ((jao-doc-session-inhibit-save t)) + (dolist (doc (jao-doc-session)) (when (and (file-exists-p doc) (y-or-n-p (format "Open %s? " doc))) (jao-open-doc doc) (other-window 1))) @@ -85,13 +86,11 @@ (interactive) (delete-other-windows) (split-window-right) - (let ((docs (cl-remove-if-not (lambda (b) - (with-current-buffer b (jao-doc-view--is-doc))) - (buffer-list)))) + (let ((docs (cl-remove-if-not 'jao-doc-session-is-doc (buffer-list)))) (if (car docs) (progn (switch-to-buffer (car docs)) (switch-to-buffer-other-window (or (cadr docs) (car docs)))) - (when (and (jao-doc-view-session) (y-or-n-p "Load saved session? ")) + (when (and (jao-doc-session) (y-or-n-p "Load saved session? ")) (jao-afio-open-pdf-session))))) (declare w3m "w3m") -- cgit v1.2.3