【技巧分享】 Emacs 调用 macOS OCR

Emacs-Lisp
, , ,
7

稍微修改了一下，支持在 echo area 显示 OCR 结果。

(use-package simple
  :ensure nil
  :bind
  ("C-c H-o" . my/siri-ocr)
  :config
  ;; Siri Shortcuts: OCR
  (defun my/siri-ocr ()
    (interactive)
    (shell-command "shortcuts run \"OCR Selected Area\"")
    (do-applescript "tell application id \"org.gnu.Emacs\" to activate")
    (shell-command "pbpaste")
    )
  )

async-shell-command 的结果总是创建新 buffer，不如 shell-command 好配置。

BONUS

如果你需要翻译：