author | wenzelm |
Fri, 23 Dec 2016 15:53:53 +0100 | |
changeset 64663 | 4c9fb4d4bca3 |
parent 64662 | 5a2c15faf89c |
child 64664 | 951507563033 |
permissions | -rw-r--r-- |
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
1 |
/* Title: Tools/jEdit/src/jedit_editor.scala |
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
2 |
Author: Makarius |
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
3 |
|
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
4 |
PIDE editor operations for jEdit. |
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
5 |
*/ |
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
6 |
|
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
7 |
package isabelle.jedit |
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
8 |
|
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
9 |
|
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
10 |
import isabelle._ |
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
11 |
|
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
12 |
|
54706 | 13 |
import java.io.{File => JFile} |
14 |
||
58545
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
15 |
import org.gjt.sp.jedit.{jEdit, View, Buffer} |
54706 | 16 |
import org.gjt.sp.jedit.browser.VFSBrowser |
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
17 |
|
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
18 |
|
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
19 |
class JEdit_Editor extends Editor[View] |
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
20 |
{ |
52977
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
21 |
/* session */ |
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
22 |
|
52980 | 23 |
override def session: Session = PIDE.session |
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
24 |
|
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
25 |
// owned by GUI thread |
57611
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
26 |
private var removed_nodes = Set.empty[Document.Node.Name] |
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
27 |
|
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
28 |
def remove_node(name: Document.Node.Name): Unit = |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
29 |
GUI_Thread.require { removed_nodes += name } |
57611
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
30 |
|
61728
5f5ff1eab407
double flush to ensure persistent "state" output is reset;
wenzelm
parents:
61660
diff
changeset
|
31 |
override def flush(hidden: Boolean = false) |
52974 | 32 |
{ |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
33 |
GUI_Thread.require {} |
52974 | 34 |
|
55783 | 35 |
val doc_blobs = PIDE.document_blobs() |
57611
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
36 |
val models = PIDE.document_models() |
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
37 |
|
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
38 |
val removed = removed_nodes; removed_nodes = Set.empty |
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
39 |
val removed_perspective = |
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
40 |
(removed -- models.iterator.map(_.node_name)).toList.map( |
57615
df1b3452d71c
more explicit discrimination of empty nodes -- suppress from Theories panel;
wenzelm
parents:
57612
diff
changeset
|
41 |
name => (name, Document.Node.no_perspective_text)) |
57611
b6256ea3b7c5
proper change of perspective for removed nodes (stemming from closed buffers);
wenzelm
parents:
56770
diff
changeset
|
42 |
|
61728
5f5ff1eab407
double flush to ensure persistent "state" output is reset;
wenzelm
parents:
61660
diff
changeset
|
43 |
val edits = models.flatMap(_.flushed_edits(hidden, doc_blobs)) ::: removed_perspective |
61544 | 44 |
session.update(doc_blobs, edits) |
52974 | 45 |
} |
46 |
||
64524
e6a3c55b929b
explicit option editor_generated_input_delay, which is more aggressive by default;
wenzelm
parents:
64521
diff
changeset
|
47 |
private val delay1_flush = |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
48 |
GUI_Thread.delay_last(PIDE.options.seconds("editor_input_delay")) { flush() } |
54461 | 49 |
|
64524
e6a3c55b929b
explicit option editor_generated_input_delay, which is more aggressive by default;
wenzelm
parents:
64521
diff
changeset
|
50 |
private val delay2_flush = |
e6a3c55b929b
explicit option editor_generated_input_delay, which is more aggressive by default;
wenzelm
parents:
64521
diff
changeset
|
51 |
GUI_Thread.delay_first(PIDE.options.seconds("editor_generated_input_delay")) { flush() } |
64521
1aef5a0e18d7
delay_first for machine generated editor events: avoid starvation, e.g. when operating on big sessions;
wenzelm
parents:
62248
diff
changeset
|
52 |
|
64524
e6a3c55b929b
explicit option editor_generated_input_delay, which is more aggressive by default;
wenzelm
parents:
64521
diff
changeset
|
53 |
def invoke(): Unit = delay1_flush.invoke() |
e6a3c55b929b
explicit option editor_generated_input_delay, which is more aggressive by default;
wenzelm
parents:
64521
diff
changeset
|
54 |
def invoke_generated(): Unit = { delay1_flush.invoke(); delay2_flush.invoke() } |
54461 | 55 |
|
60933
6d03e05ef041
more robust access to stable tip version: take all pending edits into account, don't assume model for current buffer;
wenzelm
parents:
60893
diff
changeset
|
56 |
def stable_tip_version(): Option[Document.Version] = |
6d03e05ef041
more robust access to stable tip version: take all pending edits into account, don't assume model for current buffer;
wenzelm
parents:
60893
diff
changeset
|
57 |
GUI_Thread.require { |
6d03e05ef041
more robust access to stable tip version: take all pending edits into account, don't assume model for current buffer;
wenzelm
parents:
60893
diff
changeset
|
58 |
if (removed_nodes.isEmpty && PIDE.document_models().forall(_.is_stable)) |
6d03e05ef041
more robust access to stable tip version: take all pending edits into account, don't assume model for current buffer;
wenzelm
parents:
60893
diff
changeset
|
59 |
session.current_state().stable_tip_version |
6d03e05ef041
more robust access to stable tip version: take all pending edits into account, don't assume model for current buffer;
wenzelm
parents:
60893
diff
changeset
|
60 |
else None |
6d03e05ef041
more robust access to stable tip version: take all pending edits into account, don't assume model for current buffer;
wenzelm
parents:
60893
diff
changeset
|
61 |
} |
6d03e05ef041
more robust access to stable tip version: take all pending edits into account, don't assume model for current buffer;
wenzelm
parents:
60893
diff
changeset
|
62 |
|
52977
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
63 |
|
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
64 |
/* current situation */ |
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
65 |
|
52980 | 66 |
override def current_context: View = |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
67 |
GUI_Thread.require { jEdit.getActiveView() } |
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
68 |
|
52980 | 69 |
override def current_node(view: View): Option[Document.Node.Name] = |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
70 |
GUI_Thread.require { PIDE.document_model(view.getBuffer).map(_.node_name) } |
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
71 |
|
52980 | 72 |
override def current_node_snapshot(view: View): Option[Document.Snapshot] = |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
73 |
GUI_Thread.require { PIDE.document_model(view.getBuffer).map(_.snapshot()) } |
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
74 |
|
52980 | 75 |
override def node_snapshot(name: Document.Node.Name): Document.Snapshot = |
52974 | 76 |
{ |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
77 |
GUI_Thread.require {} |
52974 | 78 |
|
56457
eea4bbe15745
tuned signature -- prefer static type Document.Node.Name;
wenzelm
parents:
56413
diff
changeset
|
79 |
JEdit_Lib.jedit_buffer(name) match { |
52974 | 80 |
case Some(buffer) => |
81 |
PIDE.document_model(buffer) match { |
|
82 |
case Some(model) => model.snapshot |
|
83 |
case None => session.snapshot(name) |
|
84 |
} |
|
85 |
case None => session.snapshot(name) |
|
86 |
} |
|
87 |
} |
|
88 |
||
53844
71f103629327
skip ignored commands, similar to former proper_command_at (see d68ea01d5084) -- relevant to Output, Query_Operation etc.;
wenzelm
parents:
52980
diff
changeset
|
89 |
override def current_command(view: View, snapshot: Document.Snapshot): Option[Command] = |
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
90 |
{ |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
91 |
GUI_Thread.require {} |
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
92 |
|
54325
2c4155003352
clarified Editor.current_command: allow outdated snapshot;
wenzelm
parents:
53845
diff
changeset
|
93 |
val text_area = view.getTextArea |
54528 | 94 |
val buffer = view.getBuffer |
95 |
||
54325
2c4155003352
clarified Editor.current_command: allow outdated snapshot;
wenzelm
parents:
53845
diff
changeset
|
96 |
PIDE.document_view(text_area) match { |
55432
9c53198dbb1c
maintain multiple command chunks and markup trees: for main chunk and loaded files;
wenzelm
parents:
54706
diff
changeset
|
97 |
case Some(doc_view) if doc_view.model.is_theory => |
54325
2c4155003352
clarified Editor.current_command: allow outdated snapshot;
wenzelm
parents:
53845
diff
changeset
|
98 |
val node = snapshot.version.nodes(doc_view.model.node_name) |
2c4155003352
clarified Editor.current_command: allow outdated snapshot;
wenzelm
parents:
53845
diff
changeset
|
99 |
val caret = snapshot.revert(text_area.getCaretPosition) |
54528 | 100 |
if (caret < buffer.getLength) { |
56373
0605d90be6fc
tuned signature -- more explicit iterator terminology;
wenzelm
parents:
56314
diff
changeset
|
101 |
val caret_command_iterator = node.command_iterator(caret) |
0605d90be6fc
tuned signature -- more explicit iterator terminology;
wenzelm
parents:
56314
diff
changeset
|
102 |
if (caret_command_iterator.hasNext) { |
0605d90be6fc
tuned signature -- more explicit iterator terminology;
wenzelm
parents:
56314
diff
changeset
|
103 |
val (cmd0, _) = caret_command_iterator.next |
54325
2c4155003352
clarified Editor.current_command: allow outdated snapshot;
wenzelm
parents:
53845
diff
changeset
|
104 |
node.commands.reverse.iterator(cmd0).find(cmd => !cmd.is_ignored) |
53844
71f103629327
skip ignored commands, similar to former proper_command_at (see d68ea01d5084) -- relevant to Output, Query_Operation etc.;
wenzelm
parents:
52980
diff
changeset
|
105 |
} |
54325
2c4155003352
clarified Editor.current_command: allow outdated snapshot;
wenzelm
parents:
53845
diff
changeset
|
106 |
else None |
2c4155003352
clarified Editor.current_command: allow outdated snapshot;
wenzelm
parents:
53845
diff
changeset
|
107 |
} |
2c4155003352
clarified Editor.current_command: allow outdated snapshot;
wenzelm
parents:
53845
diff
changeset
|
108 |
else node.commands.reverse.iterator.find(cmd => !cmd.is_ignored) |
55432
9c53198dbb1c
maintain multiple command chunks and markup trees: for main chunk and loaded files;
wenzelm
parents:
54706
diff
changeset
|
109 |
case _ => |
54528 | 110 |
PIDE.document_model(buffer) match { |
54531
8330faaeebd5
restrict node_required status and Theories panel to actual theories;
wenzelm
parents:
54528
diff
changeset
|
111 |
case Some(model) if !model.is_theory => |
56314 | 112 |
snapshot.version.nodes.load_commands(model.node_name) match { |
54528 | 113 |
case cmd :: _ => Some(cmd) |
114 |
case Nil => None |
|
115 |
} |
|
116 |
case _ => None |
|
117 |
} |
|
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
118 |
} |
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
119 |
} |
52977
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
120 |
|
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
121 |
|
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
122 |
/* overlays */ |
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
123 |
|
57873 | 124 |
private val overlays = Synchronized(Document.Overlays.empty) |
52977
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
125 |
|
52980 | 126 |
override def node_overlays(name: Document.Node.Name): Document.Node.Overlays = |
57873 | 127 |
overlays.value(name) |
52977
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
128 |
|
52980 | 129 |
override def insert_overlay(command: Command, fn: String, args: List[String]): Unit = |
57873 | 130 |
overlays.change(_.insert(command, fn, args)) |
52977
15254e32d299
central management of Document.Overlays, independent of Document_Model;
wenzelm
parents:
52974
diff
changeset
|
131 |
|
52980 | 132 |
override def remove_overlay(command: Command, fn: String, args: List[String]): Unit = |
57873 | 133 |
overlays.change(_.remove(command, fn, args)) |
52980 | 134 |
|
135 |
||
55877 | 136 |
/* navigation */ |
52980 | 137 |
|
56413 | 138 |
def push_position(view: View) |
139 |
{ |
|
140 |
val navigator = jEdit.getPlugin("ise.plugin.nav.NavigatorPlugin") |
|
141 |
if (navigator != null) { |
|
59080
611914621edb
added Untyped.method convenience (for *this* class only);
wenzelm
parents:
58545
diff
changeset
|
142 |
try { Untyped.method(navigator.getClass, "pushPosition", view.getClass).invoke(null, view) } |
56413 | 143 |
catch { case _: NoSuchMethodException => } |
144 |
} |
|
145 |
} |
|
146 |
||
60893 | 147 |
def goto_buffer(focus: Boolean, view: View, buffer: Buffer, offset: Text.Offset) |
58545
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
148 |
{ |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
149 |
GUI_Thread.require {} |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
150 |
|
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
151 |
push_position(view) |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
152 |
|
60893 | 153 |
if (focus) view.goToBuffer(buffer) else view.showBuffer(buffer) |
58545
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
154 |
try { view.getTextArea.moveCaretPosition(offset) } |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
155 |
catch { |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
156 |
case _: ArrayIndexOutOfBoundsException => |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
157 |
case _: IllegalArgumentException => |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
158 |
} |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
159 |
} |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
160 |
|
64653 | 161 |
def goto_file(focus: Boolean, view: View, name: String): Unit = |
162 |
goto_file(focus, view, Line.Node_Position(name)) |
|
163 |
||
164 |
def goto_file(focus: Boolean, view: View, pos: Line.Node_Position) |
|
52980 | 165 |
{ |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57611
diff
changeset
|
166 |
GUI_Thread.require {} |
52980 | 167 |
|
56413 | 168 |
push_position(view) |
169 |
||
64653 | 170 |
val name = pos.name |
171 |
val line = pos.line |
|
172 |
val column = pos.column |
|
173 |
||
54706 | 174 |
JEdit_Lib.jedit_buffer(name) match { |
52980 | 175 |
case Some(buffer) => |
60893 | 176 |
if (focus) view.goToBuffer(buffer) else view.showBuffer(buffer) |
52980 | 177 |
val text_area = view.getTextArea |
178 |
||
179 |
try { |
|
64653 | 180 |
val line_start = text_area.getBuffer.getLineStartOffset(line) |
52980 | 181 |
text_area.moveCaretPosition(line_start) |
64653 | 182 |
if (column > 0) text_area.moveCaretPosition(line_start + column) |
52980 | 183 |
} |
184 |
catch { |
|
185 |
case _: ArrayIndexOutOfBoundsException => |
|
186 |
case _: IllegalArgumentException => |
|
187 |
} |
|
188 |
||
54706 | 189 |
case None if (new JFile(name)).isDirectory => |
190 |
VFSBrowser.browseDirectory(view, name) |
|
191 |
||
52980 | 192 |
case None => |
193 |
val args = |
|
54706 | 194 |
if (line <= 0) Array(name) |
64653 | 195 |
else if (column <= 0) Array(name, "+line:" + (line + 1)) |
196 |
else Array(name, "+line:" + (line + 1) + "," + (column + 1)) |
|
52980 | 197 |
jEdit.openFiles(view, null, args) |
198 |
} |
|
199 |
} |
|
200 |
||
61660
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
201 |
def goto_doc(view: View, path: Path) |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
202 |
{ |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
203 |
if (path.is_file) |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
204 |
goto_file(true, view, File.platform_path(path)) |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
205 |
else { |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
206 |
Standard_Thread.fork("documentation") { |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
207 |
try { Doc.view(path) } |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
208 |
catch { |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
209 |
case exn: Throwable => |
62062
ee610059b0e9
fewer use of GUI_Thread.now to reduce danger of deadlock on shutdown;
wenzelm
parents:
61728
diff
changeset
|
210 |
GUI_Thread.later { |
ee610059b0e9
fewer use of GUI_Thread.now to reduce danger of deadlock on shutdown;
wenzelm
parents:
61728
diff
changeset
|
211 |
GUI.error_dialog(view, |
ee610059b0e9
fewer use of GUI_Thread.now to reduce danger of deadlock on shutdown;
wenzelm
parents:
61728
diff
changeset
|
212 |
"Documentation error", GUI.scrollable_text(Exn.message(exn))) |
ee610059b0e9
fewer use of GUI_Thread.now to reduce danger of deadlock on shutdown;
wenzelm
parents:
61728
diff
changeset
|
213 |
} |
61660
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
214 |
} |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
215 |
} |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
216 |
} |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
217 |
} |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
218 |
|
55877 | 219 |
|
220 |
/* hyperlinks */ |
|
221 |
||
61660
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
222 |
def hyperlink_doc(name: String): Option[Hyperlink] = |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
223 |
Doc.contents().collectFirst({ |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
224 |
case doc: Doc.Text_File if doc.name == name => doc.path |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
225 |
case doc: Doc.Doc if doc.name == name => doc.path}).map(path => |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
226 |
new Hyperlink { |
64663 | 227 |
override val external = !path.is_file |
61660
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
228 |
def follow(view: View): Unit = goto_doc(view, path) |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
229 |
override def toString: String = "doc " + quote(name) |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
230 |
}) |
78b371644654
added antiquotation @{doc}, e.g. useful for demonstration purposes;
wenzelm
parents:
61557
diff
changeset
|
231 |
|
56461 | 232 |
def hyperlink_url(name: String): Hyperlink = |
233 |
new Hyperlink { |
|
64663 | 234 |
override val external = true |
56729 | 235 |
def follow(view: View): Unit = |
61557 | 236 |
Standard_Thread.fork("hyperlink_url") { |
62248 | 237 |
try { Isabelle_System.open(Url.escape(name)) } |
56461 | 238 |
catch { |
239 |
case exn: Throwable => |
|
62062
ee610059b0e9
fewer use of GUI_Thread.now to reduce danger of deadlock on shutdown;
wenzelm
parents:
61728
diff
changeset
|
240 |
GUI_Thread.later { |
ee610059b0e9
fewer use of GUI_Thread.now to reduce danger of deadlock on shutdown;
wenzelm
parents:
61728
diff
changeset
|
241 |
GUI.error_dialog(view, "System error", GUI.scrollable_text(Exn.message(exn))) |
ee610059b0e9
fewer use of GUI_Thread.now to reduce danger of deadlock on shutdown;
wenzelm
parents:
61728
diff
changeset
|
242 |
} |
56729 | 243 |
} |
244 |
} |
|
56461 | 245 |
override def toString: String = "URL " + quote(name) |
52980 | 246 |
} |
55876 | 247 |
|
60893 | 248 |
def hyperlink_buffer(focus: Boolean, buffer: Buffer, offset: Text.Offset): Hyperlink = |
58545
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
249 |
new Hyperlink { |
60893 | 250 |
def follow(view: View): Unit = goto_buffer(focus, view, buffer, offset) |
58545
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
251 |
override def toString: String = "buffer " + quote(JEdit_Lib.buffer_name(buffer)) |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
252 |
} |
30b75b7958d6
citation tooltip/hyperlink based on open buffers with .bib files;
wenzelm
parents:
57878
diff
changeset
|
253 |
|
64653 | 254 |
def hyperlink_file(focus: Boolean, name: String): Hyperlink = |
255 |
hyperlink_file(focus, Line.Node_Position(name)) |
|
256 |
||
257 |
def hyperlink_file(focus: Boolean, pos: Line.Node_Position): Hyperlink = |
|
56461 | 258 |
new Hyperlink { |
64653 | 259 |
def follow(view: View): Unit = goto_file(focus, view, pos) |
260 |
override def toString: String = "file " + quote(pos.name) |
|
56461 | 261 |
} |
55876 | 262 |
|
64653 | 263 |
def hyperlink_source_file(focus: Boolean, source_name: String, line1: Int, offset: Symbol.Offset) |
55878 | 264 |
: Option[Hyperlink] = |
265 |
{ |
|
64657 | 266 |
for (name <- PIDE.resources.source_file(source_name)) yield { |
267 |
JEdit_Lib.jedit_buffer(name) match { |
|
268 |
case Some(buffer) if offset > 0 => |
|
269 |
val pos = |
|
270 |
JEdit_Lib.buffer_lock(buffer) { |
|
271 |
(Line.Position.zero /: |
|
272 |
(Symbol.iterator(JEdit_Lib.buffer_text(buffer)). |
|
273 |
zipWithIndex.takeWhile(p => p._2 < offset - 1).map(_._1)))(_.advance(_)) |
|
274 |
} |
|
275 |
hyperlink_file(focus, Line.Node_Position(name, pos)) |
|
276 |
case _ => |
|
277 |
hyperlink_file(focus, Line.Node_Position(name, Line.Position((line1 - 1) max 0))) |
|
55878 | 278 |
} |
279 |
} |
|
280 |
} |
|
55876 | 281 |
|
56461 | 282 |
override def hyperlink_command( |
60893 | 283 |
focus: Boolean, snapshot: Document.Snapshot, command: Command, offset: Symbol.Offset = 0) |
284 |
: Option[Hyperlink] = |
|
56461 | 285 |
{ |
286 |
if (snapshot.is_outdated) None |
|
287 |
else { |
|
288 |
snapshot.state.find_command(snapshot.version, command.id) match { |
|
289 |
case None => None |
|
290 |
case Some((node, _)) => |
|
64653 | 291 |
val name = command.node_name.node |
56461 | 292 |
val sources_iterator = |
293 |
node.commands.iterator.takeWhile(_ != command).map(_.source) ++ |
|
294 |
(if (offset == 0) Iterator.empty |
|
56462
b64b0cb845fe
more explicit Command.Chunk types, less ooddities;
wenzelm
parents:
56461
diff
changeset
|
295 |
else Iterator.single(command.source(Text.Range(0, command.chunk.decode(offset))))) |
64613 | 296 |
val pos = (Line.Position.zero /: sources_iterator)(_.advance(_)) |
64653 | 297 |
Some(hyperlink_file(focus, Line.Node_Position(name, pos))) |
56461 | 298 |
} |
55876 | 299 |
} |
56461 | 300 |
} |
301 |
||
302 |
def hyperlink_command_id( |
|
60893 | 303 |
focus: Boolean, snapshot: Document.Snapshot, id: Document_ID.Generic, offset: Symbol.Offset = 0) |
304 |
: Option[Hyperlink] = |
|
56461 | 305 |
{ |
306 |
snapshot.state.find_command(snapshot.version, id) match { |
|
60893 | 307 |
case Some((node, command)) => hyperlink_command(focus, snapshot, command, offset) |
56461 | 308 |
case None => None |
309 |
} |
|
310 |
} |
|
60874 | 311 |
|
61011 | 312 |
def is_hyperlink_position(snapshot: Document.Snapshot, |
313 |
text_offset: Text.Offset, pos: Position.T): Boolean = |
|
314 |
{ |
|
315 |
pos match { |
|
64662 | 316 |
case Position.Item_Id(id, offset) if offset > 0 => |
61011 | 317 |
snapshot.state.find_command(snapshot.version, id) match { |
318 |
case Some((node, command)) if snapshot.version.nodes(command.node_name) eq node => |
|
319 |
node.command_start(command) match { |
|
320 |
case Some(start) => text_offset == start + command.chunk.decode(offset) |
|
321 |
case None => false |
|
322 |
} |
|
323 |
case _ => false |
|
324 |
} |
|
325 |
case _ => false |
|
326 |
} |
|
327 |
} |
|
328 |
||
60893 | 329 |
def hyperlink_position(focus: Boolean, snapshot: Document.Snapshot, pos: Position.T) |
330 |
: Option[Hyperlink] = |
|
60874 | 331 |
pos match { |
64662 | 332 |
case Position.Item_File(name, line, offset) => |
60893 | 333 |
hyperlink_source_file(focus, name, line, offset) |
64662 | 334 |
case Position.Item_Id(id, offset) => |
60893 | 335 |
hyperlink_command_id(focus, snapshot, id, offset) |
60874 | 336 |
case _ => None |
337 |
} |
|
338 |
||
60893 | 339 |
def hyperlink_def_position(focus: Boolean, snapshot: Document.Snapshot, pos: Position.T) |
340 |
: Option[Hyperlink] = |
|
60874 | 341 |
pos match { |
64662 | 342 |
case Position.Item_Def_File(name, line, offset) => |
60893 | 343 |
hyperlink_source_file(focus, name, line, offset) |
64662 | 344 |
case Position.Item_Def_Id(id, offset) => |
60893 | 345 |
hyperlink_command_id(focus, snapshot, id, offset) |
60874 | 346 |
case _ => None |
347 |
} |
|
52971
31926d2c04ee
tuned signature -- more abstract PIDE editor operations;
wenzelm
parents:
diff
changeset
|
348 |
} |