Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (12 sloc) 465 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
Something went wrong with that request. Please try again.