some cleanup and such

2 files changed, 341 insertions, 0 deletions

diff --git a/080_blog/00040_Haskell/00065_Base64-Encoder/base64.cast b/080_blog/00040_Haskell/00065_Base64-Encoder/base64.cast
new file mode 100644
index 0000000..63fece1
--- /dev/null
+++ b/080_blog/00040_Haskell/00065_Base64-Encoder/base64.cast
@@ -0,0 +1,322 @@
+{
+  "duration": 14.820928,
+  "title": null,
+  "env": {
+    "SHELL": "/bin/bash",
+    "TERM": "screen-256color"
+  },
+  "width": 106,
+  "stdout": [
+    [
+      0.019966,
+      "miguel@megaloman:~$ "
+    ],
+    [
+      1.524665,
+      "t"
+    ],
+    [
+      0.08111,
+      "h"
+    ],
+    [
+      0.095838,
+      "i"
+    ],
+    [
+      0.118019,
+      "s"
+    ],
+    [
+      0.086883,
+      " "
+    ],
+    [
+      0.089573,
+      "i"
+    ],
+    [
+      0.134283,
+      "s"
+    ],
+    [
+      0.096031,
+      " "
+    ],
+    [
+      0.114016,
+      "a"
+    ],
+    [
+      0.166151,
+      " "
+    ],
+    [
+      0.319094,
+      "l"
+    ],
+    [
+      0.195916,
+      "o"
+    ],
+    [
+      0.142042,
+      "c"
+    ],
+    [
+      0.139961,
+      "a"
+    ],
+    [
+      0.07801,
+      "l"
+    ],
+    [
+      0.081012,
+      " "
+    ],
+    [
+      0.094941,
+      "a"
+    ],
+    [
+      0.120898,
+      "s"
+    ],
+    [
+      0.107959,
+      "c"
+    ],
+    [
+      0.115993,
+      "i"
+    ],
+    [
+      0.137871,
+      "i"
+    ],
+    [
+      0.205335,
+      "n"
+    ],
+    [
+      0.108673,
+      "e"
+    ],
+    [
+      0.127436,
+      "m"
+    ],
+    [
+      0.123916,
+      "a"
+    ],
+    [
+      0.244565,
+      "\r\n"
+    ],
+    [
+      0.000482,
+      "bash: this: command not found\r\n"
+    ],
+    [
+      0.000346,
+      "miguel@megaloman:~$ "
+    ],
+    [
+      1.012884,
+      "this is a local asciinema"
+    ],
+    [
+      0.230737,
+      "\r\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C"
+    ],
+    [
+      0.140235,
+      "\u001b[1@e"
+    ],
+    [
+      0.097927,
+      "\u001b[1@c"
+    ],
+    [
+      0.188824,
+      "\u001b[1@j"
+    ],
+    [
+      0.000974,
+      "\u001b[1@o"
+    ],
+    [
+      0.421424,
+      "\b\u001b[1P"
+    ],
+    [
+      0.117902,
+      "\b\u001b[1P"
+    ],
+    [
+      0.208192,
+      "\u001b[1@h"
+    ],
+    [
+      0.115112,
+      "\u001b[1@ "
+    ],
+    [
+      0.012814,
+      "\u001b[1@o"
+    ],
+    [
+      0.295287,
+      "\r\n"
+    ],
+    [
+      0.000755,
+      "bash: ech: command not found\r\n"
+    ],
+    [
+      0.000509,
+      "miguel@megaloman:~$ "
+    ],
+    [
+      0.480858,
+      "ech othis is a local asciinema"
+    ],
+    [
+      0.192018,
+      "\r\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C\u001b[C"
+    ],
+    [
+      0.237975,
+      "\u001b[C"
+    ],
+    [
+      0.118994,
+      "\u001b[C"
+    ],
+    [
+      0.146091,
+      "\u001b[1P"
+    ],
+    [
+      0.348015,
+      "\u001b[1P"
+    ],
+    [
+      0.562446,
+      "\u001b[1@h"
+    ],
+    [
+      0.437804,
+      "\u001b[C"
+    ],
+    [
+      0.219332,
+      "\u001b[1@ "
+    ],
+    [
+      0.220637,
+      "\r\n"
+    ],
+    [
+      0.000486,
+      "this is a local asciinema\r\n"
+    ],
+    [
+      0.000206,
+      "miguel@megaloman:~$ "
+    ],
+    [
+      1.218406,
+      "m"
+    ],
+    [
+      0.079499,
+      "c"
+    ],
+    [
+      0.170894,
+      "\r\n"
+    ],
+    [
+      0.00735,
+      "\u001b[?1049h\u001b[?1h\u001b="
+    ],
+    [
+      0.000586,
+      "\u001b[1;9r\u001b[4l\u001b(B\u001b)0\u001b[9;1H\u001b[m\u000f\u001b[37m\u001b[40m\u001b[m\u000f\u001b[39;49m\r                                                                                                         \r\u001b[?1l\u001b>\u001b[?1049l\u001b[?1049h\u001b[?1h\u001b="
+    ],
+    [
+      0.021657,
+      "\u001b[?1001s\u001b[?1002h\u001b[?1006h\u001b[?2004h"
+    ],
+    [
+      0.000429,
+      "\u001b[1;9r\u001b[4l\u001b(B\u001b)0\u001b[?1h\u001b=\u001b[m\u000f\u001b[39m\u001b[49m\u001b[1;9r\u001b[H\u001b[J\u001b[2;105H\u001b[1K \u001b[37m\u001b[40m|\u001b[2;106H"
+    ],
+    [
+      0.000193,
+      "\b\u001b[39m\u001b[49m\u001b[1K \u001b[37m\u001b[40m╗\u001b[2;106H"
+    ],
+    [
+      0.000114,
+      "\b\u001b[39m\u001b[49m\u001b[1K \u001b[37m\u001b[40m/\u001b[2;106H"
+    ],
+    [
+      0.000129,
+      "\b\u001b[39m\u001b[49m\u001b[1K \u001b[37m\u001b[40m╗\u001b[2;106H"
+    ],
+    [
+      0.000156,
+      "\u001b]0;mc [miguel@megaloman]:~\u0007\u001b>"
+    ],
+    [
+      0.000337,
+      "\u001b[7;1H\u001b[39m\u001b[49mHint: Want your plain shell? Press C-o, and get back to MC with C-o again.\u001b[7;106H"
+    ],
+    [
+      0.000251,
+      "\u001b]0;mc [miguel@megaloman]:~\u0007\u001b>"
+    ],
+    [
+      0.000102,
+      "\u001b[1;1H\u001b[30m\u001b[47m  Left     File     Command     Options     Right                                                         \u001b[2;1H\u001b[37m\u001b[40m╔«═\u001b[97m\u001b[105m ~ \u001b[37m\u001b[40m═════════════════════════════════════════⋅[^]»╗╔«═ ~ ═════════════════════════════════════════⋅[^]»\r\n║\u001b[97m↑n           Name             \u001b[37m│\u001b[97m Size  \u001b[37m│\u001b[97mModify time \u001b[37m║║\u001b[97m↑n           Name             \u001b[37m│\u001b[97m Size  \u001b[37m│\u001b[97mModify time \u001b[37m║\u001b[4;1H╟───────────────────────────────────────────────────╢╟───────────────────────────────────────────────────╢\u001b[5;1H║UP--DIR                                            ║║"
+    ],
+    [
+      1e-05,
+      "UP--DIR                                            ║\u001b[6;1H╚═════════════════════════════════ 158G/234G (67%) ═╝╚═════════════════════════════════ 158G/234G (67%) ═╝\u001b[8;1H\u001b[39m\u001b[49mmiguel@megaloman:~$\u001b[84C\u001b[31m[^]\u001b[9;1H 1\u001b[97mHelp    \u001b[31m 2\u001b[97mMenu    \u001b[31m 3\u001b[97mView     \u001b[31m 4\u001b[97mEdit     \u001b[31m 5\u001b[97mCopy     \u001b[31m 6\u001b[97mRenMov  \u001b[31m 7\u001b[97mMkdir   \u001b[31m 8\u001b[97mDelete   \u001b[31m 9\u001b[97mPullDn   \u001b[31m10\u001b[97mQuit    \u001b[9;105H \b\u001b[4h \u001b[4l\u001b[8;21H"
+    ],
+    [
+      1.221371,
+      "\u001b[1;1H\u001b[39m                                                                                                          \u001b[2;1H                                                                                                          \u001b[3;1H                                                                                                          \u001b[4;1H                                                                                                          \u001b[5;1H                                                                                                          \u001b[6;1H                                                                                                          \u001b[7;1H                                                                                                          \u001b[8;1H                                                                                                          \u001b[9;1H                                                                                                         \u001b[1;106H\u001b[?2"
+    ],
+    [
+      4.5e-05,
+      "004l\u001b[?1006l\u001b[?1002l\u001b[?1001r"
+    ],
+    [
+      0.000416,
+      "\u001b[?1l\u001b>\u001b[9;1H\u001b[m\u000f\u001b[39;49m\r                                                                                                         \r\u001b[?1l\u001b>\u001b[?1049l\u001b[39;49m"
+    ],
+    [
+      0.000319,
+      "\r\n"
+    ],
+    [
+      0.001118,
+      "miguel@megaloman:~$ "
+    ],
+    [
+      0.791031,
+      "e"
+    ],
+    [
+      0.62602,
+      "\b\u001b[K"
+    ]
+  ],
+  "height": 9,
+  "command": null,
+  "version": 1
+}
\ No newline at end of file
diff --git a/080_blog/00040_Haskell/00065_Base64-Encoder/index.md b/080_blog/00040_Haskell/00065_Base64-Encoder/index.md
new file mode 100644
index 0000000..0ede6cf
--- /dev/null
+++ b/080_blog/00040_Haskell/00065_Base64-Encoder/index.md
@@ -0,0 +1,19 @@
+Miguel's Base64 Encoder 
+=======================
+    February 19, 2018
+
+Coded on a winter afternoon to fully understand **base64 encoding** and play with 
+**Haskell**, which is always an indisputable pleasure.
+
+Coded in _big anger_, due to Nick's fairy tales about saving his encrypted binary
+data in plain ASCII configuration files, featuring strange letters and 
+non-printable characters. :P
+
+<asciinema-player cols="106" rows="9" preload="true" theme="solarized-dark" autoplay="true" src="base64.cast"></asciinema-player>
+
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ {.haskell .numberLines}
+{BEGIN:EMBED}
+https://gitweb.softwarefools.com/?p=miguel/haskell.git;a=blob_plain;f=base64/base64.hs
+{END:EMBED}
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+The above code was auto-fetched from: <https://gitweb.softwarefools.com/?p=miguel/haskell.git;a=blob_plain;f=base64/base64.hs>