Skip to content

Commit cefcdac

Browse files
committed
tweak(bootstrap): minor refactor
1 parent 4b69a74 commit cefcdac

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

core/me-bootstrap.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -61,10 +61,10 @@
6161
;; Backup the current installed versions, this file can be restored if version
6262
;; upgrade does break some packages.
6363
(message "[MinEmacs]: Creating backups for the current versions of packages")
64-
(let* ((backup-dir (concat minemacs-local-dir (format "minemacs/versions/")))
65-
(dest-file (concat backup-dir "default-" (format-time-string "%Y%m%d%H%M%S") ".el"))
64+
(let* ((backup-dir (concat minemacs-local-dir "minemacs/versions/"))
65+
(dest-file (concat backup-dir (format-time-string "default-%Y%m%d%H%M%S.el")))
6666
(src-file (concat straight-base-dir "straight/versions/default.el")))
67-
(unless (file-directory-p backup-dir) (mkdir backup-dir :parents))
67+
(unless (file-directory-p backup-dir) (mkdir backup-dir 'parents))
6868
(when (file-exists-p src-file)
6969
(message "[MinEmacs]: Creating backup from \"%s\" to \"%s\"" src-file dest-file)
7070
(copy-file src-file dest-file)))

0 commit comments

Comments
 (0)