 
   (push '("/home-local/" . "/home/") directory-abbrev-alist)
   (push '("/home-remote/" . "/home/") directory-abbrev-alist)
-  (mapc #'me:set-frame-face (frame-list))
-
   :demand)
 
 ;; built-in winner package

(defconst me:data-directory (or (getenv "XDG_DATA_HOME") "~/.local/share"))
(defconst me:cache-directory (or (getenv "XDG_CACHE_HOME")  "~/.cache"))
(defconst me:config-directory (or (getenv "XDG_CONFIG_HOME")  "~/.config"))
;; fonts in order of preference
(defconst me:preferred-fonts #'(("Hack" . "Hack-11:autohint=true")
                                ("Fantasque Sans Mono" . "Fantasque Sans Mono-12")
                                ("DejaVu Sans Mono" . "DejaVu Sans Mono-11")))

;; host specific font handling
(when (equal (system-name) "hum")
  (add-to-list 'me:preferred-fonts '("Roboto Mono" . "Roboto Mono-11:autohint=true:weight=medium")))

;; replace any matches in a string
(defun me:replace-all (input from to)

                (lambda () (unless (frame-focus-state)
                             (save-some-buffers t))))

  (setq frame-title-format
        '((:eval (if (buffer-file-name)
                     (string-remove-prefix (abbreviate-file-name default-directory)
