Fix being unable to remove all harpoons

1 files changed, 8 insertions, 4 deletions

diff --git a/harpoon.kak b/harpoon.kak
index f8e7882..cebbc22 100644
--- a/harpoon.kak
+++ b/harpoon.kak
@@ -50,11 +50,15 @@ define-command harpoon-show-list -docstring "harpoon-show-list: show all harpoon
 
 define-command -hidden harpoon-update-from-list %{
   evaluate-commands -save-regs dquote %{
-    execute-keys -draft -save-regs '' '%<a-s><a-k>^\d*:<ret><a-;>;wl<a-l>y'
-    evaluate-commands %sh{
-      echo "set-option global harpoon_files $kak_quoted_reg_dquote"
+    try %{
+      execute-keys -draft -save-regs '' '%<a-s><a-k>^\d*:<ret><a-;>;wl<a-l>y'
+      evaluate-commands %sh{
+        echo "set-option global harpoon_files $kak_quoted_reg_dquote"
+      }
+      harpoon-show-list
+    } catch %{
+      set-option global harpoon_files
     }
-    harpoon-show-list
     echo "Updated harpoons"
   }
 }