# HG changeset patch
# User wenzelm
# Date 1210865837 -7200
# Node ID 044619358d3a9481241e527f7df1497899947fc0
# Parent  d6fb318ba24e040077ca69257d9ceb69adc4075d
clean_string: cover <;
added clean_name;
output_entity: hyperlink;

diff -r d6fb318ba24e -r 044619358d3a doc-src/antiquote_setup.ML
--- a/doc-src/antiquote_setup.ML	Thu May 15 12:47:19 2008 +0200
+++ b/doc-src/antiquote_setup.ML	Thu May 15 17:37:17 2008 +0200
@@ -15,12 +15,20 @@
 
 val clean_string = translate_string
   (fn "_" => "\\_"
+    | "<" => "$<$"
     | ">" => "$>$"
     | "#" => "\\#"
     | "{" => "\\{"
     | "}" => "\\}"
     | c => c);
 
+fun clean_name "\\<dots>" = "dots"
+  | clean_name ".." = "ddot"
+  | clean_name "." = "dot"
+  | clean_name "{" = "braceleft"
+  | clean_name "}" = "braceright"
+  | clean_name s = s;
+
 val str_of_source = space_implode " " o map Args.string_of o #2 o #1 o Args.dest_src;
 
 fun tweak_line s =
@@ -147,26 +155,34 @@
 val arg = enclose "{" "}" o clean_string;
 
 fun output_entity check markup index kind ctxt (logic, name) =
-  if check ctxt name then
-    (case index of
-      NONE => ""
-    | SOME is_def =>
-        "\\index" ^ (if is_def then "def" else "ref") ^ arg logic ^ arg kind ^ arg name)
-    ^
-    (Output.output name
-      |> (if markup = "" then I else enclose ("\\" ^ markup ^ "{") "}")                                    
-      |> (if ! O.quotes then quote else I)
-      |> (if ! O.display then enclose "\\begin{isabelle}%\n" "%\n\\end{isabelle}"
-          else enclose "\\mbox{\\isa{" "}}"))
-  else error ("Undefined " ^ kind ^ " " ^ quote name);
+  let
+    val hyper_name = "{" ^ NameSpace.append kind (NameSpace.append logic (clean_name name)) ^ "}";
+    val hyper =
+      enclose ("\\hyperlink" ^ hyper_name ^ "{") "}" #>
+      index = SOME true ? enclose ("\\hypertarget" ^ hyper_name ^ "{") "}";
+    val idx =
+      (case index of
+        NONE => ""
+      | SOME is_def =>
+          "\\index" ^ (if is_def then "def" else "ref") ^ arg logic ^ arg kind ^ arg name);
+  in
+    if check ctxt name then
+      idx ^
+      (Output.output name
+        |> (if markup = "" then I else enclose ("\\" ^ markup ^ "{") "}")
+        |> (if ! O.quotes then quote else I)
+        |> (if ! O.display then enclose "\\begin{isabelle}%\n" "%\n\\end{isabelle}"
+            else hyper o enclose "\\mbox{\\isa{" "}}"))
+    else error ("Undefined " ^ kind ^ " " ^ quote name)
+  end;
 
 fun entity check markup index kind =
   O.args (Scan.lift (Scan.optional (Args.parens Args.name) "" -- Args.name))
     (K (output_entity check markup index kind));
-    
+
 fun entity_antiqs check markup kind =
  [(kind, entity check markup NONE kind),
-  (kind ^ "_def", entity check markup (SOME true) kind), 
+  (kind ^ "_def", entity check markup (SOME true) kind),
   (kind ^ "_ref", entity check markup (SOME false) kind)];
 
 in