author | wenzelm |
Mon, 17 Apr 2017 12:11:02 +0200 | |
changeset 65487 | 7847807b07ce |
parent 65213 | 51c0f094dc02 |
child 65488 | 331f09d9535e |
permissions | -rw-r--r-- |
64622
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
1 |
/* Title: Tools/VSCode/src/vscode_rendering.scala |
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
2 |
Author: Makarius |
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
3 |
|
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
4 |
Isabelle/VSCode-specific implementation of quasi-abstract rendering and |
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
5 |
markup interpretation. |
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
6 |
*/ |
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
7 |
|
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
8 |
package isabelle.vscode |
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
9 |
|
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
10 |
|
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
11 |
import isabelle._ |
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
12 |
|
64778
7884a19de325
proper interpretation of Resources.source_file as platform file;
wenzelm
parents:
64777
diff
changeset
|
13 |
import java.io.{File => JFile} |
7884a19de325
proper interpretation of Resources.source_file as platform file;
wenzelm
parents:
64777
diff
changeset
|
14 |
|
7884a19de325
proper interpretation of Resources.source_file as platform file;
wenzelm
parents:
64777
diff
changeset
|
15 |
|
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
16 |
object VSCode_Rendering |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
17 |
{ |
65104
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
18 |
/* decorations */ |
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
19 |
|
65122
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
20 |
private def color_decorations(prefix: String, types: Set[Rendering.Color.Value], |
65104
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
21 |
colors: List[Text.Info[Rendering.Color.Value]]): List[Document_Model.Decoration] = |
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
22 |
{ |
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
23 |
val color_ranges = |
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
24 |
(Map.empty[Rendering.Color.Value, List[Text.Range]] /: colors) { |
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
25 |
case (m, Text.Info(range, c)) => m + (c -> (range :: m.getOrElse(c, Nil))) |
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
26 |
} |
65105 | 27 |
types.toList.map(c => |
65140 | 28 |
Document_Model.Decoration.ranges(prefix + c.toString, color_ranges.getOrElse(c, Nil).reverse)) |
65104
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
29 |
} |
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
30 |
|
65176 | 31 |
private val background_colors = |
32 |
Rendering.Color.background_colors - Rendering.Color.active - Rendering.Color.active_result - |
|
33 |
Rendering.Color.entity |
|
34 |
||
65122
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
35 |
private val dotted_colors = |
65134
511bf19348d3
clarified messages (with improved scalability): legacy/error as diagnostics, writeln/information/warning/bad as tooltips (dynamic hover);
wenzelm
parents:
65122
diff
changeset
|
36 |
Set(Rendering.Color.writeln, Rendering.Color.information, Rendering.Color.warning) |
65122
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
37 |
|
65104
66b19d05dcee
decorations for background and foreground colors;
wenzelm
parents:
65095
diff
changeset
|
38 |
|
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
39 |
/* diagnostic messages */ |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
40 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
41 |
private val message_severity = |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
42 |
Map( |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
43 |
Markup.LEGACY -> Protocol.DiagnosticSeverity.Warning, |
65095 | 44 |
Markup.ERROR -> Protocol.DiagnosticSeverity.Error) |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
45 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
46 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
47 |
/* markup elements */ |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
48 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
49 |
private val diagnostics_elements = |
65134
511bf19348d3
clarified messages (with improved scalability): legacy/error as diagnostics, writeln/information/warning/bad as tooltips (dynamic hover);
wenzelm
parents:
65122
diff
changeset
|
50 |
Markup.Elements(Markup.LEGACY, Markup.ERROR) |
65095 | 51 |
|
65176 | 52 |
private val background_elements = |
53 |
Rendering.background_elements - Markup.ENTITY -- Rendering.active_elements |
|
54 |
||
65122
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
55 |
private val dotted_elements = |
65134
511bf19348d3
clarified messages (with improved scalability): legacy/error as diagnostics, writeln/information/warning/bad as tooltips (dynamic hover);
wenzelm
parents:
65122
diff
changeset
|
56 |
Markup.Elements(Markup.WRITELN, Markup.INFORMATION, Markup.WARNING) |
65122
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
57 |
|
65134
511bf19348d3
clarified messages (with improved scalability): legacy/error as diagnostics, writeln/information/warning/bad as tooltips (dynamic hover);
wenzelm
parents:
65122
diff
changeset
|
58 |
val tooltip_elements = |
511bf19348d3
clarified messages (with improved scalability): legacy/error as diagnostics, writeln/information/warning/bad as tooltips (dynamic hover);
wenzelm
parents:
65122
diff
changeset
|
59 |
Markup.Elements(Markup.WRITELN, Markup.INFORMATION, Markup.WARNING, Markup.BAD) ++ |
511bf19348d3
clarified messages (with improved scalability): legacy/error as diagnostics, writeln/information/warning/bad as tooltips (dynamic hover);
wenzelm
parents:
65122
diff
changeset
|
60 |
Rendering.tooltip_elements |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
61 |
|
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
62 |
private val hyperlink_elements = |
64833 | 63 |
Markup.Elements(Markup.ENTITY, Markup.PATH, Markup.POSITION, Markup.CITATION) |
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
64 |
} |
64622
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
65 |
|
65213
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
66 |
class VSCode_Rendering(val model: Document_Model, snapshot: Document.Snapshot) |
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
67 |
extends Rendering(snapshot, model.resources.options, model.session) |
64622
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
68 |
{ |
64877 | 69 |
/* completion */ |
70 |
||
71 |
def completion(range: Text.Range): List[Protocol.CompletionItem] = |
|
72 |
semantic_completion(None, range) match { |
|
73 |
case Some(Text.Info(complete_range, names: Completion.Names)) => |
|
74 |
model.content.try_get_text(complete_range) match { |
|
75 |
case Some(original) => |
|
76 |
names.complete(complete_range, Completion.History.empty, |
|
65213
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
77 |
model.resources.unicode_symbols, original) match { |
64877 | 78 |
case Some(result) => |
79 |
result.items.map(item => |
|
80 |
Protocol.CompletionItem( |
|
81 |
label = item.replacement, |
|
82 |
detail = Some(item.description.mkString(" ")), |
|
83 |
range = Some(model.content.doc.range(item.range)))) |
|
84 |
case None => Nil |
|
85 |
} |
|
86 |
case None => Nil |
|
87 |
} |
|
88 |
case _ => Nil |
|
89 |
} |
|
90 |
||
91 |
||
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
92 |
/* diagnostics */ |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
93 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
94 |
def diagnostics: List[Text.Info[Command.Results]] = |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
95 |
snapshot.cumulate[Command.Results]( |
64830 | 96 |
model.content.text_range, Command.Results.empty, VSCode_Rendering.diagnostics_elements, _ => |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
97 |
{ |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
98 |
case (res, Text.Info(_, msg @ XML.Elem(Markup(_, Markup.Serial(i)), body))) |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
99 |
if body.nonEmpty => Some(res + (i -> msg)) |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
100 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
101 |
case _ => None |
64802 | 102 |
}).filterNot(info => info.info.is_empty) |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
103 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
104 |
def diagnostics_output(results: List[Text.Info[Command.Results]]): List[Protocol.Diagnostic] = |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
105 |
{ |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
106 |
(for { |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
107 |
Text.Info(text_range, res) <- results.iterator |
64830 | 108 |
range = model.content.doc.range(text_range) |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
109 |
(_, XML.Elem(Markup(name, _), body)) <- res.iterator |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
110 |
} yield { |
65213
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
111 |
val message = model.resources.output_pretty_message(body) |
64679
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
112 |
val severity = VSCode_Rendering.message_severity.get(name) |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
113 |
Protocol.Diagnostic(range, message, severity = severity) |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
114 |
}).toList |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
115 |
} |
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
116 |
|
b2bf280b7e13
more uniform treatment of input/output wrt. client;
wenzelm
parents:
64668
diff
changeset
|
117 |
|
65146 | 118 |
/* text color */ |
119 |
||
120 |
def text_color(range: Text.Range): List[Text.Info[Rendering.Color.Value]] = |
|
121 |
{ |
|
122 |
snapshot.select(range, Rendering.text_color_elements, _ => |
|
123 |
{ |
|
65174
c0388fbd8096
avoid extra decorations for regular command keywords;
wenzelm
parents:
65173
diff
changeset
|
124 |
case Text.Info(_, XML.Elem(Markup(name, props), _)) => |
c0388fbd8096
avoid extra decorations for regular command keywords;
wenzelm
parents:
65173
diff
changeset
|
125 |
if (name != Markup.IMPROPER && props.contains((Markup.KIND, Markup.COMMAND))) None |
c0388fbd8096
avoid extra decorations for regular command keywords;
wenzelm
parents:
65173
diff
changeset
|
126 |
else Rendering.text_color.get(name) |
65146 | 127 |
}) |
128 |
} |
|
129 |
||
130 |
||
65122
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
131 |
/* dotted underline */ |
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
132 |
|
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
133 |
def dotted(range: Text.Range): List[Text.Info[Rendering.Color.Value]] = |
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
134 |
message_underline_color(VSCode_Rendering.dotted_elements, range) |
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
135 |
|
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
136 |
|
65142 | 137 |
/* spell checker */ |
138 |
||
139 |
def spell_checker: Document_Model.Decoration = |
|
140 |
{ |
|
141 |
val ranges = |
|
142 |
(for { |
|
65213
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
143 |
spell_checker <- model.resources.spell_checker.get.iterator |
65142 | 144 |
spell_range <- spell_checker_ranges(model.content.text_range).iterator |
145 |
text <- model.content.try_get_text(spell_range).iterator |
|
146 |
info <- spell_checker.marked_words(spell_range.start, text).iterator |
|
147 |
} yield info.range).toList |
|
148 |
Document_Model.Decoration.ranges("spell_checker", ranges) |
|
149 |
} |
|
150 |
||
151 |
||
65095 | 152 |
/* decorations */ |
153 |
||
65120
db6cc23fcf33
proper reset of published decorations: initial value is Nil, afterwards it is a list of canonical length and order;
wenzelm
parents:
65107
diff
changeset
|
154 |
def decorations: List[Document_Model.Decoration] = // list of canonical length and order |
65176 | 155 |
VSCode_Rendering.color_decorations("background_", VSCode_Rendering.background_colors, |
156 |
background(VSCode_Rendering.background_elements, model.content.text_range, Set.empty)) ::: |
|
65143 | 157 |
VSCode_Rendering.color_decorations("foreground_", Rendering.Color.foreground_colors, |
65122
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
158 |
foreground(model.content.text_range)) ::: |
65146 | 159 |
VSCode_Rendering.color_decorations("text_", Rendering.Color.text_colors, |
160 |
text_color(model.content.text_range)) ::: |
|
65122
1edb570f5b17
decorations for dotted underline: less intrusive;
wenzelm
parents:
65120
diff
changeset
|
161 |
VSCode_Rendering.color_decorations("dotted_", VSCode_Rendering.dotted_colors, |
65142 | 162 |
dotted(model.content.text_range)) ::: |
163 |
List(spell_checker) |
|
65095 | 164 |
|
165 |
def decoration_output(decoration: Document_Model.Decoration): Protocol.Decoration = |
|
166 |
{ |
|
167 |
val content = |
|
65105 | 168 |
for (Text.Info(text_range, msgs) <- decoration.content) |
65095 | 169 |
yield { |
170 |
val range = model.content.doc.range(text_range) |
|
65173 | 171 |
Protocol.DecorationOpts(range, |
65213
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
172 |
msgs.map(msg => Protocol.MarkedString(model.resources.output_pretty_tooltip(msg)))) |
65095 | 173 |
} |
174 |
Protocol.Decoration(decoration.typ, content) |
|
175 |
} |
|
176 |
||
177 |
||
64622
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
178 |
/* tooltips */ |
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
179 |
|
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
180 |
def timing_threshold: Double = options.real("vscode_timing_threshold") |
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
181 |
|
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
182 |
|
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
183 |
/* hyperlinks */ |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
184 |
|
64667 | 185 |
def hyperlink_source_file(source_name: String, line1: Int, range: Symbol.Range) |
186 |
: Option[Line.Node_Range] = |
|
187 |
{ |
|
64775 | 188 |
for { |
65213
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
189 |
platform_path <- model.resources.source_file(source_name) |
64778
7884a19de325
proper interpretation of Resources.source_file as platform file;
wenzelm
parents:
64777
diff
changeset
|
190 |
file <- |
64779 | 191 |
(try { Some(new JFile(platform_path).getCanonicalFile) } |
64778
7884a19de325
proper interpretation of Resources.source_file as platform file;
wenzelm
parents:
64777
diff
changeset
|
192 |
catch { case ERROR(_) => None }) |
64775 | 193 |
} |
64667 | 194 |
yield { |
64778
7884a19de325
proper interpretation of Resources.source_file as platform file;
wenzelm
parents:
64777
diff
changeset
|
195 |
Line.Node_Range(file.getPath, |
64841
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
196 |
if (range.start > 0) { |
65213
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
197 |
model.resources.get_file_content(file) match { |
64841
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
198 |
case Some(text) => |
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
199 |
val chunk = Symbol.Text_Chunk(text) |
65196
e8760a98db78
discontinued pointless Text.Length: Javascript and Java agree in old-fashioned UTF-16;
wenzelm
parents:
65176
diff
changeset
|
200 |
val doc = Line.Document(text) |
64841
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
201 |
doc.range(chunk.decode(range)) |
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
202 |
case _ => |
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
203 |
Line.Range(Line.Position((line1 - 1) max 0)) |
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
204 |
} |
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
205 |
} |
d53696aed874
added node_name(String): imitate jEdit buffer operations;
wenzelm
parents:
64833
diff
changeset
|
206 |
else Line.Range(Line.Position((line1 - 1) max 0))) |
64667 | 207 |
} |
208 |
} |
|
209 |
||
210 |
def hyperlink_command(id: Document_ID.Generic, range: Symbol.Range): Option[Line.Node_Range] = |
|
211 |
{ |
|
212 |
if (snapshot.is_outdated) None |
|
213 |
else |
|
214 |
for { |
|
215 |
start <- snapshot.find_command_position(id, range.start) |
|
216 |
stop <- snapshot.find_command_position(id, range.stop) |
|
217 |
} yield Line.Node_Range(start.name, Line.Range(start.pos, stop.pos)) |
|
218 |
} |
|
219 |
||
220 |
def hyperlink_position(pos: Position.T): Option[Line.Node_Range] = |
|
221 |
pos match { |
|
222 |
case Position.Item_File(name, line, range) => hyperlink_source_file(name, line, range) |
|
223 |
case Position.Item_Id(id, range) => hyperlink_command(id, range) |
|
224 |
case _ => None |
|
225 |
} |
|
226 |
||
227 |
def hyperlink_def_position(pos: Position.T): Option[Line.Node_Range] = |
|
228 |
pos match { |
|
229 |
case Position.Item_Def_File(name, line, range) => hyperlink_source_file(name, line, range) |
|
230 |
case Position.Item_Def_Id(id, range) => hyperlink_command(id, range) |
|
231 |
case _ => None |
|
232 |
} |
|
233 |
||
64651 | 234 |
def hyperlinks(range: Text.Range): List[Line.Node_Range] = |
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
235 |
{ |
64651 | 236 |
snapshot.cumulate[List[Line.Node_Range]]( |
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
237 |
range, Nil, VSCode_Rendering.hyperlink_elements, _ => |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
238 |
{ |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
239 |
case (links, Text.Info(_, XML.Elem(Markup.Path(name), _))) => |
65487 | 240 |
val file = perhaps_append_file(snapshot.node_name.master_dir, name) |
64654 | 241 |
Some(Line.Node_Range(file) :: links) |
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
242 |
|
64667 | 243 |
case (links, Text.Info(info_range, XML.Elem(Markup(Markup.ENTITY, props), _))) => |
244 |
hyperlink_def_position(props).map(_ :: links) |
|
245 |
||
246 |
case (links, Text.Info(info_range, XML.Elem(Markup(Markup.POSITION, props), _))) => |
|
247 |
hyperlink_position(props).map(_ :: links) |
|
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
248 |
|
64833 | 249 |
case (links, Text.Info(info_range, XML.Elem(Markup.Citation(name), _))) => |
250 |
val iterator = |
|
251 |
for { |
|
65213
51c0f094dc02
proper local debugger state, depending on session;
wenzelm
parents:
65196
diff
changeset
|
252 |
Text.Info(entry_range, (entry, model)) <- model.resources.bibtex_entries_iterator |
64833 | 253 |
if entry == name |
254 |
} yield Line.Node_Range(model.node_name.node, model.content.doc.range(entry_range)) |
|
255 |
if (iterator.isEmpty) None else Some((links /: iterator)(_ :+ _)) |
|
256 |
||
64648
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
257 |
case _ => None |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
258 |
}) match { case Text.Info(_, links) :: _ => links.reverse case _ => Nil } |
5d7f741aaccb
basic support for hyperlinks / Goto Definition Request;
wenzelm
parents:
64622
diff
changeset
|
259 |
} |
64622
529bbb8977c7
more uniform rendering for Isabelle/jEdit and Isabelle/VSCode;
wenzelm
parents:
diff
changeset
|
260 |
} |