From 9d65e5e6a5bd8666baf0d7d3e0474c721cafc683 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 28 Dec 2020 21:17:20 +0100 Subject: Fixed width and angle sliddes --- theme/dune | 7 ------- theme/nord.ml | 39 --------------------------------------- theme/theme.ml | 1 - 3 files changed, 47 deletions(-) delete mode 100755 theme/dune delete mode 100755 theme/nord.ml delete mode 100755 theme/theme.ml (limited to 'theme') diff --git a/theme/dune b/theme/dune deleted file mode 100755 index a812bef..0000000 --- a/theme/dune +++ /dev/null @@ -1,7 +0,0 @@ -(library - (name theme) - (libraries - color - gg - ) - ) diff --git a/theme/nord.ml b/theme/nord.ml deleted file mode 100755 index 4748d83..0000000 --- a/theme/nord.ml +++ /dev/null @@ -1,39 +0,0 @@ -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.) diff --git a/theme/theme.ml b/theme/theme.ml deleted file mode 100755 index 39974b1..0000000 --- a/theme/theme.ml +++ /dev/null @@ -1 +0,0 @@ -module Nord = Nord -- cgit v1.2.3