我的快捷指令 English
我写的快捷指令保存在 Shortcuts 文件夹内。
我使用的快捷指令保存在 collection 文件夹内。
我修改的快捷指令保存在 modified 文件夹内。
带有扩展名/文件格式 shortcut
的文件是由 快捷指令.app
导出的。
同样的,快捷指令也支持以这种文件格式导入。macOS 预览功能也支持这种格式。
导入导出方法:
- 打开快捷指令.app
- 点击菜单栏“文件”
- 点击“导入…”或“导出…”
搭配 Emacs 使用
;; 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")
)
(keymap-global-set "C-c M-o" #'my/siri-ocr)
;; }}}
搭配 Emacs 使用
;; Siri Shortcuts: Translate
;; {{{
(add-to-list 'display-buffer-alist
(cons "\\*Async Shell Command\\*.*" (cons #'display-buffer-no-window nil)))
(defun my/siri-translate ()
(interactive)
(let ((tempfile
(make-temp-file "siri-translate-" nil ".txt") ; temp file
))
(write-region (format "%s" (thing-at-point 'paragraph)) nil tempfile)
(shell-command (format "shortcuts run \"Translate File\" -i %s &" tempfile))
)
(do-applescript "tell application id \"org.gnu.Emacs\" to activate")
)
(keymap-global-set "C-c t" #'my/siri-translate)
;; }}}