Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 53 lines (37 sloc) 1.807 kB
f052c98 @claviclaws Added compiled AppleScripts to repository. Also added org-link-tabs
authored
1 (*
2 org-link.scpt --- extract an org-protocol links from all open tabs in the front Safari window
3
4 Copyright (C) 2009, 2010 Christopher Suckling
5
6 Author: Christopher Suckling <suckling at gmail dot com>
7
8 This file is Free Software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
11 any later version.
12
13 It is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
16 License for more details.
17
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs; see the file COPYING. If not, write to the
20 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
21 Boston, MA 02110-1301, USA.
22
23 Vesion: 0.634
24
25 Commentary
26
27 Part of org-mac-protocol
28
29 Installation
30
31 1) Open in AppleScript Editor
32 2) Save as File Format: Script in ~/Library/Scripts/
33
34 Please see org-mac-protocol.org for full installation and usage instructions
35 *)
36
37 set ASTID to AppleScript's text item delimiters
38 set text item delimiters to {":"}
39 set myPath to (path to me) as text
40 set orgQSLib to (text items 1 through -2 of myPath) & "orgQSLib:" as text
41 set AppleScript's text item delimiters to ASTID
42
43 set getEmacsLib to (load script file ((orgQSLib as text) & "getEmacsClient.scpt"))
44 set getItemMetaLib to (load script file ((orgQSLib as text) & "getItemMetadata.scpt"))
45 global escapeLib
46 set escapeLib to ((orgQSLib as text) & "escape.rb")
47 set theProtocol to "org-protocol:/safari-tabs:/"
48
49 set theApp to "Safari-Tabs"
50
51 set theScript to getEmacsLib's getEmacsClient() & " " & getItemMetaLib's getItemMetadata(theProtocol, theApp)
52
53 do shell script of theScript
Something went wrong with that request. Please try again.