src/Tools/jEdit/src/isabelle_actions.scala
author wenzelm
Sun, 25 Nov 2012 17:15:21 +0100
changeset 50198 0c7b351a6871
parent 50187 b5a09812abc4
child 50205 788c8263e634
permissions -rw-r--r--
added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     1
/*  Title:      Tools/jEdit/src/plugin.scala
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     3
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     4
Convenience actions for Isabelle/jEdit.
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     5
*/
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     6
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     7
package isabelle.jedit
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     8
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
     9
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    10
import isabelle._
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    11
50198
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    12
import org.gjt.sp.jedit.{jEdit, View, Buffer}
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    13
import org.gjt.sp.jedit.textarea.JEditTextArea
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    14
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    15
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    16
object Isabelle_Actions
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    17
{
50198
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    18
  /* font size */
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    19
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    20
  def change_font_size(view: View, change: Int => Int)
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    21
  {
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    22
    val FONT_SIZE = "view.fontsize"
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    23
    val size = change(jEdit.getIntegerProperty(FONT_SIZE, 12)) max 5
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    24
    jEdit.setIntegerProperty(FONT_SIZE, size)
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    25
    jEdit.propertiesChanged()
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    26
    jEdit.saveSettings()
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    27
    view.getStatus.setMessageAndClear("Text font size: " + size)
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    28
  }
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    29
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    30
  def increase_font_size(view: View): Unit = change_font_size(view, i => i + ((i / 10) max 1))
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    31
  def decrease_font_size(view: View): Unit = change_font_size(view, i => i - ((i / 10) max 1))
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    32
0c7b351a6871 added convenience actions isabelle.increase-font-size and isabelle.decrease-font-size;
wenzelm
parents: 50187
diff changeset
    33
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    34
  /* full checking */
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    35
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    36
  def check_buffer(buffer: Buffer)
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    37
  {
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    38
    Isabelle.document_model(buffer) match {
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    39
      case None =>
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    40
      case Some(model) => model.full_perspective()
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    41
    }
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    42
  }
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    43
50187
b5a09812abc4 special handling of control symbols in Symbols dockable;
wenzelm
parents: 50183
diff changeset
    44
  def cancel_execution() { Isabelle.session.cancel_execution() }
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    45
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    46
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    47
  /* control styles */
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    48
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    49
  def control_sub(text_area: JEditTextArea)
50187
b5a09812abc4 special handling of control symbols in Symbols dockable;
wenzelm
parents: 50183
diff changeset
    50
  { Token_Markup.edit_control_style(text_area, Symbol.sub_decoded) }
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    51
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    52
  def control_sup(text_area: JEditTextArea)
50187
b5a09812abc4 special handling of control symbols in Symbols dockable;
wenzelm
parents: 50183
diff changeset
    53
  { Token_Markup.edit_control_style(text_area, Symbol.sup_decoded) }
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    54
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    55
  def control_isub(text_area: JEditTextArea)
50187
b5a09812abc4 special handling of control symbols in Symbols dockable;
wenzelm
parents: 50183
diff changeset
    56
  { Token_Markup.edit_control_style(text_area, Symbol.isub_decoded) }
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    57
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    58
  def control_isup(text_area: JEditTextArea)
50187
b5a09812abc4 special handling of control symbols in Symbols dockable;
wenzelm
parents: 50183
diff changeset
    59
  { Token_Markup.edit_control_style(text_area, Symbol.isup_decoded) }
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    60
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    61
  def control_bold(text_area: JEditTextArea)
50187
b5a09812abc4 special handling of control symbols in Symbols dockable;
wenzelm
parents: 50183
diff changeset
    62
  { Token_Markup.edit_control_style(text_area, Symbol.bold_decoded) }
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    63
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    64
  def control_reset(text_area: JEditTextArea)
50187
b5a09812abc4 special handling of control symbols in Symbols dockable;
wenzelm
parents: 50183
diff changeset
    65
  { Token_Markup.edit_control_style(text_area, "") }
50183
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    66
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    67
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    68
  /* block styles */
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    69
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    70
  private def enclose_input(text_area: JEditTextArea, s1: String, s2: String)
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    71
  {
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    72
    s1.foreach(text_area.userInput(_))
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    73
    s2.foreach(text_area.userInput(_))
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    74
    s2.foreach(_ => text_area.goToPrevCharacter(false))
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    75
  }
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    76
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    77
  def input_bsub(text_area: JEditTextArea)
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    78
  { enclose_input(text_area, Symbol.bsub_decoded, Symbol.esub_decoded) }
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    79
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    80
  def input_bsup(text_area: JEditTextArea)
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    81
  { enclose_input(text_area, Symbol.bsup_decoded, Symbol.esup_decoded) }
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    82
}
2b3e24e1c9e7 improved editing support for control styles;
wenzelm
parents:
diff changeset
    83