{-# LANGUAGE OverloadedStrings #-}

module Notation where

import qualified Data.Text.Lazy as L

---------------------------------------------------------------

pikiReserved :: String
pikiReserved = "#=*-+?!@{}>|"

pikiHr,pikiComment,pikiTitle,pikiUl,pikiOl,pikiDlT,pikiDlD,pikiImg,pikiAOpen,pikiAClose,pikiDivOpen,pikiDivClose,pikiEscape,pikiTable :: Char
pikiPreOpen,pikiPreClose :: L.Text

pikiComment  = '#'
pikiHr       = '='
pikiTitle    = '*'
pikiUl       = '-'
pikiOl       = '+'
pikiDlT      = '?' -- ?タイトル
pikiDlD      = '!' -- !説明
  @タイトル 
pikiAOpen    = '[' -- [タイトル URL]
pikiAClose   = ']'
pikiDivOpen  = '{' -- {class or {ID
pikiDivClose = '}'
pikiTable    = '|'
pikiPreOpen  = ">|"
pikiPreClose = "|<"

pikiEscape   = '\\'

# LANGUAGE OverloadedStrings #
-------------------------------------------------------------
 ?タイトル
 !説明
 [タイトル URL]
 {class or {ID

module Notation where

import qualified Data.Text.Lazy as L


pikiReserved :: String
pikiReserved = "#=*-+?!@{}>|"

pikiHr,pikiComment,pikiTitle,pikiUl,pikiOl,pikiDlT,pikiDlD,pikiImg,pikiAOpen,pikiAClose,pikiDivOpen,pikiDivClose,pikiEscape,pikiTable :: Char
pikiPreOpen,pikiPreClose :: L.Text

pikiComment  = '#'
pikiHr       = '='
pikiTitle    = '*'
pikiUl       = '-'
pikiOl       = '+'
  @タイトル 
pikiAClose   = ']'
pikiDivClose = '}'
pikiTable    = '|'
pikiPreOpen  = ">|"
pikiPreClose = "|<"

pikiEscape   = '\\'
