@@ -85,6 +85,7 @@ getDefaultTemplate _ "native" = return $ Right ""
85getDefaultTemplate _ "json" = return $ Right ""
85getDefaultTemplate _ "json" = return $ Right ""
86getDefaultTemplate user "odt" = getDefaultTemplate user "opendocument"
86getDefaultTemplate user "odt" = getDefaultTemplate user "opendocument"
87getDefaultTemplate user "epub" = getDefaultTemplate user "html"
87getDefaultTemplate user "epub" = getDefaultTemplate user "html"
88+getDefaultTemplate user "html5" = getDefaultTemplate user "html"
88getDefaultTemplate user "beamer" = getDefaultTemplate user "latex"
89getDefaultTemplate user "beamer" = getDefaultTemplate user "latex"
89getDefaultTemplate user writer = do
90getDefaultTemplate user writer = do
90 let format = takeWhile (/='+') writer -- strip off "+lhs" if present
91 let format = takeWhile (/='+') writer -- strip off "+lhs" if present