Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

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