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

bin/doom quickstart: Offer to patch Emacs.app

Browse source
This commit is contained in:
Henrik Lissner 2018-08-25 03:17:58 +02:00
parent 77838534ce
commit 33b0a8d36c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
core/core-cli.el
View file

@ -330,6 +330,27 @@ packages and regenerates the autoloads file."
(print! "Deploying empty config.el file in %s" short-private-dir) (print! "Deploying empty config.el file in %s" short-private-dir)
(with-temp-file config-file (insert "")) (with-temp-file config-file (insert ""))
(print! (green "Done!"))))) (print! (green "Done!")))))
;; Ask if Emacs.app should be patched
(condition-case e
(when IS-MAC
(message "MacOS detected")
(let ((appdir (cl-find-if #'file-directory-p
(list "/Applications/Emacs.app"
"~/Applications/Emacs.app"))))
(unless appdir
(user-error "Couldn't find Emacs.app in /Applications or ~/Applications"))
(when (file-exists-p! "Contents/MacOS/RunEmacs" appdir)
(user-error "Emacs.app is already patched"))
(unless (or doom-auto-accept
(y-or-n-p
(concat "Doom would like to patch your Emacs.app bundle so that it respects\n"
"your shell configuration. For more information on why and how, run\n\n"
" bin/doom help patch-macos\n\n"
"Patch Emacs.app?")))
(user-error "Will not patch Emacs.app"))
(doom-patch-macos)))
(user-error (message "%s" (error-message-string e))))
;; Install Doom packages
(print! "Installing plugins") (print! "Installing plugins")
(doom-packages-install doom-auto-accept) (doom-packages-install doom-auto-accept)
(print! "Regenerating autoloads files") (print! "Regenerating autoloads files")