equal
deleted
inserted
replaced
38 |
38 |
39 val cite_macro = Attrib.setup_config_string \<^binding>\<open>cite_macro\<close> (K "cite"); |
39 val cite_macro = Attrib.setup_config_string \<^binding>\<open>cite_macro\<close> (K "cite"); |
40 |
40 |
41 val _ = |
41 val _ = |
42 Theory.setup |
42 Theory.setup |
43 (Thy_Output.add_option \<^binding>\<open>cite_macro\<close> (Config.put cite_macro) #> |
43 (Document_Antiquotation.setup_option \<^binding>\<open>cite_macro\<close> (Config.put cite_macro) #> |
44 Thy_Output.antiquotation \<^binding>\<open>cite\<close> |
44 Document_Antiquotation.setup \<^binding>\<open>cite\<close> |
45 (Scan.lift |
45 (Scan.lift |
46 (Scan.option (Parse.verbatim || Parse.cartouche) -- |
46 (Scan.option (Parse.verbatim || Parse.cartouche) -- |
47 Parse.and_list1 (Parse.position Args.name))) |
47 Parse.and_list1 (Parse.position Args.name))) |
48 (fn {context = ctxt, ...} => fn (opt, citations) => |
48 (fn {context = ctxt, ...} => fn (opt, citations) => |
49 let |
49 let |