There is a **Telegram bot** for Mock available as [\@truemockbot](https://t.me/truemockbot), you can find its source code in the [repository](https://git.eisfunke.com/software/mock-telegram-bot).
## Installation
Just clone this repository or download a [release](https://git.eisfunke.com/software/mock/releases) and call
```
$> stack setup
$> stack install
$ stack install
```
This will install Mock into `~/.local/bin`, which should be added to `$PATH`.
inside the folder. This will install Mock into `~/.local/bin`, which should be added to `$PATH`.
There is also an [AUR package](https://aur.archlinux.org/packages/haskell-mock/) available.
If you're using Arch Linux: there is also an [AUR package](https://aur.archlinux.org/packages/haskell-mock/) available.
## Usage
`mock [STYLE] [TEXT]`
You can get a list of possible mock styles with `mock`.
You can get help a list of possible mock styles with `mock`.
If no text is given, input is read from `stdin`.
If no text or "-" is given, input is read from `stdin`.
### Examples
```
$> mock random This is a great program.
$ mock random This is a great program.
ThIs Is A greaT PROgrAM.
$> mock space This is a great program.
$ mock space This is a great program.
T h i s i s a g r e a t p r o g r a m.
```
Mock calls can be concatenated with pipes:
Mock calls can of course be concatenated with pipes:
```
$> mock space This is a great program. | mock random
$ mock space This is a great program. | mock random
-- | List of all mock styles as tuples of the name and the transformation function.
styles::[(Text,Text->Text)]
styles=[
("random",mockRandom),
("alternate",mockAlternate),
("alternate2",mockAlternate.T.toLower),
("strike",strikethrough),
("double",T.maptoDouble),
("dedouble",T.mapfromDouble),
("smallcaps",T.maptoSmallCap),
("lower",T.toLower),
("upper",T.toUpper),
("cyrillic",T.maptoCyrillic),
("subsuper",mockSubSuper),
("cc",mockCC),
("b",mockB),
("pray",T.unwords.intersperse"🙏".T.words),
("clap",T.unwords.intersperse"👏".T.words),
("space",letterspace1),
("space2",letterspace2),
("space3",letterspace3),
("lines",T.intersperse'\n'),
("wordlines",T.concat.intersperse"\n".T.words),
("square",mockSquare)]
-- | Transforms characters of a string into uppercase where the corresponding element of the bool list is true. On encountering a letter that already is uppercase the mask is reversed.
-- | Transforms a character into a unicode sub- or superscript variant. If true is given and a subscript version is available, that is used. If none is available or false is given, a superscript version is used. If none is available, the character is left unchanged.
toSubSuper::Bool->Char->Char
toSubSuper=curry$\case
(_,'A')->chr7468
(_,'B')->chr7470
(_,'D')->chr7472
(_,'E')->chr7473
(_,'G')->chr7475
(_,'H')->chr7476
(_,'I')->chr7477
(_,'J')->chr7478
(_,'K')->chr7479
(_,'L')->chr7480
(_,'M')->chr7481
(_,'N')->chr7482
(_,'O')->chr7484
(_,'P')->chr7486
(_,'R')->chr7487
(_,'T')->chr7488
(_,'U')->chr7489
(_,'V')->chr11389
(_,'W')->chr7490
(False,'a')->'ᵃ'
(True,'a')->'ₐ'
(_,'b')->'ᵇ'
(_,'c')->'ᶜ'
(_,'d')->'ᵈ'
(False,'e')->'ᵉ'
(True,'e')->'ₑ'
(_,'f')->'ᶠ'
(_,'g')->'ᵍ'
(False,'h')->'ʰ'
(True,'h')->'ₕ'
(False,'i')->'ⁱ'
(True,'i')->'ᵢ'
(False,'j')->'ʲ'
(True,'j')->'ⱼ'
(False,'k')->'ᵏ'
(True,'k')->'ₖ'
(False,'l')->'ˡ'
(True,'l')->'ₗ'
(False,'m')->'ᵐ'
(True,'m')->'ₘ'
(False,'n')->'ⁿ'
(True,'n')->'ₙ'
(False,'o')->'ᵒ'
(True,'o')->'ₒ'
(False,'p')->'ᵖ'
(True,'p')->'ₚ'
(False,'r')->'ʳ'
(True,'r')->'ᵣ'
(False,'s')->'ˢ'
(True,'s')->'ₛ'
(False,'t')->'ᵗ'
(True,'t')->'ₜ'
(False,'u')->'ᵘ'
(True,'u')->'ᵤ'
(False,'v')->'ᵛ'
(True,'v')->'ᵥ'
(_,'w')->'ʷ'
(False,'x')->'ˣ'
(True,'x')->'ₓ'
(_,'y')->'ʸ'
(_,'z')->'ᶻ'
(_,c)->c
-- | Transforms lowercase characters into their unicode small capital variants.
toSmallCap::Char->Char
toSmallCap=\case
'a'->chr7424
'b'->chr665
'c'->chr7428
'd'->chr7429
'e'->chr7431
'f'->chr42800
'g'->chr610
'h'->chr668
'i'->chr618
'j'->chr7434
'k'->chr7435
'l'->chr671
'm'->chr7437
'n'->chr628
'o'->chr7439
'p'->chr7448
'q'->chr491
'r'->chr640
's'->chr42801
't'->chr7451
'u'->chr7452
'v'->chr7456
'w'->chr7457
'y'->chr655
'z'->chr7458
c->c
-- | Replaces some characters with cyrillic ones *looking* similarly.
toCyrillic::Char->Char
toCyrillic=\case
'A'->'Д'
'B'->'Б'
'E'->'З'
'N'->'И'
'O'->'Ө'
'R'->'Я'
'U'->'Ц'
'W'->'Щ'
'X'->'Ж'
'a'->'д'
'b'->'в'
'e'->'ё'
'h'->'Ђ'
'i'->'ɪ'
'k'->'к'
'o'->'ө'
'r'->'я'
't'->'т'
'u'->'ц'
'y'->'џ'
c->c
-- | Replaces all occurences of *lowercase* "g", "ck" and "k" in a string with "cc".
mockCC::Text->Text
mockCC=T.replace"k""cc".T.replace"ck""cc"
-- | Replaces all occurences of "b", "B", "p" and "P" with B button emojis.
mockB::Text->Text
mockB=T.replace"b""🅱️".T.replace"B""🅱️"
-- | Makes a square of a string by putting it with spaces in the first line and then all characters except the first in single lines after that first line.
