From 730fd38b9efd0cee15733e9ac2778e9b60aca203 Mon Sep 17 00:00:00 2001
From: Jan Prochazka <jan.prochazka@gmail.com>
Date: Thu, 10 Mar 2022 17:21:04 +0100
Subject: [PATCH] redis: dont show all keys in tree (show more...)

---
 packages/web/src/widgets/DbKeysSubTree.svelte | 20 ++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/packages/web/src/widgets/DbKeysSubTree.svelte b/packages/web/src/widgets/DbKeysSubTree.svelte
index 9a0270c20..68e7399b2 100644
--- a/packages/web/src/widgets/DbKeysSubTree.svelte
+++ b/packages/web/src/widgets/DbKeysSubTree.svelte
@@ -1,4 +1,8 @@
 <script lang="ts">
+  import AppObjectCore from '../appobj/AppObjectCore.svelte';
+
+  const SHOW_INCREMENT = 500;
+
   import { useDatabaseKeys } from '../utility/metadataLoaders';
   import DbKeysTreeNode from './DbKeysTreeNode.svelte';
 
@@ -8,9 +12,23 @@
   export let root;
   export let indentLevel = 0;
 
+  let maxShowCount = SHOW_INCREMENT;
+
   $: items = useDatabaseKeys({ conid, database, root });
 </script>
 
-{#each $items || [] as item}
+{#each ($items || []).slice(0, maxShowCount) as item}
   <DbKeysTreeNode {conid} {database} {root} {item} {indentLevel} />
 {/each}
+
+{#if ($items || []).length > maxShowCount}
+  <AppObjectCore
+    {indentLevel}
+    title="Show more..."
+    icon="icon dots-horizontal"
+    expandIcon="icon invisible-box"
+    on:click={() => {
+      maxShowCount += SHOW_INCREMENT;
+    }}
+  />
+{/if}