Add mailto in MAML

David René
1 parent 8806f4d9
Showing 1 changed file with 12 additions and 5 deletions Show diff stats
anubis_dev/library/doc_tools/maml.anubis
@@ -8,10 +8,15 @@
  *Copyright*                     Copyright (c) Alain Prouté 2005. 
  
  
- *Author*       Alain Prouté
-                          
-
+ *Authors*  AP  Alain Prouté
+            DR  David René
+            
+ *history*  
+ 2006 06 28 DR - Add new tag mailto()() with 2 arguments
+ 2005       AP - Initial implementation 
  
+ *TODO* 
+  DR translate mailto towards Latex 
  
  
    This is version 2 of this tool. 
@@ -61,7 +66,8 @@ public define List(MAMLMark)
    mark("image",       1), 
    mark("code",        1), 
    mark("center",      1), 
-   mark("link",        1), 
+   mark("link",        1),
+   mark("mailto",      2),    //mail 
    mark("list",        1),
    mark("sub",         1), 
    mark("sup",         1), 
@@ -544,6 +550,7 @@ public define Text
                                          "</td>"-
                                       "</tr>"-
                                    "</table></center></span><br>"                                     else
+         if name = "mailto" then  t-"<a href=\"mailto:"-to_HTML(a1)-"\">" -to_HTML(a2)- "</a>"        else
          alert,
  
        mark(String name,MAML a1,MAML a2,MAML a3) then 
@@ -1172,4 +1179,4 @@ public define Result(Int32,String)
        String         public_dir
      ) =
    convert_MAML_to_LaTeX(s,site_name,public_dir,(One u) |-> "",(One u) |-> ""). 
-                         
 \ No newline at end of file
+