Make backup and rollback interactive

This commit is contained in:
Wojciech Kozlowski 2018-11-03 22:58:49 +00:00
parent 9dfac9848a
commit e8b331a3ac

View File

@ -151,6 +151,7 @@ after attempting to install all other packages first."
(defun emodule/backup ()
"Create a backup of the elpa directory in elpa.tar.xz."
(interactive)
(let* ((default-directory "~/.emacs.d")
(dir "elpa")
(archive (format "%s.tar.xz" dir)))
@ -176,6 +177,7 @@ after attempting to install all other packages first."
(defun emodule/rollback ()
"Rollback to elpa directory state from backup."
(interactive)
(let* ((default-directory "~/.emacs.d")
(dir "elpa")
(dir-bkp (format "%s.bkp" dir))