From: Michael D. Lowis <mike.lowis@gentex.com>
Date: Thu, 5 Apr 2018 18:31:00 +0000 (-0400)
Subject: updated to acm-like color scheme
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=b637cd4cadd8d088f1fccd08935a57a1c007b8c4;p=archive%2Ftide-ocaml.git

updated to acm-like color scheme
---

diff --git a/lib/cfg.ml b/lib/cfg.ml
index 501f17c..1bccdc3 100644
--- a/lib/cfg.ml
+++ b/lib/cfg.ml
@@ -54,22 +54,24 @@ let max_scan_dist = intvar "tide.input.max_scan_dist" 0
 module Color = struct
   (* color palette *)
   let palette = [|
-    intvar "tide.palette.00" 0xff002b36;
-    intvar "tide.palette.01" 0xff073642;
-    intvar "tide.palette.02" 0xff40565d;
-    intvar "tide.palette.03" 0xff657b83;
-    intvar "tide.palette.04" 0xff839496;
-    intvar "tide.palette.05" 0xff93a1a1;
-    intvar "tide.palette.06" 0xffeee8d5;
-    intvar "tide.palette.07" 0xfffdf6e3;
-    intvar "tide.palette.08" 0xffb58900;
-    intvar "tide.palette.09" 0xffcb4b16;
-    intvar "tide.palette.10" 0xffdc322f;
-    intvar "tide.palette.11" 0xffd33682;
-    intvar "tide.palette.12" 0xff6c71c4;
-    intvar "tide.palette.13" 0xff268bd2;
-    intvar "tide.palette.14" 0xff2aa198;
-    intvar "tide.palette.15" 0xff859900;
+    intvar "tide.palette.00" 0xefefda; (* Edit background *)
+    intvar "tide.palette.01" 0xdaefef; (* Tags background *)
+    intvar "tide.palette.02" 0xdede8e; (* Edit selection *)
+    intvar "tide.palette.03" 0x8edede; (* Tags Selection *)
+    intvar "tide.palette.04" 0x000000; (* Text and cursor *)
+    intvar "tide.palette.05" 0x89893c; (* Scroll background *)
+    intvar "tide.palette.06" 0x7878bc; (* Border color *)
+    intvar "tide.palette.07" 0x000000; (* unused *)
+
+    intvar "tide.palette.08" 0x772222; (* Red *)
+    intvar "tide.palette.09" 0x227722; (* Green *)
+    intvar "tide.palette.10" 0x222277; (* Blue *)
+
+    intvar "tide.palette.11" 0x004488; (*  *)
+    intvar "tide.palette.12" 0x770077; (*  *)
+    intvar "tide.palette.13" 0x007777; (*  *)
+    intvar "tide.palette.14" 0xeeeecc; (*  *)
+    intvar "tide.palette.15" 0xff8c00; (*  *)
   |]
 
   (* UI color index definitions *)
@@ -90,12 +92,12 @@ module Color = struct
 
   (* syntax color definitions *)
   module Syntax = struct
-    let normal    = intvar "tide.colors.syntax.normal"    5
-    let comment   = intvar "tide.colors.syntax.comment"   3
-    let constant  = intvar "tide.colors.syntax.constant"  14
-    let keyword   = intvar "tide.colors.syntax.keyword"   15
-    let typedef   = intvar "tide.colors.syntax.typedef"   8
-    let preproc   = intvar "tide.colors.syntax.preproc"   9
+    let normal    = intvar "tide.colors.syntax.normal"    4
+    let comment   = intvar "tide.colors.syntax.comment"   8
+    let constant  = intvar "tide.colors.syntax.constant"  9
+    let keyword   = intvar "tide.colors.syntax.keyword"   10
+    let typedef   = intvar "tide.colors.syntax.typedef"   10
+    let preproc   = intvar "tide.colors.syntax.preproc"   4
 (*
     let number    = intvar "tide.colors.syntax.number"    14
     let boolean   = intvar "tide.colors.syntax.boolean"   14
diff --git a/lib/draw.ml b/lib/draw.ml
index f61ea0a..84c0beb 100644
--- a/lib/draw.ml
+++ b/lib/draw.ml
@@ -113,8 +113,8 @@ let rectangle color width height csr =
 (* curried helpers *)
 let dark_bkg = rectangle Cfg.Color.palette.(0)
 let light_bkg = rectangle Cfg.Color.palette.(1)
-let rule_bkg = rectangle Cfg.Color.palette.(3)
-let draw_cursor = rectangle Cfg.Color.palette.(6) 1 font_height
+let rule_bkg = rectangle Cfg.Color.palette.(5)
+let draw_cursor = rectangle Cfg.Color.palette.(4) 1 font_height
 
 let hrule width csr =
   rule_bkg width 1 csr;
diff --git a/lib/misc_prims.c b/lib/misc_prims.c
index fdb0a92..4cfa5f9 100644
--- a/lib/misc_prims.c
+++ b/lib/misc_prims.c
@@ -9,9 +9,7 @@ CAMLprim value load_file(value path) {
     CAMLlocal1(str);
     int fd, nread;
     struct stat sb;
-    if (((fd = open(String_val(path), O_RDONLY, 0)) < 0) ||
-        (fstat(fd, &sb) < 0) ||
-        (sb.st_size == 0)) {
+    if (((fd = open(path, O_RDONLY, 0)) < 0) || (fstat(fd, &sb) < 0) || (sb.st_size == 0)) {
         str = caml_alloc_string(0);
     } else {
         str = caml_alloc_string(sb.st_size);
diff --git a/lib/x11_prims.c b/lib/x11_prims.c
index 2f6b8f6..39f7835 100644
--- a/lib/x11_prims.c
+++ b/lib/x11_prims.c
@@ -581,7 +581,7 @@ static int32_t special_keys(int32_t key) {
  ******************************************************************************/
 static void xftcolor(XftColor* xc, int c) {
     #define COLOR(c) ((c) | ((c) >> 8))
-    xc->color.alpha = COLOR((c & 0xFF000000) >> 16);
+    xc->color.alpha = 0xFFFF;
     xc->color.red   = COLOR((c & 0x00FF0000) >> 8);
     xc->color.green = COLOR((c & 0x0000FF00));
     xc->color.blue  = COLOR((c & 0x000000FF) << 8);