From mboxrd@z Thu Jan 1 00:00:00 1970 From: Chunyang Xu Subject: [PATCH] org-mac-link: Add autoload cookies for all commands Date: Wed, 16 Nov 2016 22:18:51 +0800 Message-ID: <87eg2becdw.fsf@xuchunyang.me> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:54786) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c71Yg-0003aM-Cn for emacs-orgmode@gnu.org; Wed, 16 Nov 2016 09:51:31 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1c71Yd-0008DE-8D for emacs-orgmode@gnu.org; Wed, 16 Nov 2016 09:51:30 -0500 Received: from smtpbg342.qq.com ([14.17.44.37]:46391) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1c71Yc-00089a-K1 for emacs-orgmode@gnu.org; Wed, 16 Nov 2016 09:51:27 -0500 Received: from ubuntu (unknown [180.126.64.58]) by esmtp4.qq.com (ESMTP) with SMTP id 0 for ; Wed, 16 Nov 2016 22:18:51 +0800 (CST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Hi, I would like to add autoload cookies for commands in org-mac-link.el, so I don't have to autoload them manually in my init.el. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-org-mac-link-Add-autoload-cookies-for-all-commands.patch >From 5e00fa82001b57051770f0e4854e03ece39cc68d Mon Sep 17 00:00:00 2001 From: Chunyang Xu Date: Wed, 16 Nov 2016 21:30:13 +0800 Subject: [PATCH] org-mac-link: Add autoload cookies for all commands --- contrib/lisp/org-mac-link.el | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el index ae2def3..f8a44c7 100644 --- a/contrib/lisp/org-mac-link.el +++ b/contrib/lisp/org-mac-link.el @@ -233,6 +233,7 @@ (setq return (shell-command-to-string cmd)) (concat "\"" (org-trim return) "\"")))) +;;;###autoload (defun org-mac-grab-link () "Prompt for an application to grab a link from. When done, go grab the link, and insert it at point." @@ -340,11 +341,13 @@ The links are of the form ::split::." "return links as string\n")))) (car (split-string result "[\r\n]+" t)))) +;;;###autoload (defun org-mac-firefox-get-frontmost-url () (interactive) (message "Applescript: Getting Firefox url...") (org-mac-paste-applescript-links (org-as-mac-firefox-get-frontmost-url))) +;;;###autoload (defun org-mac-firefox-insert-frontmost-url () (interactive) (insert (org-mac-firefox-get-frontmost-url))) @@ -378,11 +381,13 @@ The links are of the form ::split::." (replace-regexp-in-string "\s+-\s+Vimperator" "" (car (split-string result "[\r\n]+" t))))) +;;;###autoload (defun org-mac-vimperator-get-frontmost-url () (interactive) (message "Applescript: Getting Vimperator url...") (org-mac-paste-applescript-links (org-as-mac-vimperator-get-frontmost-url))) +;;;###autoload (defun org-mac-vimperator-insert-frontmost-url () (interactive) (insert (org-mac-vimperator-get-frontmost-url))) @@ -408,11 +413,13 @@ The links are of the form ::split::." (replace-regexp-in-string "^\"\\|\"$" "" (car (split-string result "[\r\n]+" t))))) +;;;###autoload (defun org-mac-chrome-get-frontmost-url () (interactive) (message "Applescript: Getting Chrome url...") (org-mac-paste-applescript-links (org-as-mac-chrome-get-frontmost-url))) +;;;###autoload (defun org-mac-chrome-insert-frontmost-url () (interactive) (insert (org-mac-chrome-get-frontmost-url))) @@ -430,12 +437,14 @@ The links are of the form ::split::." " return theUrl & \"::split::\" & theName & \"\n\"\n" "end tell\n"))) +;;;###autoload (defun org-mac-safari-get-frontmost-url () (interactive) (message "Applescript: Getting Safari url...") (org-mac-paste-applescript-links (org-as-mac-safari-get-frontmost-url))) +;;;###autoload (defun org-mac-safari-insert-frontmost-url () (interactive) (insert (org-mac-safari-get-frontmost-url))) @@ -461,11 +470,13 @@ The links are of the form ::split::." " return theLinkList as string\n" "end tell"))) +;;;###autoload (defun org-mac-together-get-selected () (interactive) (message "Applescript: Getting Togther items...") (org-mac-paste-applescript-links (as-get-selected-together-items))) +;;;###autoload (defun org-mac-together-insert-selected () (interactive) (insert (org-mac-together-get-selected))) @@ -486,11 +497,13 @@ The links are of the form ::split::." " return links as string\n" "end tell\n"))) +;;;###autoload (defun org-mac-finder-item-get-selected () (interactive) (message "Applescript: Getting Finder items...") (org-mac-paste-applescript-links (as-get-selected-finder-items))) +;;;###autoload (defun org-mac-finder-insert-selected () (interactive) (insert (org-mac-finder-item-get-selected))) @@ -516,11 +529,13 @@ The links are of the form ::split::." " return links as string\n" "end tell\n"))) +;;;###autoload (defun org-mac-addressbook-item-get-selected () (interactive) (message "Applescript: Getting Address Book items...") (org-mac-paste-applescript-links (as-get-selected-addressbook-items))) +;;;###autoload (defun org-mac-addressbook-insert-selected () (interactive) (insert (org-mac-addressbook-item-get-selected))) @@ -572,11 +587,13 @@ The links are of the form ::split::." "end tell\n" "return theLink as string\n"))) +;;;###autoload (defun org-mac-skim-get-page () (interactive) (message "Applescript: Getting Skim page link...") (org-mac-paste-applescript-links (as-get-skim-page-link))) +;;;###autoload (defun org-mac-skim-insert-page () (interactive) (insert (org-mac-skim-get-page))) @@ -623,11 +640,13 @@ The links are of the form ::split::." "set theResult to \"acrobat:\" & thePath & \"::\" & thePage & \"::split::\" & theTitle & \", p.\" & theLabel\n" "return theResult as string\n"))) +;;;###autoload (defun org-mac-acrobat-get-page () (interactive) (message "Applescript: Getting Acrobat page link...") (org-mac-paste-applescript-links (org-mac-as-get-acrobat-page-link))) +;;;###autoload (defun org-mac-acrobat-insert-page () (interactive) (insert (org-mac-acrobat-get-page))) @@ -691,6 +710,7 @@ The links are of the form ::split::." (buffer-string) "\n" t)) "")) +;;;###autoload (defun org-mac-outlook-message-get-links (&optional select-or-flag) "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 @@ -708,6 +728,7 @@ The Org-syntax text will be pushed to the kill ring, and also returned." (org-sh-get-flagged-outlook-mail) (error "Please select \"s\" or \"f\""))))) +;;;###autoload (defun org-mac-outlook-message-insert-selected () "Insert a link to the messages currently selected in Microsoft Outlook.app. This will use AppleScript to get the message-id and the subject @@ -716,6 +737,7 @@ of it." (interactive) (insert (org-mac-outlook-message-get-links "s"))) +;;;###autoload (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. If heading exists, delete all mac-outlook:// links within @@ -782,6 +804,7 @@ after heading." " return theLinkList as string\n" "end tell\n"))) +;;;###autoload (defun org-mac-evernote-note-insert-selected () "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 @@ -831,6 +854,7 @@ ring, and also return it." (message "Org Mac DEVONthink: looking for selected items...") (org-mac-paste-applescript-links (org-as-get-selected-devonthink-item))) +;;;###autoload (defun org-mac-devonthink-item-insert-selected () "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 @@ -890,6 +914,7 @@ This will use the command `open' with the message URL." "return theLinkList as string\n" "end tell"))) +;;;###autoload (defun org-mac-message-get-links (&optional select-or-flag) "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 @@ -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)) (t (error "Please select \"s\" or \"f\""))))) +;;;###autoload (defun org-mac-message-insert-selected () "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 @@ -916,6 +942,7 @@ active mail in Mail.app and make a link out of it." ;; The following line is for backward compatibility (defalias 'org-mac-message-insert-link 'org-mac-message-insert-selected) +;;;###autoload (defun org-mac-message-insert-flagged (org-buffer org-heading) "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 -- 2.7.4 --=-=-=--