src/Pure/General/markup.ML
changeset 34212 8c3e1f73953d
parent 33985 1d33e85a3fa9
child 34214 99eefb83a35d
equal deleted inserted replaced
34211:686f828548ef 34212:8c3e1f73953d
   103   val unprocessedN: string val unprocessed: T
   103   val unprocessedN: string val unprocessed: T
   104   val runningN: string val running: string -> T
   104   val runningN: string val running: string -> T
   105   val failedN: string val failed: T
   105   val failedN: string val failed: T
   106   val finishedN: string val finished: T
   106   val finishedN: string val finished: T
   107   val disposedN: string val disposed: T
   107   val disposedN: string val disposed: T
   108   val editsN: string val edits: string -> T
       
   109   val editN: string val edit: string -> string -> T
   108   val editN: string val edit: string -> string -> T
   110   val pidN: string
   109   val pidN: string
   111   val sessionN: string
   110   val sessionN: string
   112   val promptN: string val prompt: T
   111   val promptN: string val prompt: T
   113   val readyN: string val ready: T
   112   val readyN: string val ready: T
   305 val (disposedN, disposed) = markup_elem "disposed";
   304 val (disposedN, disposed) = markup_elem "disposed";
   306 
   305 
   307 
   306 
   308 (* interactive documents *)
   307 (* interactive documents *)
   309 
   308 
   310 val (editsN, edits) = markup_string "edits" idN;
       
   311 
       
   312 val editN = "edit";
   309 val editN = "edit";
   313 fun edit id state_id : T = (editN, [(idN, id), (stateN, state_id)]);
   310 fun edit id state_id : T = (editN, [(idN, id), (stateN, state_id)]);
   314 
   311 
   315 
   312 
   316 (* messages *)
   313 (* messages *)