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

fix(cli): doom install: $DOOMDIR paths in output

Browse source 
Close: #7768
Co-authored-by: plajjan <plajjan@users.noreply.github.com>
This commit is contained in:
Henrik Lissner 2024-03-27 09:39:05 -04:00
parent 201051c368
commit b6b755dea4
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/cli/install.el
View file

@ -55,20 +55,19 @@ Change `$DOOMDIR' with the `--doomdir' option, e.g.
(setq doom-user-dir (expand-file-name "doom/" xdg-config-dir))))) (setq doom-user-dir (expand-file-name "doom/" xdg-config-dir)))))
(if (file-directory-p doom-user-dir) (if (file-directory-p doom-user-dir)
(print! (item "Skipping %s (already exists)") (relpath doom-user-dir)) (print! (item "Skipping %s (already exists)") (path doom-user-dir))
(make-directory doom-user-dir 'parents) (make-directory doom-user-dir 'parents)
(print! (success "Created %s") (relpath doom-user-dir))) (print! (success "Created %s") (path doom-user-dir)))
;; Create init.el, config.el & packages.el ;; Create init.el, config.el & packages.el
(print-group! (print-group!
(mapc (lambda (file) (mapc (lambda (file)
(cl-destructuring-bind (filename . template) file (cl-destructuring-bind (filename . template) file
(if (file-exists-p! filename doom-user-dir) (setq filename (doom-path doom-user-dir filename))
(print! (item "Skipping %s (already exists)") (if (file-exists-p filename)
(path filename)) (print! (item "Skipping %s (already exists)...") (path filename))
(print! (item "Creating %s%s") (relpath doom-user-dir) filename) (print! (item "Creating %s...") (path filename))
(with-temp-file (doom-path doom-user-dir filename) (doom-file-write filename template)
(insert-file-contents template))
(print! (success "Done!"))))) (print! (success "Done!")))))
(let ((template-dir (doom-path doom-emacs-dir "templates"))) (let ((template-dir (doom-path doom-emacs-dir "templates")))
`((,doom-module-init-file `((,doom-module-init-file