;;; siren-undo-tree.el --- jimeh's Emacs Siren: undo-tree configuration.

;;; Commentary:

;; Basic configuration for undo-tree.

;;; Code:

(use-package undo-tree
  :demand
  :bind
  (:map undo-tree-map
        ("C-x u" . undo-tree-visualize)
        ("M--" . undo-tree-undo)
        ("M-_" . undo-tree-redo)
        ("s-z" . undo-tree-undo)
        ("s-Z" . undo-tree-redo))

  :diminish
  undo-tree-mode

  :custom
  (undo-tree-history-directory-alist
   `((".*" . ,(expand-file-name "undo-tree-history" siren-cache-dir))))
  ;; Use undohist package to persist history to disk, it seems more reliable
  ;; than undo-tree's auto-save feature which randomly fails to restore history
  ;; for no obvious reason.
  (undo-tree-auto-save-history nil)
  (undo-tree-incompatible-major-modes '(term-mode vterm-mode))

  :config
  (global-undo-tree-mode)

  ;; Unbind keys that I don't use.
  (unbind-key "C-/" undo-tree-map)
  (unbind-key "C-?" undo-tree-map)
  (unbind-key "C-_" undo-tree-map))

(provide 'siren-undo-tree)
;;; siren-undo-tree.el ends here