@conao3 さんの上記記事に触発されて、use-pacage.el
から leaf.el
に全面的に書き直しました。
@conao3 さんの示されていたものを下敷きにして init.el
を設定しています。
;;; init.el --- Emacs first Configuration. -*- lexical-binding: t -*-
;;; Commentary:
;;
;; Compatible with Emacs 27 and later
;; Aiming for a fancy and fast Emacs configuration
;;
;;; Code:
;; (setq debug-on-error t)
;; Speed up startup
(unless (or (daemonp) noninteractive init-file-debug)
(let ((old-file-name-handler-alist file-name-handler-alist))
(setq file-name-handler-alist nil)
(add-hook 'emacs-startup-hook
(lambda ()
"Recover file name handlers."
(setq file-name-handler-alist
(delete-dups (append file-name-handler-alist
old-file-name-handler-alist)))))))
;; Defer garbage collection further back in the startup process
(add-hook 'emacs-startup-hook
(lambda ()
"Recover GC values after startup."
(setq gc-cons-threshold 800000)))
;; Package
(eval-and-compile
(customize-set-variable
'package-archives '(("org" . "https://orgmode.org/elpa/")
("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")))
(package-initialize)
(unless (package-installed-p 'leaf)
(package-refresh-contents)
(package-install 'leaf))
(leaf leaf-keywords
:ensure t
:init
(leaf hydra :ensure t)
(leaf el-get :ensure t)
:config
(leaf-keywords-init)
(setq custom-file (locate-user-emacs-file "~/.emacs.d/tmp/custom.el"))))
(leaf init-loader
:ensure t
:init
(load-file "~/.emacs.d/template/my:dired.el")
(load-file "~/.emacs.d/template/my:template.el")
:config
(custom-set-variables
'(init-loader-show-log-after-init 'error-only))
(init-loader-load))
(provide 'init)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; init.el ends here