blob: 3ce868578f13ada1b224531d677a62346bdcc912 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
<?xml version="1.0" encoding="UTF-8"?>
<!--
/****************************************************************************
**
** Copyright (C) 2013 Digia Plc and/or its subsidiary(-ies).
** Contact: http://www.qt-project.org/legal
**
** This file is part of Qt Creator.
**
** Commercial License Usage
** Licensees holding valid commercial Qt licenses may use this file in
** accordance with the commercial license agreement provided with the
** Software or, alternatively, in accordance with the terms contained in
** a written agreement between you and Digia. For licensing terms and
** conditions see http://qt.digia.com/licensing. For further information
** use the contact form at http://qt.digia.com/contact-us.
**
** GNU Lesser General Public License Usage
** Alternatively, this file may be used under the terms of the GNU Lesser
** General Public License version 2.1 as published by the Free Software
** Foundation and appearing in the file LICENSE.LGPL included in the
** packaging of this file. Please review the following information to
** ensure the GNU Lesser General Public License version 2.1 requirements
** will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
**
** In addition, as a special exception, Digia gives you certain additional
** rights. These rights are described in the Digia Qt LGPL Exception
** version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
**
****************************************************************************/
-->
<externaltool id="vi">
<description>Opens the current file in vi</description>
<displayname>Edit with vi</displayname>
<category>Text</category>
<executable modifiesdocument="yes">
<path>osascript</path>
<input>
--Terminal opens a window by default when it is not running, so check
on applicationIsRunning(applicationName)
tell application "System Events" to count (every process whose name is applicationName)
return result is greater than 0
end applicationIsRunning
set terminalWasRunning to applicationIsRunning("Terminal")
set editorScript to "vi \"%{CurrentDocument:FilePath}\" +%{CurrentDocument:Row} +\"normal %{CurrentDocument:Column}|\"; exit"
tell application "Terminal"
--do script will open a new window if none given, but terminal already opens one if not running
if terminalWasRunning then
do script editorScript
else
do script editorScript in first window
end if
set currentTab to the result
set currentWindow to first window whose tabs contains currentTab
--set the geometry
set font size of current settings of currentTab to %{CurrentDocument:FontSize}
set number of columns of currentTab to %{CurrentDocument:ColumnCount}
set number of rows of currentTab to %{CurrentDocument:RowCount}
set position of currentWindow to {%{CurrentDocument:XPos}, %{CurrentDocument:YPos}}
activate
--make sure that the command has been called before waiting for it to end
try --window might have closed
repeat until currentTab's history contains editorScript
delay 0.2
end repeat
on error
return
end try
--wait for the command to end and close the window
repeat
delay 0.2
try --window might have closed
if busy of currentTab is false then
exit repeat
end if
on error
return
end try
end repeat
try --window might have closed
close currentWindow
end try
end tell
</input>
<workingdirectory>%{CurrentDocument:Path}</workingdirectory>
</executable>
</externaltool>
|