tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-mac-link: Add autoload cookies for all commands 

* contrib/lisp/org-mac-link.el (org-mac-grab-link):
(org-mac-firefox-get-frontmost-url):
(org-mac-firefox-insert-frontmost-url):
(org-mac-vimperator-get-frontmost-url):
(org-mac-vimperator-insert-frontmost-url):
(org-mac-chrome-get-frontmost-url):
(org-mac-chrome-insert-frontmost-url):
(org-mac-safari-get-frontmost-url):
(org-mac-safari-insert-frontmost-url):
(org-mac-together-get-selected):
(org-mac-together-insert-selected):
(org-mac-finder-item-get-selected):
(org-mac-finder-insert-selected):
(org-mac-addressbook-item-get-selected):
(org-mac-addressbook-insert-selected):
(org-mac-skim-get-page):
(org-mac-skim-insert-page):
(org-mac-acrobat-get-page):
(org-mac-acrobat-insert-page):
(org-mac-outlook-message-get-links):
(org-mac-outlook-message-insert-selected):
(org-mac-outlook-message-insert-flagged):
(org-mac-evernote-note-insert-selected):
(org-mac-devonthink-item-insert-selected):
(org-mac-message-get-links):
(org-mac-message-insert-selected):
(org-mac-message-insert-flagged): Add autoload cookie.
This commit is contained in:
Chunyang Xu 2016-11-16 22:18:51 +08:00 committed by Nicolas Goaziou
parent dffd30b24e
commit 4ea7ffe50d
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
contrib/lisp/org-mac-link.el
View File

@ -233,6 +233,7 @@
(setq return (shell-command-to-string cmd)) (setq return (shell-command-to-string cmd))
(concat "\"" (org-trim return) "\"")))) (concat "\"" (org-trim return) "\""))))
;;;###autoload
(defun org-mac-grab-link () (defun org-mac-grab-link ()
"Prompt for an application to grab a link from. "Prompt for an application to grab a link from.
When done, go grab the link, and insert it at point." When done, go grab the link, and insert it at point."
@ -340,11 +341,13 @@ The links are of the form <link>::split::<name>."
"return links as string\n")))) "return links as string\n"))))
(car (split-string result "[\r\n]+" t)))) (car (split-string result "[\r\n]+" t))))
;;;###autoload
(defun org-mac-firefox-get-frontmost-url () (defun org-mac-firefox-get-frontmost-url ()
(interactive) (interactive)
(message "Applescript: Getting Firefox url...") (message "Applescript: Getting Firefox url...")
(org-mac-paste-applescript-links (org-as-mac-firefox-get-frontmost-url))) (org-mac-paste-applescript-links (org-as-mac-firefox-get-frontmost-url)))
;;;###autoload
(defun org-mac-firefox-insert-frontmost-url () (defun org-mac-firefox-insert-frontmost-url ()
(interactive) (interactive)
(insert (org-mac-firefox-get-frontmost-url))) (insert (org-mac-firefox-get-frontmost-url)))
@ -378,11 +381,13 @@ The links are of the form <link>::split::<name>."
(replace-regexp-in-string (replace-regexp-in-string
"\s+-\s+Vimperator" "" (car (split-string result "[\r\n]+" t))))) "\s+-\s+Vimperator" "" (car (split-string result "[\r\n]+" t)))))
;;;###autoload
(defun org-mac-vimperator-get-frontmost-url () (defun org-mac-vimperator-get-frontmost-url ()
(interactive) (interactive)
(message "Applescript: Getting Vimperator url...") (message "Applescript: Getting Vimperator url...")
(org-mac-paste-applescript-links (org-as-mac-vimperator-get-frontmost-url))) (org-mac-paste-applescript-links (org-as-mac-vimperator-get-frontmost-url)))
;;;###autoload
(defun org-mac-vimperator-insert-frontmost-url () (defun org-mac-vimperator-insert-frontmost-url ()
(interactive) (interactive)
(insert (org-mac-vimperator-get-frontmost-url))) (insert (org-mac-vimperator-get-frontmost-url)))
@ -408,11 +413,13 @@ The links are of the form <link>::split::<name>."
(replace-regexp-in-string (replace-regexp-in-string
"^\"\\|\"$" "" (car (split-string result "[\r\n]+" t))))) "^\"\\|\"$" "" (car (split-string result "[\r\n]+" t)))))
;;;###autoload
(defun org-mac-chrome-get-frontmost-url () (defun org-mac-chrome-get-frontmost-url ()
(interactive) (interactive)
(message "Applescript: Getting Chrome url...") (message "Applescript: Getting Chrome url...")
(org-mac-paste-applescript-links (org-as-mac-chrome-get-frontmost-url))) (org-mac-paste-applescript-links (org-as-mac-chrome-get-frontmost-url)))
;;;###autoload
(defun org-mac-chrome-insert-frontmost-url () (defun org-mac-chrome-insert-frontmost-url ()
(interactive) (interactive)
(insert (org-mac-chrome-get-frontmost-url))) (insert (org-mac-chrome-get-frontmost-url)))
@ -430,12 +437,14 @@ The links are of the form <link>::split::<name>."
" return theUrl & \"::split::\" & theName & \"\n\"\n" " return theUrl & \"::split::\" & theName & \"\n\"\n"
"end tell\n"))) "end tell\n")))
;;;###autoload
(defun org-mac-safari-get-frontmost-url () (defun org-mac-safari-get-frontmost-url ()
(interactive) (interactive)
(message "Applescript: Getting Safari url...") (message "Applescript: Getting Safari url...")
(org-mac-paste-applescript-links (org-mac-paste-applescript-links
(org-as-mac-safari-get-frontmost-url))) (org-as-mac-safari-get-frontmost-url)))
;;;###autoload
(defun org-mac-safari-insert-frontmost-url () (defun org-mac-safari-insert-frontmost-url ()
(interactive) (interactive)
(insert (org-mac-safari-get-frontmost-url))) (insert (org-mac-safari-get-frontmost-url)))
@ -461,11 +470,13 @@ The links are of the form <link>::split::<name>."
" return theLinkList as string\n" " return theLinkList as string\n"
"end tell"))) "end tell")))
;;;###autoload
(defun org-mac-together-get-selected () (defun org-mac-together-get-selected ()
(interactive) (interactive)
(message "Applescript: Getting Togther items...") (message "Applescript: Getting Togther items...")
(org-mac-paste-applescript-links (as-get-selected-together-items))) (org-mac-paste-applescript-links (as-get-selected-together-items)))
;;;###autoload
(defun org-mac-together-insert-selected () (defun org-mac-together-insert-selected ()
(interactive) (interactive)
(insert (org-mac-together-get-selected))) (insert (org-mac-together-get-selected)))
@ -486,11 +497,13 @@ The links are of the form <link>::split::<name>."
" return links as string\n" " return links as string\n"
"end tell\n"))) "end tell\n")))
;;;###autoload
(defun org-mac-finder-item-get-selected () (defun org-mac-finder-item-get-selected ()
(interactive) (interactive)
(message "Applescript: Getting Finder items...") (message "Applescript: Getting Finder items...")
(org-mac-paste-applescript-links (as-get-selected-finder-items))) (org-mac-paste-applescript-links (as-get-selected-finder-items)))
;;;###autoload
(defun org-mac-finder-insert-selected () (defun org-mac-finder-insert-selected ()
(interactive) (interactive)
(insert (org-mac-finder-item-get-selected))) (insert (org-mac-finder-item-get-selected)))
@ -516,11 +529,13 @@ The links are of the form <link>::split::<name>."
" return links as string\n" " return links as string\n"
"end tell\n"))) "end tell\n")))
;;;###autoload
(defun org-mac-addressbook-item-get-selected () (defun org-mac-addressbook-item-get-selected ()
(interactive) (interactive)
(message "Applescript: Getting Address Book items...") (message "Applescript: Getting Address Book items...")
(org-mac-paste-applescript-links (as-get-selected-addressbook-items))) (org-mac-paste-applescript-links (as-get-selected-addressbook-items)))
;;;###autoload
(defun org-mac-addressbook-insert-selected () (defun org-mac-addressbook-insert-selected ()
(interactive) (interactive)
(insert (org-mac-addressbook-item-get-selected))) (insert (org-mac-addressbook-item-get-selected)))
@ -572,11 +587,13 @@ The links are of the form <link>::split::<name>."
"end tell\n" "end tell\n"
"return theLink as string\n"))) "return theLink as string\n")))
;;;###autoload
(defun org-mac-skim-get-page () (defun org-mac-skim-get-page ()
(interactive) (interactive)
(message "Applescript: Getting Skim page link...") (message "Applescript: Getting Skim page link...")
(org-mac-paste-applescript-links (as-get-skim-page-link))) (org-mac-paste-applescript-links (as-get-skim-page-link)))
;;;###autoload
(defun org-mac-skim-insert-page () (defun org-mac-skim-insert-page ()
(interactive) (interactive)
(insert (org-mac-skim-get-page))) (insert (org-mac-skim-get-page)))
@ -623,11 +640,13 @@ The links are of the form <link>::split::<name>."
"set theResult to \"acrobat:\" & thePath & \"::\" & thePage & \"::split::\" & theTitle & \", p.\" & theLabel\n" "set theResult to \"acrobat:\" & thePath & \"::\" & thePage & \"::split::\" & theTitle & \", p.\" & theLabel\n"
"return theResult as string\n"))) "return theResult as string\n")))
;;;###autoload
(defun org-mac-acrobat-get-page () (defun org-mac-acrobat-get-page ()
(interactive) (interactive)
(message "Applescript: Getting Acrobat page link...") (message "Applescript: Getting Acrobat page link...")
(org-mac-paste-applescript-links (org-mac-as-get-acrobat-page-link))) (org-mac-paste-applescript-links (org-mac-as-get-acrobat-page-link)))
;;;###autoload
(defun org-mac-acrobat-insert-page () (defun org-mac-acrobat-insert-page ()
(interactive) (interactive)
(insert (org-mac-acrobat-get-page))) (insert (org-mac-acrobat-get-page)))
@ -691,6 +710,7 @@ The links are of the form <link>::split::<name>."
(buffer-string) "\n" t)) (buffer-string) "\n" t))
"")) ""))
;;;###autoload
(defun org-mac-outlook-message-get-links (&optional select-or-flag) (defun org-mac-outlook-message-get-links (&optional select-or-flag)
"Create links to the messages currently selected or flagged in Microsoft Outlook.app. "Create links to the messages currently selected or flagged in Microsoft Outlook.app.
This will use AppleScript to get the message-id and the subject of the This will use AppleScript to get the message-id and the subject of the
@ -708,6 +728,7 @@ The Org-syntax text will be pushed to the kill ring, and also returned."
(org-sh-get-flagged-outlook-mail) (org-sh-get-flagged-outlook-mail)
(error "Please select \"s\" or \"f\""))))) (error "Please select \"s\" or \"f\"")))))
;;;###autoload
(defun org-mac-outlook-message-insert-selected () (defun org-mac-outlook-message-insert-selected ()
"Insert a link to the messages currently selected in Microsoft Outlook.app. "Insert a link to the messages currently selected in Microsoft Outlook.app.
This will use AppleScript to get the message-id and the subject This will use AppleScript to get the message-id and the subject
@ -716,6 +737,7 @@ of it."
(interactive) (interactive)
(insert (org-mac-outlook-message-get-links "s"))) (insert (org-mac-outlook-message-get-links "s")))
;;;###autoload
(defun org-mac-outlook-message-insert-flagged (org-buffer org-heading) (defun org-mac-outlook-message-insert-flagged (org-buffer org-heading)
"Asks for an org buffer and a heading within it, and replace message links. "Asks for an org buffer and a heading within it, and replace message links.
If heading exists, delete all mac-outlook:// links within If heading exists, delete all mac-outlook:// links within
@ -782,6 +804,7 @@ after heading."
" return theLinkList as string\n" " return theLinkList as string\n"
"end tell\n"))) "end tell\n")))
;;;###autoload
(defun org-mac-evernote-note-insert-selected () (defun org-mac-evernote-note-insert-selected ()
"Insert a link to the notes currently selected in Evernote.app. "Insert a link to the notes currently selected in Evernote.app.
This will use AppleScript to get the note id and the title of the This will use AppleScript to get the note id and the title of the
@ -831,6 +854,7 @@ ring, and also return it."
(message "Org Mac DEVONthink: looking for selected items...") (message "Org Mac DEVONthink: looking for selected items...")
(org-mac-paste-applescript-links (org-as-get-selected-devonthink-item))) (org-mac-paste-applescript-links (org-as-get-selected-devonthink-item)))
;;;###autoload
(defun org-mac-devonthink-item-insert-selected () (defun org-mac-devonthink-item-insert-selected ()
"Insert a link to the item(s) currently selected in DEVONthink Pro Office. "Insert a link to the item(s) currently selected in DEVONthink Pro Office.
This will use AppleScript to get the `uuid'(s) and the name(s) of the This will use AppleScript to get the `uuid'(s) and the name(s) of the
@ -890,6 +914,7 @@ This will use the command `open' with the message URL."
"return theLinkList as string\n" "return theLinkList as string\n"
"end tell"))) "end tell")))
;;;###autoload
(defun org-mac-message-get-links (&optional select-or-flag) (defun org-mac-message-get-links (&optional select-or-flag)
"Create links to the messages currently selected or flagged in Mail.app. "Create links to the messages currently selected or flagged in Mail.app.
This will use AppleScript to get the message-id and the subject of the This will use AppleScript to get the message-id and the subject of the
@ -906,6 +931,7 @@ The Org-syntax text will be pushed to the kill ring, and also returned."
((string= select-or-flag "f") (org-as-get-flagged-mail)) ((string= select-or-flag "f") (org-as-get-flagged-mail))
(t (error "Please select \"s\" or \"f\""))))) (t (error "Please select \"s\" or \"f\"")))))
;;;###autoload
(defun org-mac-message-insert-selected () (defun org-mac-message-insert-selected ()
"Insert a link to the messages currently selected in Mail.app. "Insert a link to the messages currently selected in Mail.app.
This will use AppleScript to get the message-id and the subject of the This will use AppleScript to get the message-id and the subject of the
@ -916,6 +942,7 @@ active mail in Mail.app and make a link out of it."
;; The following line is for backward compatibility ;; The following line is for backward compatibility
(defalias 'org-mac-message-insert-link 'org-mac-message-insert-selected) (defalias 'org-mac-message-insert-link 'org-mac-message-insert-selected)
;;;###autoload
(defun org-mac-message-insert-flagged (org-buffer org-heading) (defun org-mac-message-insert-flagged (org-buffer org-heading)
"Asks for an org buffer and a heading within it, and replace message links. "Asks for an org buffer and a heading within it, and replace message links.
If heading exists, delete all message:// links within heading's first If heading exists, delete all message:// links within heading's first