13 lines
275 B
Plaintext
13 lines
275 B
Plaintext
|
let ParticleWord = ../types/ParticleWord.dhall
|
||
|
|
|
||
|
|
let emotion =
|
||
|
|
λ(x : ParticleWord.Type) →
|
||
|
|
ParticleWord::{
|
||
|
|
, word = x.word
|
||
|
|
, gloss = x.gloss
|
||
|
|
, family = "UI"
|
||
|
|
, definition = "${x.gloss} emotional indicator"
|
||
|
|
}
|
||
|
|
|
||
|
|
in emotion
|