{-
pandoc-crossref is a pandoc filter for numbering figures,
equations, tables and cross-references to them.
Copyright (C) 2015  Nikolay Yakimov <root@livid.pp.ru>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-}

{-# LANGUAGE TemplateHaskell #-}
module Text.Pandoc.CrossRef.References.Types where

import Data.Default
import qualified Data.Map as M
import Data.Text (Text)
import Lens.Micro.TH
import Text.Pandoc.Definition

type Index = [(Int, Maybe Text)]

data RefRec = RefRec { RefRec -> Index
refIndex :: Index
                     , RefRec -> [Inline]
refTitle :: [Inline]
                     , RefRec -> Maybe Index
refSubfigure :: Maybe Index
                     } deriving (Int -> RefRec -> ShowS
[RefRec] -> ShowS
RefRec -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RefRec] -> ShowS
$cshowList :: [RefRec] -> ShowS
show :: RefRec -> String
$cshow :: RefRec -> String
showsPrec :: Int -> RefRec -> ShowS
$cshowsPrec :: Int -> RefRec -> ShowS
Show, RefRec -> RefRec -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RefRec -> RefRec -> Bool
$c/= :: RefRec -> RefRec -> Bool
== :: RefRec -> RefRec -> Bool
$c== :: RefRec -> RefRec -> Bool
Eq)

type RefMap = M.Map Text RefRec

-- state data type
data References = References { References -> RefMap
_imgRefs :: RefMap
                             , References -> RefMap
_eqnRefs :: RefMap
                             , References -> RefMap
_tblRefs :: RefMap
                             , References -> RefMap
_lstRefs :: RefMap
                             , References -> RefMap
_secRefs :: RefMap
                             , References -> Index
_curChap :: Index
                             } deriving (Int -> References -> ShowS
[References] -> ShowS
References -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [References] -> ShowS
$cshowList :: [References] -> ShowS
show :: References -> String
$cshow :: References -> String
showsPrec :: Int -> References -> ShowS
$cshowsPrec :: Int -> References -> ShowS
Show, References -> References -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: References -> References -> Bool
$c/= :: References -> References -> Bool
== :: References -> References -> Bool
$c== :: References -> References -> Bool
Eq)

instance Default References where
  def :: References
def = RefMap
-> RefMap -> RefMap -> RefMap -> RefMap -> Index -> References
References forall {k} {a}. Map k a
n forall {k} {a}. Map k a
n forall {k} {a}. Map k a
n forall {k} {a}. Map k a
n forall {k} {a}. Map k a
n []
    where n :: Map k a
n = forall {k} {a}. Map k a
M.empty

makeLenses ''References