/usr/share/gitit-0.10.0.1/plugins/CapitalizeEmphasis.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 18 19 20 | module CapitalizeEmphasis (plugin) where
-- This plugin converts emphasized text to ALL CAPS.
-- Not a very useful feature, but useful as an example
-- of how to write a plugin.
import Network.Gitit.Interface
import Data.Char (toUpper)
plugin :: Plugin
plugin = mkPageTransform capsTransform
capsTransform :: [Inline] -> [Inline]
capsTransform (Emph x : xs) = processWith capStr x ++ capsTransform xs
capsTransform (x:xs) = x : capsTransform xs
capsTransform [] = []
capStr :: Inline -> Inline
capStr (Str x) = Str (map toUpper x)
capStr x = x
|