/usr/share/gitit-0.10.0.1/plugins/Deprofanizer.hs is in gitit 0.10.0.1-1+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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
|