make toggle-harpoon-file actually toggle

otavioschwanck · Nov 21, 2024 · 4b2331c · 4b2331c
1 parent 55f3d50
commit 4b2331c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/harpoon.el b/harpoon.el
@@ -417,7 +417,10 @@ Select items to delete:
 (defun harpoon-toggle-file ()
   "Open harpoon file."
   (interactive)
-  (unless (eq major-mode 'harpoon-mode)
+  (if (eq major-mode 'harpoon-mode)
+      (progn
+        (save-buffer)
+        (switch-to-buffer (other-buffer)))
     (harpoon--create-directory)
     (setq harpoon--current-project-path (when (harpoon--has-project) (harpoon-project-root-function)))
     (find-file (harpoon--file-name) '(:dedicated t))