From 4f262d6540281487f79870aff589ca92f5d2f6c6 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Wed, 16 Dec 2020 14:39:42 +0100
Subject: Initial commit

---
 theme/nord.ml | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 theme/nord.ml

(limited to 'theme/nord.ml')

diff --git a/theme/nord.ml b/theme/nord.ml
new file mode 100755
index 0000000..4748d83
--- /dev/null
+++ b/theme/nord.ml
@@ -0,0 +1,39 @@
+open StdLabels
+
+let default = Color.of_rgb 5 255 255
+
+let theme =
+  [| "#2e3440"
+   ; "#3b4252"
+   ; "#434c5e"
+   ; "#4c566a"
+   (* Bright *)
+   ; "#d8dee9"
+   ; ""
+   ; "#eceff4"
+   (* Frost *)
+   ; "#8fbcbb"
+   ; ""
+   ; ""
+   ; ""
+   (* Aurora 11 - *)
+   ; "#bf616a" (* Redd color *)
+   ; ""
+   ; ""
+   ; "#a3be8c" (* Green color *)
+
+
+  |]
+  |> Array.map ~f:(fun f ->
+      Color.of_hexstring f
+      |> Option.value ~default
+    )
+
+let set_color t f =
+  let Color.Rgba'.{r; g; b; _ } = Color.to_rgba' (Array.get theme t) in
+  f r g b
+
+
+let to_gg t =
+  let Color.Rgba'.{r; g; b; _ } = Color.to_rgba' (Array.get theme t) in
+  Gg.Color.of_srgb (Gg.V4.v r g b 1.)
-- 
cgit v1.2.3