<commit_before>{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}

module Text.Greek.Mounce.Euphony where

import Text.Greek.Grammar
import Text.Greek.Mounce.Phonology
import Text.Greek.Mounce.Quote

mounceEuphony :: [Cited Euphony]
mounceEuphony =
  [ mounce § "2.3" $
    Euphony "Two like vowels form their common long" [rules|
      α + α } α
      ι + ι } ι
      υ + υ } υ
      η + η } η
      ω + ω } ω
      ε + η } η
      η + ε } η
      ο + ω } ω
      ω + ο } ω
    |]
  , mounce § "2.4" $
    Euphony "Exceptions to §2.3" [rules|
      ε + ε } ει
      ο + ο } ου
    |]
  , mounce § "2.5" $
    Euphony "ο or ω overcome α, ε, or ὴ regardless of the order, and form ω" [rules|
      α + ο } ω
      ο + η } ω
    |]
  , mounce § "2.6" $
    Euphony "exceptions to 2.5" [rules|
      ε + ο } ου  
      ο + ε } ου  
    |]
  , mounce § "2.7" $
    Euphony "If α comes before ε or η, they will contract to α. If ε or η comes before α, they will contract to η ('progressive assimilation,' §2.2)" [rules|
      α + ε } α
      α + η } α
      ε + α } α
      η + α } α
    |]
  -- , mounce § "2.8" $
  --   Euphony "When three vowels come into contact, and if the first two or the last two do not form a diphthong, then the second and third vowels contract first, and the result contracts with the first vowel. In other words, contraction is from the right to the left ('progressive assimilation'; §2.2; Smyth §55). This is especially frequent in contract verbs." [rules|
  --     αει } αι } ᾳ
  --     εαι } εᾳ } ῃ
  --   |]<commit_msg>Add Euphony Rules 2.4a-b and 2.7a-b<commit_after>{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}

module Text.Greek.Mounce.Euphony where

import Text.Greek.Grammar
import Text.Greek.Mounce.Phonology
import Text.Greek.Mounce.Quote

mounceEuphony :: [Cited Euphony]
mounceEuphony =
  [mounce § "2.2c" $
    Euphony "ι followed by long α, η, ω subscripts" [rules|
      αι } ᾳ
      ηι } ῃ
      ωι } ῳ
   |]
  ,mounce § "2.3" $
    Euphony "Two like vowels form their common long" [rules|
      α + α } α
      ι + ι } ι
      υ + υ } υ
      η + η } η
      ω + ω } ω
      ε + η } η
      η + ε } η
      ο + ω } ω
      ω + ο } ω
    |]
  , mounce § "2.4" $
    Euphony "Exceptions to §2.3" [rules|
      ε + ε } ει
      ο + ο } ου
    |]
  , mounce § "2.4a" $
    Euphony "ει is formed by εε" [rules|
      εε } ει 
    |]
  , mounce § "2.4b" $
    Euphony "ου is formed by εο" [rules|
      εο } ου
      οε } ου  
      οο } ου
    |]
  , mounce § "2.5" $
    Euphony "ο or ω overcome α, ε, or ὴ regardless of the order, and form ω" [rules|
      α + ο } ω
      ο + η } ω
    |]
  , mounce § "2.6" $
    Euphony "exceptions to 2.5" [rules|
      ε + ο } ου  
      ο + ε } ου  
    |]
  , mounce § "2.7" $
    Euphony "If α comes before ε or η, they will contract to α. If ε or η comes before α, they will contract to η ('progressive assimilation,' §2.2)" [rules|
      α + ε } α
      α + η } α
      ε + α } α
      η + α } α
    |]
  , mounce § "2.7a" $
    Euphony "α is formed from αε" [rules|
      αε } α
    |]
  , mounce § "2.7b" $
    Euphony "η is formed from εα" [rules|
      εα } η
    |]
{'fraction_non_alphanumeric': 0.12782663316582915, 'fraction_numerical': 0.016331658291457288, 'mean_word_length': 1.7768090671316479, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1082633', 'n_tokens_mistral': 1464, 'n_tokens_neox': 1314, 'n_words': 456}