Modify Autolink

aarroyoc · Jan 18, 2023 · 93dc3b7 · 93dc3b7
1 parent f919cd9
commit 93dc3b7
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/djota.pl b/djota.pl
@@ -121,7 +121,7 @@
 djot_list_ast_(Type, [], CurrentItem, Items, _) -->
     {
 	djot_ast(CurrentItem, ItemAst),
-        append(Items, [item(ItemAst)], NewItems)	
+        append(Items, [item(ItemAst)], NewItems)
     },
     [list(Type, NewItems)].
 
@@ -499,13 +499,11 @@
 colons(1) --> ":".
 
 autolink_ast_([link(Url, Url)|Ast0]) -->
+    { append("http://", _, Url); append("https://", _, Url) },
     "<",
     seq(Url),
     ">",
-    inline_text_ast_(Ast0),
-    {
-	append("http://", _, Url);append("https://", _, Url)
-    }.
+    inline_text_ast_(Ast0).
 
 reference_image_ast_([Node|Ast0]) -->
     "![",