src/Pure/PIDE/markup.ML

--- a/src/Pure/PIDE/markup.ML	Fri Sep 20 14:28:13 2024 +0200
+++ b/src/Pure/PIDE/markup.ML	Fri Sep 20 15:35:16 2024 +0200
@@ -67,6 +67,12 @@
   val position_properties: string list
   val position_property: Properties.entry -> bool
   val def_name: string -> string
+  val notation_mixfixN: string
+  val notation_infixN: string
+  val notation_binderN: string
+  val notations: string list
+  val notationN: string val notation: {kind: string, name: string} -> T
+  val notation0: T
   val expressionN: string val expression: string -> T
   val expression0: T
   val citationN: string val citation: string -> T
@@ -434,6 +440,19 @@
   | NONE => make_def a);
 
 
+(* notation: mixfix annotations *)
+
+val notation_mixfixN = "mixfix";
+val notation_infixN = "infix";
+val notation_binderN = "binder";
+val notations = [notation_mixfixN, notation_infixN, notation_binderN];
+
+val notationN = "notation";
+fun notation {kind, name} = (notationN, kind_proper kind @ name_proper name);
+
+val notation0 = (notationN, []);
+
+
 (* expression *)
 
 val expressionN = "expression";
@@ -463,7 +482,7 @@
 val unbreakableN = "unbreakable";
 val indentN = "indent";
 
-val block_properties = [expressionN, markupN, consistentN, unbreakableN, indentN];
+val block_properties = [notationN, expressionN, markupN, consistentN, unbreakableN, indentN];
 
 val widthN = "width";