Save As Dialog

[jkhsch]

Some users might appreciate the traditional Save As Dialog, here is a rough implementation, based on https://www.emacswiki.org/emacs/MacOSTweaks via Apple-Script, also implementing the Open Dialog. It is replacing the corresponding section in the init.el as below:

;; Things you'd expect from macOS app. (defun mac-open-file (filename &optional wildcards) (interactive (let ((last-nonmenu-event nil)) (find-file-read-args "Find existing file: " t)) ) ; (find-file-existing filename wildcards) (find-file-existing filename) )

(defun mac-save-file-as () (interactive) (let ((file (do-applescript "try POSIX path of (choose file name with prompt "Save As...") end try")))

(if (not (equal file "")) (write-file file) (beep)) ))

(defun mac-save-file () (interactive) (if (buffer-modified-p) (if (equal buffer-file-name nil) (let ((file (do-applescript "try POSIX path of (choose file name with prompt "Save As...") end try"))) (if (not (equal file "")) (write-file file) (beep)) ) (save-buffer) )))

(global-set-key (kbd "s-o") 'mac-open-file) ;; open (global-set-key (kbd "s-s") 'mac-save-file) ;; save (global-set-key (kbd "s-S") 'mac-save-file-as) ;; save as (global-set-key (kbd "s-q") 'save-buffers-kill-emacs) ;; quit (global-set-key (kbd "s-a") 'mark-whole-buffer) ;; select all ;; (global-set-key (kbd "s-z") 'undo)

[freetonik]

Seems like some escape characters are missing. But I'm not sure if it's a good idea to override the regular saving and opening mechanisms. Maybe provide these functions without hotkeys for now. Or augment them with alt:

• M-s-o to open
• M-s-s to save
• M-S-s-s to save as

?..