From 77544bdfad2af41514ec1435f706fee87ea2969e Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:38:37 +0100
Subject: Added viz.js code

---
 blog/dune                        | 21 ---------------------
 blog/hash_host/hash_blog.ml      |  1 -
 blog/hash_host/hash_localhost.ml |  1 -
 blog/nord.ml                     |  2 --
 blog/sidebar.ml                  | 23 -----------------------
 5 files changed, 48 deletions(-)
 delete mode 100755 blog/dune
 delete mode 100755 blog/hash_host/hash_blog.ml
 delete mode 100755 blog/hash_host/hash_localhost.ml
 delete mode 100755 blog/nord.ml
 delete mode 100755 blog/sidebar.ml

(limited to 'blog')

diff --git a/blog/dune b/blog/dune
deleted file mode 100755
index 648990f..0000000
--- a/blog/dune
+++ /dev/null
@@ -1,21 +0,0 @@
-(rule
-  (targets hash_host.ml)
-  (enabled_if (= %{profile} dev))
-  (action (copy# hash_host/hash_localhost.ml hash_host.ml)))
-
-(rule
-  (targets hash_host.ml)
-  (enabled_if (<> %{profile} dev))
-  (action (copy# hash_host/hash_blog.ml hash_host.ml)))
-
-(library
- (name blog)
- (libraries 
-   brr
-   brr.note
-   elements
-   )
- (preprocess (pps ppx_hash))
-
- 
- )
diff --git a/blog/hash_host/hash_blog.ml b/blog/hash_host/hash_blog.ml
deleted file mode 100755
index f5e172e..0000000
--- a/blog/hash_host/hash_blog.ml
+++ /dev/null
@@ -1 +0,0 @@
-let expected_host = [%static_hash "blog.chimrod.com"]
diff --git a/blog/hash_host/hash_localhost.ml b/blog/hash_host/hash_localhost.ml
deleted file mode 100755
index a41022e..0000000
--- a/blog/hash_host/hash_localhost.ml
+++ /dev/null
@@ -1 +0,0 @@
-let expected_host = [%static_hash "localhost"]
diff --git a/blog/nord.ml b/blog/nord.ml
deleted file mode 100755
index f0f2772..0000000
--- a/blog/nord.ml
+++ /dev/null
@@ -1,2 +0,0 @@
-let nord0 = Jstr.v "#2e3440"
-let nord8 = Jstr.v "#81a1c1"
diff --git a/blog/sidebar.ml b/blog/sidebar.ml
deleted file mode 100755
index 1df0f1a..0000000
--- a/blog/sidebar.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-open StdLabels
-open Brr
-
-(** Return the sidebar *)
-let get
-  : unit -> El.t option
-  = fun () ->
-
-    List.find_opt (El.children @@ Document.body G.document)
-      ~f:(fun t -> El.has_tag_name El.Name.aside t)
-
-let rec clean
-  : El.t -> unit
-  = fun el ->
-    List.iter (El.children el)
-      ~f:(fun el ->
-          (* Remove the links from the sidebar, keep h1 and other stuff *)
-          if (El.has_tag_name (Jstr.v "nav") el)
-          || (El.has_tag_name (Jstr.v "ul") el) then
-            El.remove el
-          else
-            clean el
-        )
-- 
cgit v1.2.3