Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (12 sloc) 467 Bytes
module Deprofanizer (plugin) where
-- This plugin replaces profane words with "XXXXX".
import Network.Gitit.Interface
import Data.Char (toLower)
plugin :: Plugin
plugin = mkPageTransform deprofanize
deprofanize :: Inline -> Inline
deprofanize (Str x) | isBadWord x = Str "XXXXX"
deprofanize x = x
isBadWord :: String -> Bool
isBadWord x = (map toLower x) `elem` ["darn", "blasted", "stinker"]
-- there are more, but this is a family program
Jump to Line
Something went wrong with that request. Please try again.