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

---
 lib/blog/sidebar.ml | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 lib/blog/sidebar.ml

(limited to 'lib/blog/sidebar.ml')

diff --git a/lib/blog/sidebar.ml b/lib/blog/sidebar.ml
new file mode 100755
index 0000000..1df0f1a
--- /dev/null
+++ b/lib/blog/sidebar.ml
@@ -0,0 +1,23 @@
+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