src/Pure/Isar/isar_syn.ML
changeset 51627 589daaf48dba
parent 51585 fcd5af4aac2b
child 51654 8450b944e58a
equal deleted inserted replaced
51626:e09446d3caca 51627:589daaf48dba
    10 (** markup commands **)
    10 (** markup commands **)
    11 
    11 
    12 val _ =
    12 val _ =
    13   Outer_Syntax.markup_command Thy_Output.Markup
    13   Outer_Syntax.markup_command Thy_Output.Markup
    14     @{command_spec "header"} "theory header"
    14     @{command_spec "header"} "theory header"
    15     (Parse.doc_source >> Isar_Cmd.header_markup);
    15     (Parse.document_source >> Isar_Cmd.header_markup);
    16 
    16 
    17 val _ =
    17 val _ =
    18   Outer_Syntax.markup_command Thy_Output.Markup
    18   Outer_Syntax.markup_command Thy_Output.Markup
    19     @{command_spec "chapter"} "chapter heading"
    19     @{command_spec "chapter"} "chapter heading"
    20     (Parse.opt_target -- Parse.doc_source >> Isar_Cmd.local_theory_markup);
    20     (Parse.opt_target -- Parse.document_source >> Isar_Cmd.local_theory_markup);
    21 
    21 
    22 val _ =
    22 val _ =
    23   Outer_Syntax.markup_command Thy_Output.Markup
    23   Outer_Syntax.markup_command Thy_Output.Markup
    24     @{command_spec "section"} "section heading"
    24     @{command_spec "section"} "section heading"
    25     (Parse.opt_target -- Parse.doc_source >> Isar_Cmd.local_theory_markup);
    25     (Parse.opt_target -- Parse.document_source >> Isar_Cmd.local_theory_markup);
    26 
    26 
    27 val _ =
    27 val _ =
    28   Outer_Syntax.markup_command Thy_Output.Markup
    28   Outer_Syntax.markup_command Thy_Output.Markup
    29     @{command_spec "subsection"} "subsection heading"
    29     @{command_spec "subsection"} "subsection heading"
    30     (Parse.opt_target -- Parse.doc_source >> Isar_Cmd.local_theory_markup);
    30     (Parse.opt_target -- Parse.document_source >> Isar_Cmd.local_theory_markup);
    31 
    31 
    32 val _ =
    32 val _ =
    33   Outer_Syntax.markup_command Thy_Output.Markup
    33   Outer_Syntax.markup_command Thy_Output.Markup
    34     @{command_spec "subsubsection"} "subsubsection heading"
    34     @{command_spec "subsubsection"} "subsubsection heading"
    35     (Parse.opt_target -- Parse.doc_source >> Isar_Cmd.local_theory_markup);
    35     (Parse.opt_target -- Parse.document_source >> Isar_Cmd.local_theory_markup);
    36 
    36 
    37 val _ =
    37 val _ =
    38   Outer_Syntax.markup_command Thy_Output.MarkupEnv
    38   Outer_Syntax.markup_command Thy_Output.MarkupEnv
    39     @{command_spec "text"} "formal comment (theory)"
    39     @{command_spec "text"} "formal comment (theory)"
    40     (Parse.opt_target -- Parse.doc_source >> Isar_Cmd.local_theory_markup);
    40     (Parse.opt_target -- Parse.document_source >> Isar_Cmd.local_theory_markup);
    41 
    41 
    42 val _ =
    42 val _ =
    43   Outer_Syntax.markup_command Thy_Output.Verbatim
    43   Outer_Syntax.markup_command Thy_Output.Verbatim
    44     @{command_spec "text_raw"} "raw document preparation text"
    44     @{command_spec "text_raw"} "raw document preparation text"
    45     (Parse.opt_target -- Parse.doc_source >> Isar_Cmd.local_theory_markup);
    45     (Parse.opt_target -- Parse.document_source >> Isar_Cmd.local_theory_markup);
    46 
    46 
    47 val _ =
    47 val _ =
    48   Outer_Syntax.markup_command Thy_Output.Markup
    48   Outer_Syntax.markup_command Thy_Output.Markup
    49     @{command_spec "sect"} "formal comment (proof)"
    49     @{command_spec "sect"} "formal comment (proof)"
    50     (Parse.doc_source >> Isar_Cmd.proof_markup);
    50     (Parse.document_source >> Isar_Cmd.proof_markup);
    51 
    51 
    52 val _ =
    52 val _ =
    53   Outer_Syntax.markup_command Thy_Output.Markup
    53   Outer_Syntax.markup_command Thy_Output.Markup
    54     @{command_spec "subsect"} "formal comment (proof)"
    54     @{command_spec "subsect"} "formal comment (proof)"
    55     (Parse.doc_source >> Isar_Cmd.proof_markup);
    55     (Parse.document_source >> Isar_Cmd.proof_markup);
    56 
    56 
    57 val _ =
    57 val _ =
    58   Outer_Syntax.markup_command Thy_Output.Markup
    58   Outer_Syntax.markup_command Thy_Output.Markup
    59     @{command_spec "subsubsect"} "formal comment (proof)"
    59     @{command_spec "subsubsect"} "formal comment (proof)"
    60     (Parse.doc_source >> Isar_Cmd.proof_markup);
    60     (Parse.document_source >> Isar_Cmd.proof_markup);
    61 
    61 
    62 val _ =
    62 val _ =
    63   Outer_Syntax.markup_command Thy_Output.MarkupEnv
    63   Outer_Syntax.markup_command Thy_Output.MarkupEnv
    64     @{command_spec "txt"} "formal comment (proof)"
    64     @{command_spec "txt"} "formal comment (proof)"
    65     (Parse.doc_source >> Isar_Cmd.proof_markup);
    65     (Parse.document_source >> Isar_Cmd.proof_markup);
    66 
    66 
    67 val _ =
    67 val _ =
    68   Outer_Syntax.markup_command Thy_Output.Verbatim
    68   Outer_Syntax.markup_command Thy_Output.Verbatim
    69     @{command_spec "txt_raw"} "raw document preparation text (proof)"
    69     @{command_spec "txt_raw"} "raw document preparation text (proof)"
    70     (Parse.doc_source >> Isar_Cmd.proof_markup);
    70     (Parse.document_source >> Isar_Cmd.proof_markup);
    71 
    71 
    72 
    72 
    73 
    73 
    74 (** theory commands **)
    74 (** theory commands **)
    75 
    75