From f9bc7e463527604fa53c25c14b5cbd26f40d08ab Mon Sep 17 00:00:00 2001 From: luhuaei Date: Sat, 4 Apr 2020 01:16:30 +0800 Subject: [PATCH] eaf-interleave: tidy code --- app/interleave/eaf-interleave.el | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/app/interleave/eaf-interleave.el b/app/interleave/eaf-interleave.el index 0d9cc36..459c51b 100644 --- a/app/interleave/eaf-interleave.el +++ b/app/interleave/eaf-interleave.el @@ -192,11 +192,6 @@ SPLIT-WINDOW is a function that actually splits the window, so it must be either (insert "#+INTERLEAVE_PDF: " pdf-file-name))) pdf-file-name)) -(defun eaf-interleave--eaf-open-pdf (pdf-file-name) - "Use EAF PdfViewer open this pdf-file-name document." - (eaf-open pdf-file-name) - (add-hook 'eaf-pdf-viewer-hook 'eaf-interleave-pdf-mode)) - (defun eaf-interleave--headline-pdf-path (buffer) "Return the INTERLEAVE_PDF property of the current headline in BUFFER." (with-current-buffer buffer @@ -273,16 +268,6 @@ It (possibly) narrows the subtree when found." (recenter))) point))) -(defun eaf-interleave--pdf-viewer-current-page (url) - "get current page index." - (let ((id (buffer-local-value 'eaf--buffer-id (eaf-interleave--find-buffer url)))) - (string-to-number (eaf-call "call_function" id "current_page")))) - -(defun eaf-interleave--pdf-viewer-goto-page (url page) - "goto page" - (let ((id (buffer-local-value 'eaf--buffer-id (eaf-interleave--find-buffer url)))) - (eaf-call "handle_input_message" id "jump_page" page))) - (defun eaf-interleave-sync-previous-note () "Move to the previous set of notes. This show the previous notes and synchronizes the PDF to the right page number." @@ -521,6 +506,11 @@ SORT-ORDER is either 'asc or 'desc." ('user-error nil))) ;; utils +(defun eaf-interleave--eaf-open-pdf (pdf-file-name) + "Use EAF PdfViewer open this pdf-file-name document." + (eaf-open pdf-file-name) + (add-hook 'eaf-pdf-viewer-hook 'eaf-interleave-pdf-mode)) + (defun eaf-interleave--find-buffer (url) "find EAF buffer base url" (let (current-buffer) @@ -540,5 +530,15 @@ SORT-ORDER is either 'asc or 'desc." (let ((buffer (eaf-interleave--find-buffer url))) (kill-buffer buffer))) +(defun eaf-interleave--pdf-viewer-current-page (url) + "get current page index." + (let ((id (buffer-local-value 'eaf--buffer-id (eaf-interleave--find-buffer url)))) + (string-to-number (eaf-call "call_function" id "current_page")))) + +(defun eaf-interleave--pdf-viewer-goto-page (url page) + "goto page" + (let ((id (buffer-local-value 'eaf--buffer-id (eaf-interleave--find-buffer url)))) + (eaf-call "handle_input_message" id "jump_page" page))) + (provide 'eaf-interleave) ;;; interleave.el ends here