From 1ec4b7b39d60734b38f91e23dd2e3575a0d99794 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jes=C3=BAs?= Date: Sun, 3 Feb 2019 14:58:10 -0500 Subject: fix visualizer popup undo-tree --- modules/init-editing-utils.el | 27 +++++++++++++++++++++------ 1 file 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") -- cgit v1.2.3