fix visualizer popup undo-tree

1 files changed, 21 insertions, 6 deletions

diff --git a/modules/init-editing-utils.el b/modules/init-editing-utils.el
index 8f57f21..35e34d1 100644
--- a/modules/init-editing-utils.el
+++ b/modules/init-editing-utils.el
@@ -51,14 +51,29 @@
 ;; Undo-tree
 ;;----------------------------------------------------------------------------
 (use-package undo-tree
+  :demand t
   :diminish undo-tree-mode
+  :bind (("C-x u" . undo-tree-visualizer)
+         (:map
+          undo-tree-visualizer-mode-map ("RET" . undo-tree-visualizer-quit)))
+  :init
+  (defadvice undo-tree-make-history-save-file-name
+      (after undo-tree activate)
+    (setq ad-return-value (concat ad-return-value ".7z")))
+
+  (defadvice undo-tree-visualize (around undo-tree-split-side-by-side activate)
+    "Divide la ventana de lado a lado al visualizar undo-tree-visualize"
+    (let ((split-height-threshold nil)
+          (split-width-threshold 0))
+      ad-do-it))
+
+  (setf undo-tree-visualizer-timestamps t)
+  (setf undo-tree-visualizer-diff t)
+  (setf undo-tree-auto-save-history nil) ;; no salva el historial de cambios
+
   :config
-  (progn
-    (global-undo-tree-mode)
-    (setq undo-tree-visualizer-timestamps nil)
-    (setq undo-tree-visualizer-diff nil)
-    (setq undo-tree-visualizer-quit t)
-    (setq pop-up-frames t)))
+  (defalias 'redo 'undo-tree-redo)
+  (global-undo-tree-mode 1))
 
 ;;----------------------------------------------------------------------------
 (load-file "~/.emacs.d/modules/lib/myemacs.el")