epub-tools-1.0.0.0: src/EpubTools/EpubName/Format/AuthorSt.hs

-- Copyright: 2008-2011 Dino Morelli
-- License: BSD3 (see LICENSE)
-- Author: Dino Morelli <dino@ui3.info>

{-# LANGUAGE FlexibleContexts #-}

module EpubTools.EpubName.Format.AuthorSt
   ( fmtAuthorSt )
   where

import Control.Monad.Error

import EpubTools.EpubName.Format.Util
   ( format
   , authorSingle, titleSimple
   )
import EpubTools.EpubName.Util ( Fields )


fmtAuthorSt :: (MonadError String m) => Fields -> m (String, String)
fmtAuthorSt = format "AuthorSt"
   "(.*) (St\\. [^ ]+)$" authorSingle
   "(.*)" titleSimple