   :init
   (add-hook 'focus-out-hook #'me:save-dirty-buffers)          ; save on defocus
   (add-hook 'after-make-frame-functions #'me:set-frame-face)
-  (mapc #'me:set-frame-face (frame-list))
   (setq frame-title-format
         '((:eval (if (buffer-file-name)
                      (string-remove-prefix (abbreviate-file-name default-directory)

    (interactive)
    (save-some-buffers t))


  (defun me:window-nth-buffer (arg &optional prefix)
    "Select the nth other buffer. Use prefix to put in other window"

    "Select 4th other buffer"
    (interactive "P")
    (me:window-nth-buffer 3 prefix))

  (mapc #'me:set-frame-face (frame-list))

  :demand)

