init-appearance.el

(when (eq window-system 'ns)
  (global-set-key (kbd "M-`") 'other-frame)

  (defun set-appropriate-font (frame)
    (interactive "i")
    (setq frame (or frame (selected-frame)))
    (cl-flet ((points (pix) (+ 20 (round (- pix 1440) 200 ))))
      (set-frame-font
       (format "Inconsolata-%s" (points (display-pixel-height)))
       nil
       (list frame))))
  (global-set-key (kbd "<f3>") 'set-appropriate-font)

  (set-appropriate-font (selected-frame))

  (add-to-list 'after-make-frame-functions 'set-appropriate-font)
  (add-to-list 'after-make-frame-functions 'wob t))