src/Pure/PIDE/markup.ML
changeset 69314 b367c22c3dd8
parent 69211 7062639cfdaa
child 69320 fc221fa79741
equal deleted inserted replaced
69313:b021008c5397 69314:b367c22c3dd8
    40   val language_rail: T
    40   val language_rail: T
    41   val language_path: T
    41   val language_path: T
    42   val language_mixfix: T
    42   val language_mixfix: T
    43   val bindingN: string val binding: T
    43   val bindingN: string val binding: T
    44   val entityN: string val entity: string -> string -> T
    44   val entityN: string val entity: string -> string -> T
    45   val get_entity_kind: T -> string option
       
    46   val defN: string
    45   val defN: string
    47   val refN: string
    46   val refN: string
    48   val completionN: string val completion: T
    47   val completionN: string val completion: T
    49   val no_completionN: string val no_completion: T
    48   val no_completionN: string val no_completion: T
    50   val lineN: string
    49   val lineN: string
   324 val entityN = "entity";
   323 val entityN = "entity";
   325 fun entity kind name =
   324 fun entity kind name =
   326   (entityN,
   325   (entityN,
   327     (if name = "" then [] else [(nameN, name)]) @ (if kind = "" then [] else [(kindN, kind)]));
   326     (if name = "" then [] else [(nameN, name)]) @ (if kind = "" then [] else [(kindN, kind)]));
   328 
   327 
   329 fun get_entity_kind (name, props) =
       
   330   if name = entityN then Properties.get props kindN
       
   331   else NONE;
       
   332 
       
   333 val defN = "def";
   328 val defN = "def";
   334 val refN = "ref";
   329 val refN = "ref";
   335 
   330 
   336 
   331 
   337 (* completion *)
   332 (* completion *)