202 private val background_elements = |
202 private val background_elements = |
203 Protocol.proper_status_elements + Markup.WRITELN_MESSAGE + |
203 Protocol.proper_status_elements + Markup.WRITELN_MESSAGE + |
204 Markup.STATE_MESSAGE + Markup.INFORMATION_MESSAGE + |
204 Markup.STATE_MESSAGE + Markup.INFORMATION_MESSAGE + |
205 Markup.TRACING_MESSAGE + Markup.WARNING_MESSAGE + |
205 Markup.TRACING_MESSAGE + Markup.WARNING_MESSAGE + |
206 Markup.LEGACY_MESSAGE + Markup.ERROR_MESSAGE + |
206 Markup.LEGACY_MESSAGE + Markup.ERROR_MESSAGE + |
207 Markup.BAD + Markup.INTENSIFY + Markup.ML_BREAKPOINT ++ active_elements |
207 Markup.BAD + Markup.INTENSIFY ++ active_elements |
208 |
208 |
209 private val foreground_elements = |
209 private val foreground_elements = |
210 Markup.Elements(Markup.STRING, Markup.ALT_STRING, Markup.VERBATIM, |
210 Markup.Elements(Markup.STRING, Markup.ALT_STRING, Markup.VERBATIM, |
211 Markup.CARTOUCHE, Markup.ANTIQUOTED) |
211 Markup.CARTOUCHE, Markup.ANTIQUOTED) |
212 |
212 |
213 private val bullet_elements = |
213 private val bullet_elements = |
214 Markup.Elements(Markup.BULLET) |
214 Markup.Elements(Markup.BULLET, Markup.ML_BREAKPOINT) |
215 |
215 |
216 private val fold_depth_elements = |
216 private val fold_depth_elements = |
217 Markup.Elements(Markup.TEXT_FOLD, Markup.GOAL, Markup.SUBGOAL) |
217 Markup.Elements(Markup.TEXT_FOLD, Markup.GOAL, Markup.SUBGOAL) |
218 } |
218 } |
219 |
219 |
247 val legacy_message_color = color_value("legacy_message_color") |
247 val legacy_message_color = color_value("legacy_message_color") |
248 val error_message_color = color_value("error_message_color") |
248 val error_message_color = color_value("error_message_color") |
249 val spell_checker_color = color_value("spell_checker_color") |
249 val spell_checker_color = color_value("spell_checker_color") |
250 val bad_color = color_value("bad_color") |
250 val bad_color = color_value("bad_color") |
251 val intensify_color = color_value("intensify_color") |
251 val intensify_color = color_value("intensify_color") |
252 val breakpoint_color = color_value("breakpoint_color") |
252 val breakpoint_disabled_color = color_value("breakpoint_disabled_color") |
253 val breakpoint_active_color = color_value("breakpoint_active_color") |
253 val breakpoint_enabled_color = color_value("breakpoint_enabled_color") |
254 val quoted_color = color_value("quoted_color") |
254 val quoted_color = color_value("quoted_color") |
255 val antiquoted_color = color_value("antiquoted_color") |
255 val antiquoted_color = color_value("antiquoted_color") |
256 val antiquote_color = color_value("antiquote_color") |
256 val antiquote_color = color_value("antiquote_color") |
257 val highlight_color = color_value("highlight_color") |
257 val highlight_color = color_value("highlight_color") |
258 val hyperlink_color = color_value("hyperlink_color") |
258 val hyperlink_color = color_value("hyperlink_color") |
678 Some((markup :: status, color)) |
678 Some((markup :: status, color)) |
679 case (_, Text.Info(_, XML.Elem(Markup(Markup.BAD, _), _))) => |
679 case (_, Text.Info(_, XML.Elem(Markup(Markup.BAD, _), _))) => |
680 Some((Nil, Some(bad_color))) |
680 Some((Nil, Some(bad_color))) |
681 case (_, Text.Info(_, XML.Elem(Markup(Markup.INTENSIFY, _), _))) => |
681 case (_, Text.Info(_, XML.Elem(Markup(Markup.INTENSIFY, _), _))) => |
682 Some((Nil, Some(intensify_color))) |
682 Some((Nil, Some(intensify_color))) |
683 case (_, Text.Info(_, Protocol.ML_Breakpoint(breakpoint))) => |
|
684 Debugger.active_breakpoint_state(breakpoint).map(active => |
|
685 (Nil, Some(if (active) breakpoint_active_color else breakpoint_color))) |
|
686 case (acc, Text.Info(_, Protocol.Dialog(_, serial, result))) => |
683 case (acc, Text.Info(_, Protocol.Dialog(_, serial, result))) => |
687 command_states.collectFirst( |
684 command_states.collectFirst( |
688 { case st if st.results.defined(serial) => st.results.get(serial).get }) match |
685 { case st if st.results.defined(serial) => st.results.get(serial).get }) match |
689 { |
686 { |
690 case Some(Protocol.Dialog_Result(res)) if res == result => |
687 case Some(Protocol.Dialog_Result(res)) if res == result => |
772 |
769 |
773 |
770 |
774 /* virtual bullets */ |
771 /* virtual bullets */ |
775 |
772 |
776 def bullet(range: Text.Range): List[Text.Info[Color]] = |
773 def bullet(range: Text.Range): List[Text.Info[Color]] = |
777 snapshot.select(range, Rendering.bullet_elements, _ => _ => Some(bullet_color)) |
774 snapshot.select(range, Rendering.bullet_elements, _ => |
|
775 { |
|
776 case Text.Info(_, Protocol.ML_Breakpoint(breakpoint)) => |
|
777 Debugger.active_breakpoint_state(breakpoint).map(b => |
|
778 if (b) breakpoint_enabled_color else breakpoint_disabled_color) |
|
779 case _ => Some(bullet_color) |
|
780 }) |
778 |
781 |
779 |
782 |
780 /* text folds */ |
783 /* text folds */ |
781 |
784 |
782 def fold_depth(range: Text.Range): List[Text.Info[Int]] = |
785 def fold_depth(range: Text.Range): List[Text.Info[Int]] = |