From 4e1ef488e9b9e89d615470ec731e95749cf66c12 Mon Sep 17 00:00:00 2001
From: Tienson Qin <tiensonqin@gmail.com>
Date: Fri, 2 Apr 2021 12:27:00 +0800
Subject: [PATCH] enhance: hide text when small scale for the graph view

---
 src/main/frontend/graph.cljs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/main/frontend/graph.cljs b/src/main/frontend/graph.cljs
index 5199de47e..c7c86fc0a 100644
--- a/src/main/frontend/graph.cljs
+++ b/src/main/frontend/graph.cljs
@@ -56,7 +56,8 @@
 
 (defn- dot-text-mode
   [node ctx global-scale dark?]
-  (let [label (gobj/get node "id")
+  (let [hide-text? (< global-scale 0.45)
+        label (gobj/get node "id")
         val (gobj/get node "val")
         val (if (zero? val) 1 val)
         font-size (min
@@ -72,9 +73,10 @@
     (set! (.-filltextAlign ctx) "center")
     (set! (.-textBaseLine ctx) "middle")
     (set! (.-fillStyle ctx) color)
-    (.fillText ctx label
-               (- x (/ text-width 2))
-               (- y (/ 9 global-scale)))
+    (when-not hide-text?
+      (.fillText ctx label
+                 (- x (/ text-width 2))
+                 (- y (/ 9 global-scale))))
 
     (.beginPath ctx)
     (.arc ctx x y (if (zero? val)