@softwarefactory-project/re-ansi 0.7.4 → 0.7.6

package/README.md

@@ -88,6 +88,14 @@ To make a release:
 
 ## Changes
 
+### 0.7.6
+
+- Add support for 256 colors mode.
+
+### 0.7.5
+
+- Fix link parsing when escape sequences at end of URL.
+
 ### 0.7.4
 
 - Add the missing `Ansi.res.js` to the release.

package/package.json

@@ -1,13 +1,14 @@
 {
   "name": "@softwarefactory-project/re-ansi",
-  "version": "0.7.4",
+  "version": "0.7.6",
   "description": "ANSI code to HTML",
   "files": [
     "README.md",
     "LICENSE",
     "rescript.json",
     "src/Ansi.res",
-    "src/Ansi.res.js"
+    "src/Ansi.res.js",
+    "src/AnsiColors.res"
   ],
   "main": "./src/Ansi.res.js",
   "type": "module",
@@ -15,7 +16,7 @@
   "homepage": "https://github.com/softwarefactory-project/re-ansi",
   "repository": {
     "type": "git",
-    "url": "git+https://softwarefactory-project.io/r/software-factory/re-ansi.git"
+    "url": "https://github.com/softwarefactory-project/re-ansi.git"
   },
   "scripts": {
     "build": "rescript",

package/src/Ansi.res

@@ -78,6 +78,20 @@ module AnsiCode = {
   let addStyle = fontStyle => ReactDOM.Style.make(~fontStyle, ());
   let addDecoration = textDecoration => ReactDOM.Style.make(~textDecoration, ());
   let int_of_cp = c => c - 48;
+  let int_of_3bcd = (d3, d2, d1) => d3->int_of_cp * 100 + d2->int_of_cp * 10 + d1->int_of_cp;
+
+  // 256 Colors
+  module Color256 = {
+    let get = (colorMode: int, colorValue: int): option<code> =>
+        colorValue->AnsiColors.heightBitColors->Option.flatMap(color =>
+          switch (colorMode->int_of_cp) {
+          | 3 => ReactDOM.Style.make(~color, ())->Style->Some
+          | 4 => ReactDOM.Style.make(~background=color, ())->Style->Some
+          | _ =>
+            Js.log3("Unknown 256color code:", colorMode, colorValue);
+            None;
+        })
+  }
 
   // Color management
   module ColorCss = {
@@ -153,7 +167,7 @@ module AnsiCode = {
 
   // Link management
   module HttpLink = {
-    let linkRe = RegExp.fromString("^(http(s)?:\\/\\/[^\\)>\\s]+)");
+    let linkRe = RegExp.fromString("^(http(s)?:\\/\\/[^\\)>\\s\x1b]+)");
 
     let get = (txt: string): parser<code> =>
       linkRe
@@ -237,7 +251,13 @@ module AnsiCode = {
               | None => colorCss->Style->Some
               }
             ),
-        )
+      )
+      // [_8;5;_m
+      | [91, fgbg, 56, 59, 53, 59, c1] => (length, Color256.get(fgbg, c1->int_of_cp))
+      // [_8;5;__m
+      | [91, fgbg, 56, 59, 53, 59, c2, c1] => (length, Color256.get(fgbg, int_of_3bcd(0, c2, c1)))
+      // [_8;5;___m
+      | [91, fgbg, 56, 59, 53, 59, c3, c2, c1] => (length, Color256.get(fgbg, int_of_3bcd(c3, c2, c1)))
       // [0_;__;__m]
       | [91, 48, style, 59, cm1, cv1, 59, cm2, cv2] as xs
       // [_;__;__m

package/src/Ansi.res.js

@@ -53,6 +53,518 @@ function sliceToEnd(from, obj) {
 }
 __name(sliceToEnd, "sliceToEnd");
 
+// src/AnsiColors.res.mjs
+function heightBitColors(code) {
+  switch (code) {
+    case 1:
+      return "#800000";
+    case 2:
+      return "#008000";
+    case 3:
+      return "#808000";
+    case 4:
+      return "#000080";
+    case 5:
+      return "#800080";
+    case 6:
+      return "#008080";
+    case 7:
+      return "#c0c0c0";
+    case 0:
+    case 16:
+      return "#000000";
+    case 17:
+      return "#00005f";
+    case 18:
+      return "#000087";
+    case 19:
+      return "#0000af";
+    case 20:
+      return "#0000d7";
+    case 12:
+    case 21:
+      return "#0000ff";
+    case 22:
+      return "#005f00";
+    case 23:
+      return "#005f5f";
+    case 24:
+      return "#005f87";
+    case 25:
+      return "#005faf";
+    case 26:
+      return "#005fd7";
+    case 27:
+      return "#005fff";
+    case 28:
+      return "#008700";
+    case 29:
+      return "#00875f";
+    case 30:
+      return "#008787";
+    case 31:
+      return "#0087af";
+    case 32:
+      return "#0087d7";
+    case 33:
+      return "#0087ff";
+    case 34:
+      return "#00af00";
+    case 35:
+      return "#00af5f";
+    case 36:
+      return "#00af87";
+    case 37:
+      return "#00afaf";
+    case 38:
+      return "#00afd7";
+    case 39:
+      return "#00afff";
+    case 40:
+      return "#00d700";
+    case 41:
+      return "#00d75f";
+    case 42:
+      return "#00d787";
+    case 43:
+      return "#00d7af";
+    case 44:
+      return "#00d7d7";
+    case 45:
+      return "#00d7ff";
+    case 10:
+    case 46:
+      return "#00ff00";
+    case 47:
+      return "#00ff5f";
+    case 48:
+      return "#00ff87";
+    case 49:
+      return "#00ffaf";
+    case 50:
+      return "#00ffd7";
+    case 14:
+    case 51:
+      return "#00ffff";
+    case 52:
+      return "#5f0000";
+    case 53:
+      return "#5f005f";
+    case 54:
+      return "#5f0087";
+    case 55:
+      return "#5f00af";
+    case 56:
+      return "#5f00d7";
+    case 57:
+      return "#5f00ff";
+    case 58:
+      return "#5f5f00";
+    case 59:
+      return "#5f5f5f";
+    case 60:
+      return "#5f5f87";
+    case 61:
+      return "#5f5faf";
+    case 62:
+      return "#5f5fd7";
+    case 63:
+      return "#5f5fff";
+    case 64:
+      return "#5f8700";
+    case 65:
+      return "#5f875f";
+    case 66:
+      return "#5f8787";
+    case 67:
+      return "#5f87af";
+    case 68:
+      return "#5f87d7";
+    case 69:
+      return "#5f87ff";
+    case 70:
+      return "#5faf00";
+    case 71:
+      return "#5faf5f";
+    case 72:
+      return "#5faf87";
+    case 73:
+      return "#5fafaf";
+    case 74:
+      return "#5fafd7";
+    case 75:
+      return "#5fafff";
+    case 76:
+      return "#5fd700";
+    case 77:
+      return "#5fd75f";
+    case 78:
+      return "#5fd787";
+    case 79:
+      return "#5fd7af";
+    case 80:
+      return "#5fd7d7";
+    case 81:
+      return "#5fd7ff";
+    case 82:
+      return "#5fff00";
+    case 83:
+      return "#5fff5f";
+    case 84:
+      return "#5fff87";
+    case 85:
+      return "#5fffaf";
+    case 86:
+      return "#5fffd7";
+    case 87:
+      return "#5fffff";
+    case 88:
+      return "#870000";
+    case 89:
+      return "#87005f";
+    case 90:
+      return "#870087";
+    case 91:
+      return "#8700af";
+    case 92:
+      return "#8700d7";
+    case 93:
+      return "#8700ff";
+    case 94:
+      return "#875f00";
+    case 95:
+      return "#875f5f";
+    case 96:
+      return "#875f87";
+    case 97:
+      return "#875faf";
+    case 98:
+      return "#875fd7";
+    case 99:
+      return "#875fff";
+    case 100:
+      return "#878700";
+    case 101:
+      return "#87875f";
+    case 102:
+      return "#878787";
+    case 103:
+      return "#8787af";
+    case 104:
+      return "#8787d7";
+    case 105:
+      return "#8787ff";
+    case 106:
+      return "#87af00";
+    case 107:
+      return "#87af5f";
+    case 108:
+      return "#87af87";
+    case 109:
+      return "#87afaf";
+    case 110:
+      return "#87afd7";
+    case 111:
+      return "#87afff";
+    case 112:
+      return "#87d700";
+    case 113:
+      return "#87d75f";
+    case 114:
+      return "#87d787";
+    case 115:
+      return "#87d7af";
+    case 116:
+      return "#87d7d7";
+    case 117:
+      return "#87d7ff";
+    case 118:
+      return "#87ff00";
+    case 119:
+      return "#87ff5f";
+    case 120:
+      return "#87ff87";
+    case 121:
+      return "#87ffaf";
+    case 122:
+      return "#87ffd7";
+    case 123:
+      return "#87ffff";
+    case 124:
+      return "#af0000";
+    case 125:
+      return "#af005f";
+    case 126:
+      return "#af0087";
+    case 127:
+      return "#af00af";
+    case 128:
+      return "#af00d7";
+    case 129:
+      return "#af00ff";
+    case 130:
+      return "#af5f00";
+    case 131:
+      return "#af5f5f";
+    case 132:
+      return "#af5f87";
+    case 133:
+      return "#af5faf";
+    case 134:
+      return "#af5fd7";
+    case 135:
+      return "#af5fff";
+    case 136:
+      return "#af8700";
+    case 137:
+      return "#af875f";
+    case 138:
+      return "#af8787";
+    case 139:
+      return "#af87af";
+    case 140:
+      return "#af87d7";
+    case 141:
+      return "#af87ff";
+    case 142:
+      return "#afaf00";
+    case 143:
+      return "#afaf5f";
+    case 144:
+      return "#afaf87";
+    case 145:
+      return "#afafaf";
+    case 146:
+      return "#afafd7";
+    case 147:
+      return "#afafff";
+    case 148:
+      return "#afd700";
+    case 149:
+      return "#afd75f";
+    case 150:
+      return "#afd787";
+    case 151:
+      return "#afd7af";
+    case 152:
+      return "#afd7d7";
+    case 153:
+      return "#afd7ff";
+    case 154:
+      return "#afff00";
+    case 155:
+      return "#afff5f";
+    case 156:
+      return "#afff87";
+    case 157:
+      return "#afffaf";
+    case 158:
+      return "#afffd7";
+    case 159:
+      return "#afffff";
+    case 160:
+      return "#d70000";
+    case 161:
+      return "#d7005f";
+    case 162:
+      return "#d70087";
+    case 163:
+      return "#d700af";
+    case 164:
+      return "#d700d7";
+    case 165:
+      return "#d700ff";
+    case 166:
+      return "#d75f00";
+    case 167:
+      return "#d75f5f";
+    case 168:
+      return "#d75f87";
+    case 169:
+      return "#d75faf";
+    case 170:
+      return "#d75fd7";
+    case 171:
+      return "#d75fff";
+    case 172:
+      return "#d78700";
+    case 173:
+      return "#d7875f";
+    case 174:
+      return "#d78787";
+    case 175:
+      return "#d787af";
+    case 176:
+      return "#d787d7";
+    case 177:
+      return "#d787ff";
+    case 178:
+      return "#d7af00";
+    case 179:
+      return "#d7af5f";
+    case 180:
+      return "#d7af87";
+    case 181:
+      return "#d7afaf";
+    case 182:
+      return "#d7afd7";
+    case 183:
+      return "#d7afff";
+    case 184:
+      return "#d7d700";
+    case 185:
+      return "#d7d75f";
+    case 186:
+      return "#d7d787";
+    case 187:
+      return "#d7d7af";
+    case 188:
+      return "#d7d7d7";
+    case 189:
+      return "#d7d7ff";
+    case 190:
+      return "#d7ff00";
+    case 191:
+      return "#d7ff5f";
+    case 192:
+      return "#d7ff87";
+    case 193:
+      return "#d7ffaf";
+    case 194:
+      return "#d7ffd7";
+    case 195:
+      return "#d7ffff";
+    case 9:
+    case 196:
+      return "#ff0000";
+    case 197:
+      return "#ff005f";
+    case 198:
+      return "#ff0087";
+    case 199:
+      return "#ff00af";
+    case 200:
+      return "#ff00d7";
+    case 13:
+    case 201:
+      return "#ff00ff";
+    case 202:
+      return "#ff5f00";
+    case 203:
+      return "#ff5f5f";
+    case 204:
+      return "#ff5f87";
+    case 205:
+      return "#ff5faf";
+    case 206:
+      return "#ff5fd7";
+    case 207:
+      return "#ff5fff";
+    case 208:
+      return "#ff8700";
+    case 209:
+      return "#ff875f";
+    case 210:
+      return "#ff8787";
+    case 211:
+      return "#ff87af";
+    case 212:
+      return "#ff87d7";
+    case 213:
+      return "#ff87ff";
+    case 214:
+      return "#ffaf00";
+    case 215:
+      return "#ffaf5f";
+    case 216:
+      return "#ffaf87";
+    case 217:
+      return "#ffafaf";
+    case 218:
+      return "#ffafd7";
+    case 219:
+      return "#ffafff";
+    case 220:
+      return "#ffd700";
+    case 221:
+      return "#ffd75f";
+    case 222:
+      return "#ffd787";
+    case 223:
+      return "#ffd7af";
+    case 224:
+      return "#ffd7d7";
+    case 225:
+      return "#ffd7ff";
+    case 11:
+    case 226:
+      return "#ffff00";
+    case 227:
+      return "#ffff5f";
+    case 228:
+      return "#ffff87";
+    case 229:
+      return "#ffffaf";
+    case 230:
+      return "#ffffd7";
+    case 15:
+    case 231:
+      return "#ffffff";
+    case 232:
+      return "#080808";
+    case 233:
+      return "#121212";
+    case 234:
+      return "#1c1c1c";
+    case 235:
+      return "#262626";
+    case 236:
+      return "#303030";
+    case 237:
+      return "#3a3a3a";
+    case 238:
+      return "#444444";
+    case 239:
+      return "#4e4e4e";
+    case 240:
+      return "#585858";
+    case 241:
+      return "#626262";
+    case 242:
+      return "#6c6c6c";
+    case 243:
+      return "#767676";
+    case 8:
+    case 244:
+      return "#808080";
+    case 245:
+      return "#8a8a8a";
+    case 246:
+      return "#949494";
+    case 247:
+      return "#9e9e9e";
+    case 248:
+      return "#a8a8a8";
+    case 249:
+      return "#b2b2b2";
+    case 250:
+      return "#bcbcbc";
+    case 251:
+      return "#c6c6c6";
+    case 252:
+      return "#d0d0d0";
+    case 253:
+      return "#dadada";
+    case 254:
+      return "#e4e4e4";
+    case 255:
+      return "#eeeeee";
+    default:
+      return;
+  }
+}
+__name(heightBitColors, "heightBitColors");
+
 // node_modules/@rescript/core/src/Core__List.res.mjs
 function add(xs, x) {
   return {
@@ -299,6 +811,39 @@ function int_of_cp(c) {
   return c - 48 | 0;
 }
 __name(int_of_cp, "int_of_cp");
+function int_of_3bcd(d3, d2, d1) {
+  return (Math.imul(d3 - 48 | 0, 100) + Math.imul(d2 - 48 | 0, 10) | 0) + (d1 - 48 | 0) | 0;
+}
+__name(int_of_3bcd, "int_of_3bcd");
+function get(colorMode, colorValue) {
+  return flatMap(heightBitColors(colorValue), function(color) {
+    var match = colorMode - 48 | 0;
+    if (match !== 3) {
+      if (match !== 4) {
+        console.log("Unknown 256color code:", colorMode, colorValue);
+        return;
+      } else {
+        return {
+          TAG: "Style",
+          _0: {
+            background: color
+          }
+        };
+      }
+    } else {
+      return {
+        TAG: "Style",
+        _0: {
+          color
+        }
+      };
+    }
+  });
+}
+__name(get, "get");
+var Color256 = {
+  get
+};
 function getColorStyle(colorMode, colorValue) {
   switch (colorMode) {
     case 3:
@@ -346,14 +891,14 @@ function getColorStyleCss(color) {
   }
 }
 __name(getColorStyleCss, "getColorStyleCss");
-function get(colorMode, colorValue) {
+function get$1(colorMode, colorValue) {
   return flatMap(getColorStyle(colorMode - 48 | 0, colorValue - 48 | 0), getColorStyleCss);
 }
-__name(get, "get");
+__name(get$1, "get$1");
 var ColorCss = {
   getColorStyle,
   getColorStyleCss,
-  get
+  get: get$1
 };
 function getFontStyle(fontMode) {
   switch (fontMode) {
@@ -398,17 +943,17 @@ function getFontStyleCss(font) {
   }
 }
 __name(getFontStyleCss, "getFontStyleCss");
-function get$1(fontMode) {
+function get$2(fontMode) {
   return flatMap(getFontStyle(fontMode - 48 | 0), getFontStyleCss);
 }
-__name(get$1, "get$1");
+__name(get$2, "get$2");
 var FontCss = {
   getFontStyle,
   getFontStyleCss,
-  get: get$1
+  get: get$2
 };
-var linkRe = new RegExp("^(http(s)?:\\/\\/[^\\)>\\s]+)");
-function get$2(txt) {
+var linkRe = new RegExp("^(http(s)?:\\/\\/[^\\)>\\s\x1B]+)");
+function get$3(txt) {
   return getOr(flatMap(nullable_to_opt(linkRe.exec(txt)), function(res) {
     return flatMap(res[0], function(url) {
       return [
@@ -424,10 +969,10 @@ function get$2(txt) {
     void 0
   ]);
 }
-__name(get$2, "get$2");
+__name(get$3, "get$3");
 var HttpLink = {
   linkRe,
-  get: get$2
+  get: get$3
 };
 function parse(txt, pos) {
   var match = codePointAt(pos, txt);
@@ -446,7 +991,7 @@ function parse(txt, pos) {
           void 0
         ];
       } else {
-        return get$2(slice(pos, 512, txt));
+        return get$3(slice(pos, 512, txt));
       }
     }
     exit = 1;
@@ -528,6 +1073,11 @@ function parse(txt, pos) {
       ];
     }
     switch (len) {
+      case 0:
+        return [
+          1,
+          void 0
+        ];
       case 1:
         var match$1 = codePoints[0];
         if (match$1 !== 91) {
@@ -553,7 +1103,7 @@ function parse(txt, pos) {
         if (style$2 !== 48) {
           return [
             length2,
-            flatMap(get$1(style$2), function(style2) {
+            flatMap(get$2(style$2), function(style2) {
               return {
                 TAG: "Style",
                 _0: style2
@@ -680,13 +1230,7 @@ function parse(txt, pos) {
         style = style$4;
         exit$1 = 3;
         break;
-      case 0:
       case 7:
-        return [
-          1,
-          void 0
-        ];
-      case 8:
         var match$12 = codePoints[0];
         if (match$12 !== 91) {
           return [
@@ -694,88 +1238,185 @@ function parse(txt, pos) {
             void 0
           ];
         }
-        var style$5 = codePoints[1];
+        var fgbg = codePoints[1];
         var match$13 = codePoints[2];
-        if (match$13 !== 59) {
+        if (match$13 !== 56) {
           return [
             1,
             void 0
           ];
         }
-        var cm1$1 = codePoints[3];
-        var cv1$1 = codePoints[4];
-        var match$14 = codePoints[5];
+        var match$14 = codePoints[3];
         if (match$14 !== 59) {
           return [
             1,
             void 0
           ];
         }
-        var cm2$1 = codePoints[6];
-        var cv2$1 = codePoints[7];
-        style$1 = style$5;
-        cm1 = cm1$1;
-        cv1 = cv1$1;
-        cm2 = cm2$1;
-        cv2 = cv2$1;
-        xs$1 = codePoints;
-        exit$1 = 4;
+        var match$15 = codePoints[4];
+        if (match$15 !== 53) {
+          return [
+            1,
+            void 0
+          ];
+        }
+        var match$16 = codePoints[5];
+        if (match$16 !== 59) {
+          return [
+            1,
+            void 0
+          ];
+        }
+        var c1 = codePoints[6];
+        return [
+          length2,
+          get(fgbg, c1 - 48 | 0)
+        ];
+      case 8:
+        var match$17 = codePoints[0];
+        if (match$17 !== 91) {
+          return [
+            1,
+            void 0
+          ];
+        }
+        var fgbg$1 = codePoints[1];
+        var match$18 = codePoints[2];
+        if (match$18 !== 56) {
+          if (match$18 !== 59) {
+            return [
+              1,
+              void 0
+            ];
+          }
+          var cm1$1 = codePoints[3];
+          var cv1$1 = codePoints[4];
+          var match$19 = codePoints[5];
+          if (match$19 !== 59) {
+            return [
+              1,
+              void 0
+            ];
+          }
+          var cm2$1 = codePoints[6];
+          var cv2$1 = codePoints[7];
+          style$1 = fgbg$1;
+          cm1 = cm1$1;
+          cv1 = cv1$1;
+          cm2 = cm2$1;
+          cv2 = cv2$1;
+          xs$1 = codePoints;
+          exit$1 = 4;
+        } else {
+          var match$20 = codePoints[3];
+          if (match$20 !== 59) {
+            return [
+              1,
+              void 0
+            ];
+          }
+          var match$21 = codePoints[4];
+          if (match$21 !== 53) {
+            return [
+              1,
+              void 0
+            ];
+          }
+          var match$22 = codePoints[5];
+          if (match$22 !== 59) {
+            return [
+              1,
+              void 0
+            ];
+          }
+          var c2 = codePoints[6];
+          var c1$1 = codePoints[7];
+          return [
+            length2,
+            get(fgbg$1, int_of_3bcd(0, c2, c1$1))
+          ];
+        }
         break;
       case 9:
-        var match$15 = codePoints[0];
-        if (match$15 !== 91) {
+        var match$23 = codePoints[0];
+        if (match$23 !== 91) {
           return [
             1,
             void 0
           ];
         }
-        var style$6 = codePoints[1];
+        var fgbg$2 = codePoints[1];
         var exit$3 = 0;
-        if (style$6 !== 48) {
-          exit$3 = 5;
+        var match$24 = codePoints[2];
+        if (match$24 !== 56) {
+          if (match$24 !== 59) {
+            exit$3 = 5;
+          } else {
+            var cm1$2 = codePoints[3];
+            var cv1$2 = codePoints[4];
+            var match$25 = codePoints[5];
+            if (match$25 !== 59) {
+              exit$3 = 5;
+            } else {
+              var match$26 = codePoints[6];
+              if (match$26 !== 49) {
+                exit$3 = 5;
+              } else {
+                var cm2$2 = codePoints[7];
+                var cv2$2 = codePoints[8];
+                style$1 = fgbg$2;
+                cm1 = cm1$2;
+                cv1 = cv1$2;
+                cm2 = cm2$2;
+                cv2 = cv2$2;
+                xs$1 = codePoints;
+                exit$1 = 4;
+              }
+            }
+          }
         } else {
-          var style$7 = codePoints[2];
-          var match$16 = codePoints[3];
-          if (match$16 !== 59) {
+          var match$27 = codePoints[3];
+          if (match$27 !== 59) {
             exit$3 = 5;
           } else {
-            var cm1$2 = codePoints[4];
-            var cv1$2 = codePoints[5];
-            var match$17 = codePoints[6];
-            if (match$17 !== 59) {
+            var match$28 = codePoints[4];
+            if (match$28 !== 53) {
               exit$3 = 5;
             } else {
-              var cm2$2 = codePoints[7];
-              var cv2$2 = codePoints[8];
-              style$1 = style$7;
-              cm1 = cm1$2;
-              cv1 = cv1$2;
-              cm2 = cm2$2;
-              cv2 = cv2$2;
-              xs$1 = codePoints;
-              exit$1 = 4;
+              var match$29 = codePoints[5];
+              if (match$29 !== 59) {
+                exit$3 = 5;
+              } else {
+                var c3 = codePoints[6];
+                var c2$1 = codePoints[7];
+                var c1$2 = codePoints[8];
+                return [
+                  length2,
+                  get(fgbg$2, int_of_3bcd(c3, c2$1, c1$2))
+                ];
+              }
             }
           }
         }
         if (exit$3 === 5) {
-          var match$18 = codePoints[2];
-          if (match$18 !== 59) {
+          if (fgbg$2 !== 48) {
             return [
               1,
               void 0
             ];
           }
-          var cm1$3 = codePoints[3];
-          var cv1$3 = codePoints[4];
-          var match$19 = codePoints[5];
-          if (match$19 !== 59) {
+          var style$5 = codePoints[2];
+          var match$30 = codePoints[3];
+          if (match$30 !== 59) {
             return [
               1,
               void 0
             ];
           }
-          var match$20 = codePoints[6];
-          if (match$20 !== 49) {
+          var cm1$3 = codePoints[4];
+          var cv1$3 = codePoints[5];
+          var match$31 = codePoints[6];
+          if (match$31 !== 59) {
             return [
               1,
               void 0
@@ -783,7 +1424,7 @@ function parse(txt, pos) {
           }
           var cm2$3 = codePoints[7];
           var cv2$3 = codePoints[8];
-          style$1 = style$6;
+          style$1 = style$5;
           cm1 = cm1$3;
           cv1 = cv1$3;
           cm2 = cm2$3;
@@ -793,23 +1434,23 @@ function parse(txt, pos) {
         }
         break;
       case 10:
-        var match$21 = codePoints[0];
-        if (match$21 !== 91) {
+        var match$32 = codePoints[0];
+        if (match$32 !== 91) {
           return [
             1,
             void 0
           ];
         }
-        var match$22 = codePoints[1];
-        if (match$22 !== 48) {
+        var match$33 = codePoints[1];
+        if (match$33 !== 48) {
           return [
             1,
             void 0
           ];
         }
-        var style$8 = codePoints[2];
-        var match$23 = codePoints[3];
-        if (match$23 !== 59) {
+        var style$6 = codePoints[2];
+        var match$34 = codePoints[3];
+        if (match$34 !== 59) {
           return [
             1,
             void 0
@@ -817,15 +1458,15 @@ function parse(txt, pos) {
         }
         var cm1$4 = codePoints[4];
         var cv1$4 = codePoints[5];
-        var match$24 = codePoints[6];
-        if (match$24 !== 59) {
+        var match$35 = codePoints[6];
+        if (match$35 !== 59) {
           return [
             1,
             void 0
           ];
         }
-        var match$25 = codePoints[7];
-        if (match$25 !== 49) {
+        var match$36 = codePoints[7];
+        if (match$36 !== 49) {
           return [
             1,
             void 0
@@ -833,7 +1474,7 @@ function parse(txt, pos) {
         }
         var cm2$4 = codePoints[8];
         var cv2$4 = codePoints[9];
-        style$1 = style$8;
+        style$1 = style$6;
         cm1 = cm1$4;
         cv1 = cv1$4;
         cm2 = cm2$4;
@@ -846,7 +1487,7 @@ function parse(txt, pos) {
       case 2:
         return [
           length2,
-          flatMap(get(colorMode, colorValue + (xs.length === 4 ? 10 : 0) | 0), function(colorCss) {
+          flatMap(get$1(colorMode, colorValue + (xs.length === 4 ? 10 : 0) | 0), function(colorCss) {
             return {
               TAG: "Style",
               _0: colorCss
@@ -856,8 +1497,8 @@ function parse(txt, pos) {
       case 3:
         return [
           length2,
-          flatMap(get(colorMode$1, colorValue$1), function(colorCss) {
-            var fontCss = get$1(style);
+          flatMap(get$1(colorMode$1, colorValue$1), function(colorCss) {
+            var fontCss = get$2(style);
             if (fontCss !== void 0) {
               return {
                 TAG: "Style",
@@ -874,10 +1515,10 @@ function parse(txt, pos) {
       case 4:
         return [
           length2,
-          flatMap(get(cm1, cv1), function(colorCss1) {
-            return flatMap(get(cm2, cv2 + (xs$1.length === 9 ? 10 : 0) | 0), function(colorCss2) {
+          flatMap(get$1(cm1, cv1), function(colorCss1) {
+            return flatMap(get$1(cm2, cv2 + (xs$1.length === 9 ? 10 : 0) | 0), function(colorCss2) {
               var css = Object.assign({}, colorCss1, colorCss2);
-              var fontCss = get$1(style$1);
+              var fontCss = get$2(style$1);
               if (fontCss !== void 0) {
                 return {
                   TAG: "Style",
@@ -904,6 +1545,8 @@ var AnsiCode = {
   addStyle,
   addDecoration,
   int_of_cp,
+  int_of_3bcd,
+  Color256,
   ColorCss,
   FontCss,
   HttpLink,

package/src/AnsiColors.res

@@ -0,0 +1,261 @@
+// From https://hexdocs.pm/color_palette/ansi_color_codes.html#content
+let heightBitColors = (code: int): option<string> =>
+    switch (code) {
+    | 0 => "#000000"->Some
+    | 1 => "#800000"->Some
+    | 2 => "#008000"->Some
+    | 3 => "#808000"->Some
+    | 4 => "#000080"->Some
+    | 5 => "#800080"->Some
+    | 6 => "#008080"->Some
+    | 7 => "#c0c0c0"->Some
+    | 8 => "#808080"->Some
+    | 9 => "#ff0000"->Some
+    | 10 => "#00ff00"->Some
+    | 11 => "#ffff00"->Some
+    | 12 => "#0000ff"->Some
+    | 13 => "#ff00ff"->Some
+    | 14 => "#00ffff"->Some
+    | 15 => "#ffffff"->Some
+    | 16 => "#000000"->Some
+    | 17 => "#00005f"->Some
+    | 18 => "#000087"->Some
+    | 19 => "#0000af"->Some
+    | 20 => "#0000d7"->Some
+    | 21 => "#0000ff"->Some
+    | 22 => "#005f00"->Some
+    | 23 => "#005f5f"->Some
+    | 24 => "#005f87"->Some
+    | 25 => "#005faf"->Some
+    | 26 => "#005fd7"->Some
+    | 27 => "#005fff"->Some
+    | 28 => "#008700"->Some
+    | 29 => "#00875f"->Some
+    | 30 => "#008787"->Some
+    | 31 => "#0087af"->Some
+    | 32 => "#0087d7"->Some
+    | 33 => "#0087ff"->Some
+    | 34 => "#00af00"->Some
+    | 35 => "#00af5f"->Some
+    | 36 => "#00af87"->Some
+    | 37 => "#00afaf"->Some
+    | 38 => "#00afd7"->Some
+    | 39 => "#00afff"->Some
+    | 40 => "#00d700"->Some
+    | 41 => "#00d75f"->Some
+    | 42 => "#00d787"->Some
+    | 43 => "#00d7af"->Some
+    | 44 => "#00d7d7"->Some
+    | 45 => "#00d7ff"->Some
+    | 46 => "#00ff00"->Some
+    | 47 => "#00ff5f"->Some
+    | 48 => "#00ff87"->Some
+    | 49 => "#00ffaf"->Some
+    | 50 => "#00ffd7"->Some
+    | 51 => "#00ffff"->Some
+    | 52 => "#5f0000"->Some
+    | 53 => "#5f005f"->Some
+    | 54 => "#5f0087"->Some
+    | 55 => "#5f00af"->Some
+    | 56 => "#5f00d7"->Some
+    | 57 => "#5f00ff"->Some
+    | 58 => "#5f5f00"->Some
+    | 59 => "#5f5f5f"->Some
+    | 60 => "#5f5f87"->Some
+    | 61 => "#5f5faf"->Some
+    | 62 => "#5f5fd7"->Some
+    | 63 => "#5f5fff"->Some
+    | 64 => "#5f8700"->Some
+    | 65 => "#5f875f"->Some
+    | 66 => "#5f8787"->Some
+    | 67 => "#5f87af"->Some
+    | 68 => "#5f87d7"->Some
+    | 69 => "#5f87ff"->Some
+    | 70 => "#5faf00"->Some
+    | 71 => "#5faf5f"->Some
+    | 72 => "#5faf87"->Some
+    | 73 => "#5fafaf"->Some
+    | 74 => "#5fafd7"->Some
+    | 75 => "#5fafff"->Some
+    | 76 => "#5fd700"->Some
+    | 77 => "#5fd75f"->Some
+    | 78 => "#5fd787"->Some
+    | 79 => "#5fd7af"->Some
+    | 80 => "#5fd7d7"->Some
+    | 81 => "#5fd7ff"->Some
+    | 82 => "#5fff00"->Some
+    | 83 => "#5fff5f"->Some
+    | 84 => "#5fff87"->Some
+    | 85 => "#5fffaf"->Some
+    | 86 => "#5fffd7"->Some
+    | 87 => "#5fffff"->Some
+    | 88 => "#870000"->Some
+    | 89 => "#87005f"->Some
+    | 90 => "#870087"->Some
+    | 91 => "#8700af"->Some
+    | 92 => "#8700d7"->Some
+    | 93 => "#8700ff"->Some
+    | 94 => "#875f00"->Some
+    | 95 => "#875f5f"->Some
+    | 96 => "#875f87"->Some
+    | 97 => "#875faf"->Some
+    | 98 => "#875fd7"->Some
+    | 99 => "#875fff"->Some
+    | 100 => "#878700"->Some
+    | 101 => "#87875f"->Some
+    | 102 => "#878787"->Some
+    | 103 => "#8787af"->Some
+    | 104 => "#8787d7"->Some
+    | 105 => "#8787ff"->Some
+    | 106 => "#87af00"->Some
+    | 107 => "#87af5f"->Some
+    | 108 => "#87af87"->Some
+    | 109 => "#87afaf"->Some
+    | 110 => "#87afd7"->Some
+    | 111 => "#87afff"->Some
+    | 112 => "#87d700"->Some
+    | 113 => "#87d75f"->Some
+    | 114 => "#87d787"->Some
+    | 115 => "#87d7af"->Some
+    | 116 => "#87d7d7"->Some
+    | 117 => "#87d7ff"->Some
+    | 118 => "#87ff00"->Some
+    | 119 => "#87ff5f"->Some
+    | 120 => "#87ff87"->Some
+    | 121 => "#87ffaf"->Some
+    | 122 => "#87ffd7"->Some
+    | 123 => "#87ffff"->Some
+    | 124 => "#af0000"->Some
+    | 125 => "#af005f"->Some
+    | 126 => "#af0087"->Some
+    | 127 => "#af00af"->Some
+    | 128 => "#af00d7"->Some
+    | 129 => "#af00ff"->Some
+    | 130 => "#af5f00"->Some
+    | 131 => "#af5f5f"->Some
+    | 132 => "#af5f87"->Some
+    | 133 => "#af5faf"->Some
+    | 134 => "#af5fd7"->Some
+    | 135 => "#af5fff"->Some
+    | 136 => "#af8700"->Some
+    | 137 => "#af875f"->Some
+    | 138 => "#af8787"->Some
+    | 139 => "#af87af"->Some
+    | 140 => "#af87d7"->Some
+    | 141 => "#af87ff"->Some
+    | 142 => "#afaf00"->Some
+    | 143 => "#afaf5f"->Some
+    | 144 => "#afaf87"->Some
+    | 145 => "#afafaf"->Some
+    | 146 => "#afafd7"->Some
+    | 147 => "#afafff"->Some
+    | 148 => "#afd700"->Some
+    | 149 => "#afd75f"->Some
+    | 150 => "#afd787"->Some
+    | 151 => "#afd7af"->Some
+    | 152 => "#afd7d7"->Some
+    | 153 => "#afd7ff"->Some
+    | 154 => "#afff00"->Some
+    | 155 => "#afff5f"->Some
+    | 156 => "#afff87"->Some
+    | 157 => "#afffaf"->Some
+    | 158 => "#afffd7"->Some
+    | 159 => "#afffff"->Some
+    | 160 => "#d70000"->Some
+    | 161 => "#d7005f"->Some
+    | 162 => "#d70087"->Some
+    | 163 => "#d700af"->Some
+    | 164 => "#d700d7"->Some
+    | 165 => "#d700ff"->Some
+    | 166 => "#d75f00"->Some
+    | 167 => "#d75f5f"->Some
+    | 168 => "#d75f87"->Some
+    | 169 => "#d75faf"->Some
+    | 170 => "#d75fd7"->Some
+    | 171 => "#d75fff"->Some
+    | 172 => "#d78700"->Some
+    | 173 => "#d7875f"->Some
+    | 174 => "#d78787"->Some
+    | 175 => "#d787af"->Some
+    | 176 => "#d787d7"->Some
+    | 177 => "#d787ff"->Some
+    | 178 => "#d7af00"->Some
+    | 179 => "#d7af5f"->Some
+    | 180 => "#d7af87"->Some
+    | 181 => "#d7afaf"->Some
+    | 182 => "#d7afd7"->Some
+    | 183 => "#d7afff"->Some
+    | 184 => "#d7d700"->Some
+    | 185 => "#d7d75f"->Some
+    | 186 => "#d7d787"->Some
+    | 187 => "#d7d7af"->Some
+    | 188 => "#d7d7d7"->Some
+    | 189 => "#d7d7ff"->Some
+    | 190 => "#d7ff00"->Some
+    | 191 => "#d7ff5f"->Some
+    | 192 => "#d7ff87"->Some
+    | 193 => "#d7ffaf"->Some
+    | 194 => "#d7ffd7"->Some
+    | 195 => "#d7ffff"->Some
+    | 196 => "#ff0000"->Some
+    | 197 => "#ff005f"->Some
+    | 198 => "#ff0087"->Some
+    | 199 => "#ff00af"->Some
+    | 200 => "#ff00d7"->Some
+    | 201 => "#ff00ff"->Some
+    | 202 => "#ff5f00"->Some
+    | 203 => "#ff5f5f"->Some
+    | 204 => "#ff5f87"->Some
+    | 205 => "#ff5faf"->Some
+    | 206 => "#ff5fd7"->Some
+    | 207 => "#ff5fff"->Some
+    | 208 => "#ff8700"->Some
+    | 209 => "#ff875f"->Some
+    | 210 => "#ff8787"->Some
+    | 211 => "#ff87af"->Some
+    | 212 => "#ff87d7"->Some
+    | 213 => "#ff87ff"->Some
+    | 214 => "#ffaf00"->Some
+    | 215 => "#ffaf5f"->Some
+    | 216 => "#ffaf87"->Some
+    | 217 => "#ffafaf"->Some
+    | 218 => "#ffafd7"->Some
+    | 219 => "#ffafff"->Some
+    | 220 => "#ffd700"->Some
+    | 221 => "#ffd75f"->Some
+    | 222 => "#ffd787"->Some
+    | 223 => "#ffd7af"->Some
+    | 224 => "#ffd7d7"->Some
+    | 225 => "#ffd7ff"->Some
+    | 226 => "#ffff00"->Some
+    | 227 => "#ffff5f"->Some
+    | 228 => "#ffff87"->Some
+    | 229 => "#ffffaf"->Some
+    | 230 => "#ffffd7"->Some
+    | 231 => "#ffffff"->Some
+    | 232 => "#080808"->Some
+    | 233 => "#121212"->Some
+    | 234 => "#1c1c1c"->Some
+    | 235 => "#262626"->Some
+    | 236 => "#303030"->Some
+    | 237 => "#3a3a3a"->Some
+    | 238 => "#444444"->Some
+    | 239 => "#4e4e4e"->Some
+    | 240 => "#585858"->Some
+    | 241 => "#626262"->Some
+    | 242 => "#6c6c6c"->Some
+    | 243 => "#767676"->Some
+    | 244 => "#808080"->Some
+    | 245 => "#8a8a8a"->Some
+    | 246 => "#949494"->Some
+    | 247 => "#9e9e9e"->Some
+    | 248 => "#a8a8a8"->Some
+    | 249 => "#b2b2b2"->Some
+    | 250 => "#bcbcbc"->Some
+    | 251 => "#c6c6c6"->Some
+    | 252 => "#d0d0d0"->Some
+    | 253 => "#dadada"->Some
+    | 254 => "#e4e4e4"->Some
+    | 255 => "#eeeeee"->Some
+    | _ => None
+    }