;;; core/cli/patch-macos.el -*- lexical-binding: t; -*-

(dispatcher! (patch-macos)
  (doom-patch-macos (or (member "--undo" args)
                        (member "-u" args))
                    (doom--find-emacsapp-path))
  "Patches Emacs.app to respect your shell environment.

A common issue with GUI Emacs on MacOS is that it launches in an environment
independent of your shell configuration, including your PATH and any other
utilities like rbenv, rvm or virtualenv.

This patch fixes this by patching Emacs.app (in /Applications or
~/Applications). It will:

  1. Move Contents/MacOS/Emacs to Contents/MacOS/RunEmacs
  2. And replace Contents/MacOS/Emacs with the following wrapper script:

     #!/bin/bash
     args=\"$@\"
     pwd=\"$(cd \"$(dirname \"${BASH_SOURCE[0]}\")\"; pwd -P)\"
     exec \"$SHELL\" -l -c \"$pwd/RunEmacs $args\"

This ensures that Emacs is always aware of your shell environment, regardless of
how it is launched.

It can be undone with the --undo or -u options.

Alternatively, you can install the exec-path-from-shell Emacs plugin, which will
scrape your shell environment remotely, at startup. However, this can be slow
depending on your shell configuration and isn't always reliable.")


;;
;; Library

(defun doom--find-emacsapp-path ()
  (or (getenv "EMACS_APP_PATH")
      (cl-loop for dir in (list "/usr/local/opt/emacs"
                                "/usr/local/opt/emacs-plus"
                                "/Applications"
                                "~/Applications")
               for appdir = (concat dir "/Emacs.app")
               if (file-directory-p appdir)
               return appdir)
      (user-error "Couldn't find Emacs.app")))

(defun doom-patch-macos (undo-p appdir)
  "Patches Emacs.app to respect your shell environment."
  (unless IS-MAC
    (user-error "You don't seem to be running MacOS"))
  (unless (file-directory-p appdir)
    (user-error "Couldn't find '%s'" appdir))
  (let ((oldbin (expand-file-name "Contents/MacOS/Emacs" appdir))
        (newbin (expand-file-name "Contents/MacOS/RunEmacs" appdir)))
    (cond (undo-p
           (unless (file-exists-p newbin)
             (user-error "Emacs.app is not patched"))
           (copy-file newbin oldbin 'ok-if-already-exists nil nil 'preserve-permissions)
           (unless (file-exists-p oldbin)
             (error "Failed to copy %s to %s" newbin oldbin))
           (delete-file newbin)
           (message "%s successfully unpatched" appdir))

          ((file-exists-p newbin)
           (user-error "%s is already patched" appdir))

          ((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?")))
           (message "Patching '%s'" appdir)
           (copy-file oldbin newbin nil nil nil 'preserve-permissions)
           (unless (file-exists-p newbin)
             (error "Failed to copy %s to %s" oldbin newbin))
           (with-temp-buffer
             (insert "#!/bin/bash\n"
                     "args=\"$@\"\n"
                     "pwd=\"$(cd \"$(dirname \"${BASH_SOURCE[0]}\")\"; pwd -P)\"\n"
                     "exec \"$SHELL\" -l -c \"$pwd/RunEmacs $args\"")
             (write-file oldbin)
             (chmod oldbin (file-modes newbin)))
           (message "%s successfully patched" appdir)))))