pandocz-0.0.1: src/Text/Pandoc/Z/TabStop.hs

{-# OPTIONS_GHC -Wall #-}

module Text.Pandoc.Z.TabStop where

import Control.Lens ( Lens', Prism' )
import Text.Pandoc.Options(ReaderOptions(..), WriterOptions(..))

class HasTabStop a where
  tabStop ::
    Lens' a Int

instance HasTabStop Int where
  tabStop =
    id

class AsTabStop a where
  _TabStop ::
    Prism' a Int

instance AsTabStop Int where
  _TabStop =
    id

instance HasTabStop ReaderOptions where
  tabStop f (ReaderOptions e s c t i a g h m) =
    fmap (\t' -> ReaderOptions e s c t' i a g h m) (f t)

instance HasTabStop WriterOptions where
  tabStop f (WriterOptions a00 a01 a02 a03 a04 a05 a06 a07 a08 a09 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a22 a23 a24 a25 a26 a27 a28 a29 a30 a31 a32 a33 a34) =
    fmap (\a02' -> WriterOptions a00 a01 a02' a03 a04 a05 a06 a07 a08 a09 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a22 a23 a24 a25 a26 a27 a28 a29 a30 a31 a32 a33 a34) (f a02)