Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (14 sloc) 0.546 kB
module ShowUser (plugin) where
-- This plugin replaces $USER$ with the name of the currently logged in
-- user, or the empty string if no one is logged in.
import Network.Gitit.Interface
plugin :: Plugin
plugin = mkPageTransformM showuser
showuser :: Inline -> PluginM Inline
showuser (Math InlineMath x) | x == "USER" = do
doNotCache -- tell gitit not to cache this page, as it has dynamic content
mbUser <- askUser
case mbUser of
Nothing -> return $ Str ""
Just u -> return $ Str $ uUsername u
showuser x = return x
Jump to Line
Something went wrong with that request. Please try again.