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

{-# OPTIONS_GHC -Wall #-}

module Text.Pandoc.Z.Columns where

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

class HasColumns a where
  columns ::
    Lens' a Int

instance HasColumns Int where
  columns =
    id

class AsColumns a where
  _Columns ::
    Prism' a Int

instance AsColumns Int where
  _Columns =
    id

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

instance HasColumns WriterOptions where
  columns 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 (\a13' -> 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 a13)