# HG changeset patch
# User wenzelm
# Date 1636110317 -3600
# Node ID 0554a5c4c191339a50a1e63b00b45c8681958d86
# Parent  423e802feca15c3b7acc3b37a34b83070124446e
unused (see also 217e6cf61453, 5e7916535860);

diff -r 423e802feca1 -r 0554a5c4c191 src/Pure/PIDE/resources.ML
--- a/src/Pure/PIDE/resources.ML	Thu Nov 04 19:55:59 2021 +0100
+++ b/src/Pure/PIDE/resources.ML	Fri Nov 05 12:05:17 2021 +0100
@@ -10,7 +10,6 @@
   val init_session:
     {session_positions: (string * Properties.T) list,
      session_directories: (string * string) list,
-     session_chapters: (string * string) list,
      bibtex_entries: (string * string list) list,
      command_timings: Properties.T list,
      load_commands: (string * Position.T) list,
@@ -23,7 +22,6 @@
   val global_theory: string -> string option
   val loaded_theory: string -> bool
   val check_session: Proof.context -> string * Position.T -> string
-  val session_chapter: string -> string
   val last_timing: Toplevel.transition -> Time.time
   val check_load_command: Proof.context -> string * Position.T -> string
   val scala_functions: unit -> string list
@@ -103,7 +101,6 @@
 val empty_session_base =
   ({session_positions = []: (string * entry) list,
     session_directories = Symtab.empty: Path.T list Symtab.table,
-    session_chapters = Symtab.empty: string Symtab.table,
     bibtex_entries = Symtab.empty: string list Symtab.table,
     timings = empty_timings,
     load_commands = []: (string * Position.T) list,
@@ -115,15 +112,14 @@
   Synchronized.var "Sessions.base" empty_session_base;
 
 fun init_session
-    {session_positions, session_directories, session_chapters, bibtex_entries,
-      command_timings, load_commands, scala_functions, global_theories, loaded_theories} =
+    {session_positions, session_directories, bibtex_entries, command_timings, load_commands,
+      scala_functions, global_theories, loaded_theories} =
   Synchronized.change global_session_base
     (fn _ =>
       ({session_positions = sort_by #1 (map (apsnd make_entry) session_positions),
         session_directories =
           Symtab.build (session_directories |> fold_rev (fn (dir, name) =>
             Symtab.cons_list (name, Path.explode dir))),
-        session_chapters = Symtab.make session_chapters,
         bibtex_entries = Symtab.make bibtex_entries,
         timings = make_timings command_timings,
         load_commands = load_commands,
@@ -133,22 +129,21 @@
 
 fun init_session_yxml yxml =
   let
-    val (session_positions, (session_directories, (session_chapters, (bibtex_entries,
-        (command_timings, (load_commands, (scala_functions, (global_theories, loaded_theories)))))))) =
+    val (session_positions, (session_directories, (bibtex_entries, (command_timings,
+        (load_commands, (scala_functions, (global_theories, loaded_theories))))))) =
       YXML.parse_body yxml |>
         let open XML.Decode in
           (pair (list (pair string properties))
-            (pair (list (pair string string)) (pair (list (pair string string))
+            (pair (list (pair string string))
               (pair (list (pair string (list string))) (pair (list properties)
                 (pair (list (pair string properties))
                   (pair (list (pair string (pair bool properties)))
-                    (pair (list (pair string string)) (list string)))))))))
+                    (pair (list (pair string string)) (list string))))))))
         end;
   in
     init_session
       {session_positions = session_positions,
        session_directories = session_directories,
-       session_chapters = session_chapters,
        bibtex_entries = bibtex_entries,
        command_timings = command_timings,
        load_commands = (map o apsnd) Position.of_properties load_commands,
@@ -177,9 +172,6 @@
       Position.make_entity_markup {def = false} serial Markup.sessionN (name, pos))
     (get_session_base1 #session_positions) ctxt arg;
 
-fun session_chapter name =
-  the_default "Unsorted" (Symtab.lookup (get_session_base1 #session_chapters) name);
-
 fun last_timing tr = get_timings (get_session_base1 #timings) tr;
 
 fun check_load_command ctxt arg =
diff -r 423e802feca1 -r 0554a5c4c191 src/Pure/PIDE/resources.scala
--- a/src/Pure/PIDE/resources.scala	Thu Nov 04 19:55:59 2021 +0100
+++ b/src/Pure/PIDE/resources.scala	Fri Nov 05 12:05:17 2021 +0100
@@ -36,21 +36,19 @@
     YXML.string_of_body(
       pair(list(pair(string, properties)),
       pair(list(pair(string, string)),
-      pair(list(pair(string, string)),
       pair(list(pair(string, list(string))),
       pair(list(properties),
       pair(list(pair(string, properties)),
       pair(list(pair(string, pair(bool, properties))),
-      pair(list(pair(string, string)), list(string)))))))))(
+      pair(list(pair(string, string)), list(string))))))))(
        (sessions_structure.session_positions,
        (sessions_structure.dest_session_directories,
-       (sessions_structure.session_chapters,
        (sessions_structure.bibtex_entries,
        (command_timings,
        (Command_Span.load_commands.map(cmd => (cmd.name, cmd.position)),
        (Scala.functions.map(fun => (fun.name, (fun.multi, fun.position))),
        (session_base.global_theories.toList,
-        session_base.loaded_theories.keys))))))))))
+        session_base.loaded_theories.keys)))))))))
   }
 
 
diff -r 423e802feca1 -r 0554a5c4c191 src/Pure/Thy/sessions.scala
--- a/src/Pure/Thy/sessions.scala	Thu Nov 04 19:55:59 2021 +0100
+++ b/src/Pure/Thy/sessions.scala	Fri Nov 05 12:05:17 2021 +0100
@@ -856,9 +856,6 @@
           case entries => Some(name -> entries.map(_.info))
         })
 
-    def session_chapters: List[(String, String)] =
-      imports_topological_order.map(name => name -> apply(name).chapter)
-
     override def toString: String =
       imports_graph.keys_iterator.mkString("Sessions.Structure(", ", ", ")")
   }