[elpa] externals/doc-toc 06de33f511 70/84: Fix pdf-view-current-page macro not function

[ELPA Syncer]

branch: externals/doc-toc
commit 06de33f5113c8ce136e08f1ff9852abad7677bac
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Fix pdf-view-current-page macro not function
---
 toc-mode.el | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

diff --git a/toc-mode.el b/toc-mode.el
index 08adc9b4f7..eae96dc5fa 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -269,7 +269,7 @@ document's directory. You will be prompted to enter the 
LEVEL
 number. The highest level should have number 1, the next leve
 number 2 etc."
   (interactive "nWhich level you are setting (number): ")
-  (let* ((page (pdf-view-current-page))
+  (let* ((page (eval (pdf-view-current-page)))
          (filename (url-filename (url-generic-parse-url buffer-file-name)))
          (pdfxmeta-result (shell-command
                            (format "pdfxmeta --auto %s --page %s '%s' \"%s\" 
>> recipe.toml"
@@ -978,6 +978,33 @@ The text of the current buffer is passed as source input 
to either the
     (cond ((string= ".pdf" ext) (toc--add-to-pdf))
           ((string= ".djvu" ext) (toc--add-to-djvu)))))
 
+(defun toc--source-to-handyoutliner ()
+  " "
+  (interactive)
+  (goto-char (point-min))
+  (while (not (eobp))
+    (let ((num (thing-at-point 'number)))
+      (delete-char 2)
+      (dotimes (_x num) (insert "\t"))
+      (re-search-forward "[0-9]+")
+      (let ((page (match-string 0)))
+        (replace-match "")
+        (delete-char 1)
+        (move-end-of-line 1)
+        (insert " ")
+        (insert page)
+      (forward-line)))
+    ))
+  ;; (goto-char (point-min))
+  ;; (while (not (eobp))
+  ;;   (re-search-forward "[0-9]+")
+  ;;   (let ((page (match-string 0)))
+  ;;     (replace-match "")
+  ;;     (delete-char 1)
+  ;;     (move-end-of-line 1)
+  ;;     (insert " ")
+  ;;     (insert page)
+  ;;     (forward-line))))
 
 (provide 'toc-mode)