On 30 Nov 2010, at 03:53, Timothy Brown wrote:
I think the intended behavior i'm confused about is remember coming upinstead of the new capture functionality. I assume that has to do withthis line here in the Applescript:set theProtocol to "org-protocol:/mac-remember:/y/" but i'm not sure how to modify this to forego the older remember functionality and use the newer capture functionality.
That would require new code in org-mac-protocol.el. mac-remember is a new protocol implemented in that module, which uses the remember framework. Switching to capture would require defining a new protocol mac-capture and implement it.
I have actually started doing that and my current version is already usable. But I am not happy yet with some of the details. If you want to try it, my version of org-mac-protocol.el is attached, as well as org-capture.scpt that calls it.
Konrad.
org-mac-protocol.el
Description: Binary data
(*org-capture.scpt --- make a note in an org-mode file, linking to the front
document and any selected text Copyright (C) 2009, 2010 Christopher Suckling Author: Christopher Suckling <suckling at gmail dot com> This file is Free Software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. It is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. Vesion: 0.634 Commentary Part of org-mac-protocol Installation 1) Open in AppleScript Editor 2) Save as File Format: Script in ~/Library/Scripts/Please see org-mac-protocol.org for full installation and usage instructions
*) set ASTID to AppleScript's text item delimiters set text item delimiters to {":"} set myPath to (path to me) as textset orgQSLib to (text items 1 through -2 of myPath) & "orgQSLib:" as text
set AppleScript's text item delimiters to ASTIDset getEmacsLib to (load script file ((orgQSLib as text) & "getEmacsClient.scpt")) set getItemMetaLib to (load script file ((orgQSLib as text) & "getItemMetadata.scpt"))
global escapeLib set escapeLib to ((orgQSLib as text) & "escape.rb") set theProtocol to "org-protocol:/mac-capture:/w/" tell application "System Events" set theApp to item 1 of (get name of processes whose frontmost is true) end tellset theScript to getEmacsLib's getEmacsClient() & " " & getItemMetaLib's getItemMetadata(theProtocol, theApp)
do shell script theScript
_______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode