diff options
Diffstat (limited to 'lib/doc/jao-doc-view.el')
| -rw-r--r-- | lib/doc/jao-doc-view.el | 21 |
1 files changed, 4 insertions, 17 deletions
diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el index a55d477..cce158e 100644 --- a/lib/doc/jao-doc-view.el +++ b/lib/doc/jao-doc-view.el @@ -44,25 +44,12 @@ (defun jao-doc-view--enable-imenu (&optional file-name goto-page) (setq-local imenu-create-index-function #'jao-doc-view--imenu-create-index jao-doc-view--imenu-file (or file-name jao-doc-view--imenu-file) - jao-doc-view--goer (or goto-page 'jao-doc-view-goto-page)) - (imenu-add-to-menubar "PDF outline")) + jao-doc-view--goer (or goto-page 'jao-doc-view-goto-page))) (defun jao-doc-view--imenu-create-index () - (let (index) - (dolist (item (or jao--pdf-outline - (setq jao--pdf-outline - (jao-pdf-outline jao-doc-view--imenu-file)))) - (let-alist item - (let* ((lvl (make-string (max 0 (1- .level)) ?.)) - (title (format "%s%s (%s)" lvl .title .page))) - (push `(,title 0 jao-doc-view--go ,item) index)))) - (nreverse index))) - -(defun jao-doc-view--go (&rest args) - (when-let (item (car (last args))) - (let-alist item (funcall jao-doc-view--goer .page)))) - -(add-hook 'doc-view-mode-hook #'jao-doc-view--enable-imenu) + (jao-pdf-imenu-index #'jao-doc-view--goer #jao-doc-view--imenu-file)) + +(add-hook 'doc-view-mode-hook #'jao-pdf-set-up-imenu) ;;; Page trailing (defvar-local jao-doc-view--trail-back ()) |