Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 20 lines (14 sloc) 0.546 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
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

Something went wrong with that request. Please try again.