jao-pdf: circular require fix

1 files changed, 5 insertions, 22 deletions

diff --git a/init.el b/init.el
index e54e43f..bbd4e0c 100644
--- a/init.el
+++ b/init.el
@@ -954,22 +954,6 @@
   (jao-define-attached-buffer "^\\*xref\\*"))
 
 ;;;; same mode
-(defun jao-buffer-same-mode (&optional mode pre-fn switch-fn)
-  (interactive)
-  (let* ((mode (or mode major-mode))
-         (modes (if (symbolp mode) (list mode) mode))
-         (pred `(lambda (b)
-                  (let ((b (get-buffer (if (consp b) (car b) b))))
-                    (member (buffer-local-value 'major-mode b)
-                            ',modes))))
-         (buff (read-buffer "Buffer: " nil t pred)))
-    (when pre-fn (funcall pre-fn))
-    (if switch-fn (funcall switch-fn buff) (switch-to-buffer buff))))
-
-(defun jao-buffer-same-mode-cmd (&optional pop)
-  (interactive "P")
-  (jao-buffer-same-mode nil nil (and pop #'pop-to-buffer)))
-
 (global-set-key (kbd "C-c C-b") #'jao-buffer-same-mode-cmd)
 
 ;;;; projects
@@ -2064,6 +2048,11 @@
   (interactive)
   (sieve-manage "imap.mailbox.org"))
 
+(defun jao-select-pdf ()
+  (interactive)
+  (jao-buffer-same-mode '(pdf-view-mode doc-view-mode org-mode)
+                        #'jao-afio-goto-docs))
+
 (jao-d-l
  (progn
    (defun jao-open-firefox () (interactive) (jao-mac-open "-a Firefox"))
@@ -2099,12 +2088,6 @@
        ("o" "open doc" jao-open-doc)
        ("c" "view cache" doc-view-dired-cache)
        ("s" "spotlight" jao-transient-spotlight)]
-      ;; ["External"
-      ;;  ("xn" "browse NNW article" jao-nnw-browse-current-article)
-      ;;  ("xs" "browse safary article" jao-safari-internal-browse)
-      ;;  ("xk" "open skim doc" jao-open-skim-doc-in-emacs)
-      ;;  ("xe" "choose an emoji" ns-do-show-character-palette
-      ;;   :if display-graphic-p)]
       ["Blog"
        ("bn" "create post" jao-org-static-blog-create-new-post)
        ("bd" "create draft" jao-org-static-blog-create-new-draft)