From fae31bdb659b4b14322136e045ea565d38bbd04f Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 29 Dec 2020 21:41:47 +0100
Subject: Dynamic width

---
 blog/dune                        | 14 +++++++++++++-
 blog/hash_prod/hash_blog.ml      |  1 +
 blog/hash_prod/hash_localhost.ml |  1 +
 blog/nord.ml                     |  1 +
 blog/sidebar.ml                  |  1 -
 5 files changed, 16 insertions(+), 2 deletions(-)
 create mode 100755 blog/hash_prod/hash_blog.ml
 create mode 100755 blog/hash_prod/hash_localhost.ml

(limited to 'blog')

diff --git a/blog/dune b/blog/dune
index afbefdb..fef8506 100755
--- a/blog/dune
+++ b/blog/dune
@@ -1,9 +1,21 @@
+(rule
+  (targets hash_host.ml)
+  (enabled_if (= %{profile} dev))
+  (action (run cp hash_prod/hash_localhost.ml hash_host.ml)))
+
+(rule
+  (targets hash_host.ml)
+  (enabled_if (<> %{profile} dev))
+  (action (run cp hash_prod/hash_blog.ml hash_host.ml)))
+
 (library
  (name blog)
  (libraries 
    brr
    brr.note
-   color
    elements
    )
+ (preprocess (pps ppx_hash))
+
+ 
  )
diff --git a/blog/hash_prod/hash_blog.ml b/blog/hash_prod/hash_blog.ml
new file mode 100755
index 0000000..f5e172e
--- /dev/null
+++ b/blog/hash_prod/hash_blog.ml
@@ -0,0 +1 @@
+let expected_host = [%static_hash "blog.chimrod.com"]
diff --git a/blog/hash_prod/hash_localhost.ml b/blog/hash_prod/hash_localhost.ml
new file mode 100755
index 0000000..c652b6a
--- /dev/null
+++ b/blog/hash_prod/hash_localhost.ml
@@ -0,0 +1 @@
+let expected_host = [%static_hash ""]
diff --git a/blog/nord.ml b/blog/nord.ml
index 78c4c61..f0f2772 100755
--- a/blog/nord.ml
+++ b/blog/nord.ml
@@ -1 +1,2 @@
 let nord0 = Jstr.v "#2e3440"
+let nord8 = Jstr.v "#81a1c1"
diff --git a/blog/sidebar.ml b/blog/sidebar.ml
index a1293de..1df0f1a 100755
--- a/blog/sidebar.ml
+++ b/blog/sidebar.ml
@@ -21,4 +21,3 @@ let rec clean
           else
             clean el
         )
-
-- 
cgit v1.2.3