{-# LANGUAGE OverloadedStrings #-}

-- | This module establishes a glossary of attitudinals and attitudinal modifiers.
--
-- The definitions have been sourced from <https://en.wikibooks.org/wiki/Lojban/Attitudinals>.
module Study.Courses.English.Vocabulary.Attitudinals.Glossary where

import Study.Courses.English.Vocabulary.Attitudinals.Model

-- * Simple propositional emotions
-- | Attitudinal: .a'a
a'a :: Attitudinal
a'a :: Attitudinal
a'a = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".a'a" AttitudinalType
PropositionalEmotion (Text
"attentive") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"inattentive") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"avoiding")

-- | Attitudinal: .a'e
a'e :: Attitudinal
a'e :: Attitudinal
a'e = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".a'e" AttitudinalType
PropositionalEmotion (Text
"alertness") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"exhaustion")

-- | Attitudinal: .ai
ai :: Attitudinal
ai :: Attitudinal
ai = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".ai" AttitudinalType
PropositionalEmotion (Text
"intent") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"indecision") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"refusal")

-- | Attitudinal: .a'i
a'i :: Attitudinal
a'i :: Attitudinal
a'i = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".a'i" AttitudinalType
PropositionalEmotion (Text
"effort") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"lack of effort") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"repose")

-- | Attitudinal: .a'o
a'o :: Attitudinal
a'o :: Attitudinal
a'o = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".a'o" AttitudinalType
PropositionalEmotion (Text
"hope") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"despair")

-- | Attitudinal: .au
au :: Attitudinal
au :: Attitudinal
au = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".au" AttitudinalType
PropositionalEmotion (Text
"desire") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"indifference") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"reluctance")

-- | Attitudinal: .a'u
a'u :: Attitudinal
a'u :: Attitudinal
a'u = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".a'u" AttitudinalType
PropositionalEmotion (Text
"interest") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"no interest") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"repulsion")

-- * Complex propositional emotions
-- | Attitudinal: .e'a
e'a :: Attitudinal
e'a :: Attitudinal
e'a = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".e'a" AttitudinalType
PropositionalEmotion (Text
"permission") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"prohibition")

-- | Attitudinal: .e'e
e'e :: Attitudinal
e'e :: Attitudinal
e'e = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".e'e" AttitudinalType
PropositionalEmotion (Text
"competence") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"incompetence")

-- | Attitudinal: .ei
ei :: Attitudinal
ei :: Attitudinal
ei = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".ei" AttitudinalType
PropositionalEmotion (Text
"obligation") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"freedom")

-- | Attitudinal: .e'i
e'i :: Attitudinal
e'i :: Attitudinal
e'i = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".e'i" AttitudinalType
PropositionalEmotion (Text
"constraint") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"independence") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"resistance to constraint")

-- | Attitudinal: .e'o
e'o :: Attitudinal
e'o :: Attitudinal
e'o = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".e'o" AttitudinalType
PropositionalEmotion (Text
"request") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"negative request")

-- | Attitudinal: .e'u
e'u :: Attitudinal
e'u :: Attitudinal
e'u = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".e'u" AttitudinalType
PropositionalEmotion (Text
"suggestion") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"no suggestion") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"warning")

-- | Attitudinal: .ia
ia :: Attitudinal
ia :: Attitudinal
ia = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".ia" AttitudinalType
PropositionalEmotion (Text
"belief") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"skepticism") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"disbelief")

-- | Attitudinal: .i'a
i'a :: Attitudinal
i'a :: Attitudinal
i'a = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".i'a" AttitudinalType
PropositionalEmotion (Text
"acceptance") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"blame")

-- | Attitudinal: .ie
ie :: Attitudinal
ie :: Attitudinal
ie = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".ie" AttitudinalType
PropositionalEmotion (Text
"agreement") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"neutrality") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"disagreement")

-- | Attitudinal: .i'e
i'e :: Attitudinal
i'e :: Attitudinal
i'e = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".i'e" AttitudinalType
PropositionalEmotion (Text
"approval") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"non-approval") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"disapproval")

-- * Miscellaneous pure emotions
-- | Attitudinal: .ii
ii :: Attitudinal
ii :: Attitudinal
ii = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".ii" AttitudinalType
PureEmotion (Text
"fear") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"nervousness") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"security")

-- | Attitudinal: .i'i
i'i :: Attitudinal
i'i :: Attitudinal
i'i = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".i'i" AttitudinalType
PureEmotion (Text
"togetherness") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"privacy")

-- | Attitudinal: .io
io :: Attitudinal
io :: Attitudinal
io = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".io" AttitudinalType
PureEmotion (Text
"respect") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"lack of respect") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"disrespect")

-- | Attitudinal: .i'o
i'o :: Attitudinal
i'o :: Attitudinal
i'o = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".i'o" AttitudinalType
PureEmotion (Text
"appreciation") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"lack of appreciation") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"envy")

-- | Attitudinal: .iu
iu :: Attitudinal
iu :: Attitudinal
iu = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".iu" AttitudinalType
PureEmotion (Text
"love") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"lack of love") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"hatred/fear")

-- | Attitudinal: .i'u
i'u :: Attitudinal
i'u :: Attitudinal
i'u = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".i'u" AttitudinalType
PureEmotion (Text
"familiarity") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"mystery")

-- * Complex pure emotions
-- | Attitudinal: .o'a
o'a :: Attitudinal
o'a :: Attitudinal
o'a = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".o'a" AttitudinalType
PureEmotion (Text
"pride") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"modesty") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"shame")

-- | Attitudinal: .o'e
o'e :: Attitudinal
o'e :: Attitudinal
o'e = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".o'e" AttitudinalType
PureEmotion (Text
"closeness") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"detachment") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"distance")

-- | Attitudinal: .oi
oi :: Attitudinal
oi :: Attitudinal
oi = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".oi" AttitudinalType
PureEmotion (Text
"complaint/pain") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"no complaints") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"pleasure")

-- | Attitudinal: .o'i
o'i :: Attitudinal
o'i :: Attitudinal
o'i = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".o'i" AttitudinalType
PureEmotion (Text
"caution") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"boldness") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"rashness")

-- | Attitudinal: .o'o
o'o :: Attitudinal
o'o :: Attitudinal
o'o = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".o'o" AttitudinalType
PureEmotion (Text
"patience") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"mere tolerance") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"anger")

-- | Attitudinal: .o'u
o'u :: Attitudinal
o'u :: Attitudinal
o'u = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".o'u" AttitudinalType
PureEmotion (Text
"relaxation") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"composture") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"stress")

-- * Simple pure emotions
-- | Attitudinal: .ua
ua :: Attitudinal
ua :: Attitudinal
ua = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".ua" AttitudinalType
PureEmotion (Text
"discovery") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"confusion")

-- | Attitudinal: .u'a
u'a :: Attitudinal
u'a :: Attitudinal
u'a = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".u'a" AttitudinalType
PureEmotion (Text
"gain") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"loss")

-- | Attitudinal: .ue
ue :: Attitudinal
ue :: Attitudinal
ue = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".ue" AttitudinalType
PureEmotion (Text
"surprise") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"no surprise") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"expectation")

-- | Attitudinal: .u'e
u'e :: Attitudinal
u'e :: Attitudinal
u'e = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".u'e" AttitudinalType
PureEmotion (Text
"wonder") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"commonplace")

-- | Attitudinal: .ui
ui :: Attitudinal
ui :: Attitudinal
ui = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".ui" AttitudinalType
PureEmotion (Text
"happiness") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"unhappiness")

-- | Attitudinal: .u'i
u'i :: Attitudinal
u'i :: Attitudinal
u'i = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".u'i" AttitudinalType
PureEmotion (Text
"amusement") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"weariness")

-- | Attitudinal: .uo
uo :: Attitudinal
uo :: Attitudinal
uo = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".uo" AttitudinalType
PureEmotion (Text
"completion") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"incompleteness")

-- | Attitudinal: .u'o
u'o :: Attitudinal
u'o :: Attitudinal
u'o = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".u'o" AttitudinalType
PureEmotion (Text
"courage") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"timidity") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"cowardice")

-- | Attitudinal: .uu
uu :: Attitudinal
uu :: Attitudinal
uu = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".uu" AttitudinalType
PureEmotion (Text
"pity") (Maybe Text
forall a. Maybe a
Nothing) (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"cruelty")

-- | Attitudinal: .u'u
u'u :: Attitudinal
u'u :: Attitudinal
u'u = Text
-> AttitudinalType
-> Text
-> Maybe Text
-> Maybe Text
-> Attitudinal
Attitudinal Text
".u'u" AttitudinalType
PureEmotion (Text
"repentance") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"lack of regret") (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"innocence")