mac: get text from current skim pagemain

1 files changed, 21 insertions, 0 deletions

diff --git a/lib/doc/jao-mac.el b/lib/doc/jao-mac.el
index 1f325c7..ad11ea2 100644
--- a/lib/doc/jao-mac.el
+++ b/lib/doc/jao-mac.el
@@ -107,6 +107,27 @@
   (when-let* ((ps (jao-skim-current-doc)))
     (apply 'jao-open-doc ps)))
 
+(defvar jao-skim--current-page-text
+  (jao-mac-applescript-prepare
+   "tell application \"Skim\""
+   "return the text of the current page of the front document"
+   "end tell"))
+
+(defun jao-skim-page-text ()
+  (jao-mac-run-applescript jao-skim--current-page-text))
+
+(defun jao-skim-view-page-text ()
+  (interactive)
+  (when-let* ((ps (jao-skim-current-doc))
+              (p (car ps))
+              (n (cadr ps))
+              (txt (jao-skim-page-text))
+              (bn (format "*%s - %s - txt*" p n)))
+    (with-current-buffer (get-buffer-create bn)
+      (delete-region (point-min) (point-max))
+      (insert txt)
+      (pop-to-buffer (current-buffer)))))
+
 ;;; NetNewsWire
 
 (defvar jao-nnw--current-article-script