add a extension

1 files changed, 7 insertions, 0 deletions

diff --git a/prose.lua b/prose.lua
index b064826..7f86d5f 100644
--- a/prose.lua
+++ b/prose.lua
@@ -93,6 +93,13 @@ extensions.meta = function(S,text)
 	local fn = assert(load(string.format("return {%s}", text),"meta", "t"))
 	S.meta = fn()
 end
+
+extensions.a = function(S,text)
+	local url, ni = text:match("(%S+)%s*()")
+	local body = prose(S, text:sub(ni))
+	return T.a({href=url},body)
+end
+
 setmetatable(extensions, {__index = function(t, k)
 	return function(S, text)
 		io.stderr:write("warning: unknown extension "..k.."\n")