From 9350b44dc067f255bb7d300ab347e1251829edb0 Mon Sep 17 00:00:00 2001
From: Daniel Levy Moreno <daniellevymoreno@gmail.com>
Date: Tue, 21 Mar 2023 22:30:54 -0400
Subject: [PATCH] feat(undo): add vundo

Close: #6263
---
 modules/config/default/+evil-bindings.el | 4 +++-
 modules/emacs/undo/config.el             | 9 +++++++++
 modules/emacs/undo/packages.el           | 4 +++-
 3 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/modules/config/default/+evil-bindings.el b/modules/config/default/+evil-bindings.el
index c68ee2498..0027b280c 100644
--- a/modules/config/default/+evil-bindings.el
+++ b/modules/config/default/+evil-bindings.el
@@ -739,7 +739,9 @@
              ((modulep! :completion ivy)       #'swiper-isearch-thing-at-point)
              ((modulep! :completion helm)      #'swiper-isearch-thing-at-point))
        :desc "Dictionary"                   "t" #'+lookup/dictionary-definition
-       :desc "Thesaurus"                    "T" #'+lookup/synonyms)
+       :desc "Thesaurus"                    "T" #'+lookup/synonyms
+       (:when (fboundp 'vundo)
+         :desc "Undo history"               "u" #'vundo))
 
       ;;; <leader> t --- toggle
       (:prefix-map ("t" . "toggle")
diff --git a/modules/emacs/undo/config.el b/modules/emacs/undo/config.el
index 5357963f9..dc9edbe95 100644
--- a/modules/emacs/undo/config.el
+++ b/modules/emacs/undo/config.el
@@ -48,6 +48,15 @@
             (undo-fu-session--file-name-ext))))
 
 
+(use-package! vundo
+  :unless (modulep! +tree)
+  :defer t
+  :config
+  (setq vundo-glyph-alist vundo-unicode-symbols
+        vundo-compact-display t)
+  (define-key vundo-mode-map [remap doom/escape] #'vundo-quit))
+
+
 (use-package! undo-tree
   :when (modulep! +tree)
   ;; Branching & persistent undo
diff --git a/modules/emacs/undo/packages.el b/modules/emacs/undo/packages.el
index c86aefd77..6e1587a93 100644
--- a/modules/emacs/undo/packages.el
+++ b/modules/emacs/undo/packages.el
@@ -4,4 +4,6 @@
 (if (modulep! +tree)
     (package! undo-tree :pin "16f4121032d09ef44b3d7d02c4d02c3c2f18041f")
   (package! undo-fu :pin "0e22308de8337a9291ddd589edae167d458fbe77")
-  (package! undo-fu-session :pin "7b3fd0647dd1fbd02101eec61440e6d44953bcd9"))
+  (package! undo-fu-session :pin "7b3fd0647dd1fbd02101eec61440e6d44953bcd9")
+  (when (> emacs-major-version 27)  ; unsupported in 27
+    (package! vundo :pin "d78b02ab89955f3a3273884f6d799889a2ef6b6f")))