Update

custom.el

@@ -1,18 +0,0 @@
-;;; -*- lexical-binding: t -*-
-(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(custom-safe-themes
-   '("2e8a28e18718c026ffc4a31acd65cf844d42c01f42b0d22b4eee8aa242a1b5d1"
-     "b3db0d7354ef14156b4d16d406b85ef4441e45a54841e11a49d6bc4933eebf58"
-     default))
- '(org-agenda-files '("~/org/workout.org"))
- '(package-selected-packages nil))
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- )

lisp/init-better-default.el

@@ -23,11 +23,14 @@
 (recentf-mode 1)
 (setq recentf-max-saved-items 500)
 (setq make-backup-files nil)
-(setq custom-file (expand-file-name "~/.emacs.d/custom.el"))
-(load custom-file 'no-error 'no-message)
 (setq use-short-answers t)
 (setq frame-title-format "Emacs: %b")
 
+(setq custom-file (expand-file-name "~/.emacs.d/custom.el"))
+(add-hook 'elpaca-after-init-hook (lambda () (load custom-file 'no-error 'no-message)))
+
+(setq custom-safe-themes t)
+
 (define-key global-map (kbd "C-<wheel-up>")  nil)
 (define-key global-map (kbd "C-<wheel-down>")  nil)
 (global-set-key (kbd "s-a") 'mark-whole-buffer) ;;对应Windows上面的Ctrl-a 全选