emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

doom/install: refactor template insertion & module init

Browse source
This commit is contained in:
Henrik Lissner 2020-05-25 15:46:34 -04:00
parent 5909b183c6
commit e60d8f9cb1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 6 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

28
core/cli/install.el
View file

@ -36,36 +36,20 @@ DOOMDIR environment variable. e.g.
;; Create init.el, config.el & packages.el ;; Create init.el, config.el & packages.el
(mapc (lambda (file) (mapc (lambda (file)
(cl-destructuring-bind (filename . fn) file (cl-destructuring-bind (filename . template) file
(if (file-exists-p! filename doom-private-dir) (if (file-exists-p! filename doom-private-dir)
(print! (warn "%s already exists, skipping") filename) (print! (warn "%s already exists, skipping") filename)
(print! (info "Creating %s%s") (relpath doom-private-dir) filename) (print! (info "Creating %s%s") (relpath doom-private-dir) filename)
(with-temp-file (doom-path doom-private-dir filename) (with-temp-file (doom-path doom-private-dir filename)
(funcall fn)) (insert-file-contents template))
(print! (success "Done!"))))) (print! (success "Done!")))))
'(("init.el" . `(("init.el" . ,(doom-path doom-emacs-dir "init.example.el"))
(lambda () ("config.el" . ,(doom-path doom-core-dir "templates/config.example.el"))
(insert-file-contents ("packages.el" . ,(doom-path doom-core-dir "templates/packages.example.el")))))
(doom-path doom-emacs-dir "init.example.el"))))
("config.el" .
(lambda ()
(insert-file-contents
(doom-path doom-core-dir "templates/config.example.el"))))
("packages.el" .
(lambda ()
(insert-file-contents
(doom-path doom-core-dir "templates/packages.example.el")))))))
;; In case no init.el was present the first time `doom-initialize-modules' was ;; In case no init.el was present the first time `doom-initialize-modules' was
;; called in core.el (e.g. on first install) ;; called in core.el (e.g. on first install)
(ignore-errors (doom-initialize-modules 'force 'no-config)
(load! "init" doom-private-dir t))
(when doom-modules
(maphash (lambda (key plist)
(let ((doom--current-module key)
(doom--current-flags (plist-get plist :flags)))
(ignore-errors (load! "init" (plist-get plist :path) t))))
doom-modules))
;; Ask if user would like an envvar file generated ;; Ask if user would like an envvar file generated
(if noenv-p (if noenv-p