restore last IME setting even if mac-auto-ascii-mode is ON

restore-last-ime-setting.el

  (defvar mac-win-last-ime-status 'off) ;; {'off|'on}
  (defun mac-win-save-last-ime-status ()
    (setq mac-win-last-ime-status
          (if (string-match "\\.Roman$" (mac-input-source))
              'off 'on)))
  (defun advice:mac-auto-ascii-setup-input-source (&optional _prompt)
    "Extension to store IME status"
    (mac-win-save-last-ime-status))
  (advice-add 'mac-auto-ascii-setup-input-source :before
              #'advice:mac-auto-ascii-setup-input-source)

  (defun mac-win-restore-ime ()
    (when (and mac-auto-ascii-mode (eq mac-win-last-ime-status 'on))
      (mac-select-input-source
       "com.google.inputmethod.Japanese.base")))
  (add-hook 'minibuffer-setup-hook 'mac-win-save-last-ime-status)
  (add-hook 'minibuffer-exit-hook 'mac-win-restore-ime)


  (defvar mac-win-target-commands
    '(list
      find-file save-buffer other-window delete-window split-window))
  (add-to-list 'mac-win-target-commands 'helm-buffers-list)

  (defun mac-win-restore-ime-target-commands ()
    (when (and mac-auto-ascii-mode 
               (eq mac-win-last-ime-status 'on))
      (mapc (lambda (command)
              (when (string-match
                     (format "^%s" command) (format "%s" this-command))
                (mac-select-input-source
                 "com.google.inputmethod.Japanese.base")))
            mac-win-target-commands)))
  (add-hook 'pre-command-hook 'mac-win-restore-ime-target-commands)