src/Pure/PIDE/document_editor.scala
author wenzelm
Tue, 31 Jan 2023 20:37:46 +0100
changeset 77161 913c781ff6ba
parent 77149 3991a35cd740
child 77184 861777e58b77
permissions -rw-r--r--
support document preparation from already loaded theories;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
76606
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/PIDE/document_editor.scala
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
     3
76730
1b8dd8c0492f tuned comments;
wenzelm
parents: 76716
diff changeset
     4
Central resources and configuration for interactive document preparation.
76606
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
     5
*/
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
     6
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
     7
package isabelle
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
     8
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
     9
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    10
object Document_Editor {
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    11
  /* document output */
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    12
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    13
  def document_name: String = "document"
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    14
  def document_output_dir(): Path = Path.explode("$ISABELLE_HOME_USER/document_output")
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    15
  def document_output(): Path = document_output_dir() + Path.basic(document_name)
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    16
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    17
  def view_document(): Unit = {
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    18
    val path = document_output().pdf
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    19
    if (path.is_file) Isabelle_System.pdf_viewer(path)
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    20
  }
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    21
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    22
76730
1b8dd8c0492f tuned comments;
wenzelm
parents: 76716
diff changeset
    23
  /* configuration state */
76609
cc9ddf373bd2 maintain global state of document editor views, notably for is_active operation;
wenzelm
parents: 76606
diff changeset
    24
77144
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    25
  sealed case class Session(
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    26
    background: Option[Sessions.Background],
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    27
    selection: Set[Document.Node.Name],
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    28
    snapshot: Option[Document.Snapshot]
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    29
  ) {
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    30
    def is_vacuous: Boolean = background.isEmpty
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    31
    def is_pending: Boolean = snapshot.isEmpty
77149
3991a35cd740 automatically build document when selected theories are finished;
wenzelm
parents: 77147
diff changeset
    32
    def is_ready: Boolean = background.isDefined && snapshot.isDefined
77144
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    33
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    34
    def get_background: Sessions.Background = background.get
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    35
    def get_variant: Document_Build.Document_Variant = get_background.info.documents.head
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    36
    def get_snapshot: Document.Snapshot = snapshot.get
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    37
  }
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    38
76609
cc9ddf373bd2 maintain global state of document editor views, notably for is_active operation;
wenzelm
parents: 76606
diff changeset
    39
  sealed case class State(
76678
f34b923ff2c9 clarified signature;
wenzelm
parents: 76610
diff changeset
    40
    session_background: Option[Sessions.Background] = None,
76715
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    41
    selection: Set[Document.Node.Name] = Set.empty,
76609
cc9ddf373bd2 maintain global state of document editor views, notably for is_active operation;
wenzelm
parents: 76606
diff changeset
    42
    views: Set[AnyRef] = Set.empty,
cc9ddf373bd2 maintain global state of document editor views, notably for is_active operation;
wenzelm
parents: 76606
diff changeset
    43
  ) {
76678
f34b923ff2c9 clarified signature;
wenzelm
parents: 76610
diff changeset
    44
    def is_active: Boolean = session_background.isDefined && views.nonEmpty
76609
cc9ddf373bd2 maintain global state of document editor views, notably for is_active operation;
wenzelm
parents: 76606
diff changeset
    45
76715
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    46
    def all_document_theories: List[Document.Node.Name] =
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    47
      session_background match {
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    48
        case Some(background) => background.base.all_document_theories
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    49
        case None => Nil
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    50
      }
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    51
76716
a7602257a825 clarified state document nodes for Theories_Status / Document_Dockable;
wenzelm
parents: 76715
diff changeset
    52
    def active_document_theories: List[Document.Node.Name] =
a7602257a825 clarified state document nodes for Theories_Status / Document_Dockable;
wenzelm
parents: 76715
diff changeset
    53
      if (is_active) all_document_theories else Nil
a7602257a825 clarified state document nodes for Theories_Status / Document_Dockable;
wenzelm
parents: 76715
diff changeset
    54
76715
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    55
    def select(
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    56
      names: Iterable[Document.Node.Name],
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    57
      set: Boolean = false,
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    58
      toggle: Boolean = false
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    59
    ): State = {
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    60
      copy(selection =
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    61
        names.foldLeft(selection) {
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    62
          case (sel, name) =>
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    63
            val b = if (toggle) !selection(name) else set
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    64
            if (b) sel + name else sel - name
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    65
        })
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    66
    }
bf5ff407f32f clarified state of document model vs. document editor selection (again, see also a9d52d02bd83);
wenzelm
parents: 76678
diff changeset
    67
76609
cc9ddf373bd2 maintain global state of document editor views, notably for is_active operation;
wenzelm
parents: 76606
diff changeset
    68
    def register_view(id: AnyRef): State = copy(views = views + id)
cc9ddf373bd2 maintain global state of document editor views, notably for is_active operation;
wenzelm
parents: 76606
diff changeset
    69
    def unregister_view(id: AnyRef): State = copy(views = views - id)
77144
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    70
77161
913c781ff6ba support document preparation from already loaded theories;
wenzelm
parents: 77149
diff changeset
    71
    def session(pide_session: isabelle.Session): Session = {
77144
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    72
      val background = session_background.filter(_.info.documents.nonEmpty)
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    73
      val snapshot =
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    74
        if (background.isEmpty) None
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    75
        else {
77161
913c781ff6ba support document preparation from already loaded theories;
wenzelm
parents: 77149
diff changeset
    76
          val snapshot = pide_session.snapshot()
913c781ff6ba support document preparation from already loaded theories;
wenzelm
parents: 77149
diff changeset
    77
          def document_ready(name: Document.Node.Name): Boolean =
913c781ff6ba support document preparation from already loaded theories;
wenzelm
parents: 77149
diff changeset
    78
            pide_session.resources.session_base.loaded_theory(name) ||
913c781ff6ba support document preparation from already loaded theories;
wenzelm
parents: 77149
diff changeset
    79
            snapshot.node_consolidated(name)
913c781ff6ba support document preparation from already loaded theories;
wenzelm
parents: 77149
diff changeset
    80
          if (snapshot.is_outdated || !selection.forall(document_ready)) None
77147
38077c938d01 defer build until document nodes are ready;
wenzelm
parents: 77144
diff changeset
    81
          else Some(snapshot)
77144
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    82
        }
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    83
      Session(background, selection, snapshot)
42c3970e1ac1 clarified Document_Editor.Session: more explicit types, more robust operations;
wenzelm
parents: 76994
diff changeset
    84
    }
76609
cc9ddf373bd2 maintain global state of document editor views, notably for is_active operation;
wenzelm
parents: 76606
diff changeset
    85
  }
76606
3558388330f8 clarified modules;
wenzelm
parents:
diff changeset
    86
}