 
   (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

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

  (add-hook 'after-make-frame-functions #'me:set-frame-face)
  (setq frame-title-format
        '((:eval (if (buffer-file-name)
                     (string-remove-prefix (abbreviate-file-name default-directory)

(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"))

(defconst me:default-font-height
  (pcase (system-name)
    ("hum" 11)
    (_ 12)))

(if (display-graphic-p)
    (let ((fonts (font-family-list))
          (fh (* me:default-font-height 10)))   ;; default is in 1/10 points
      (if (member "Roboto Mono" fonts)
          (set-face-attribute 'default nil :font "Roboto Mono:autohint=true" :height fh :weight 'medium)
        (if (member "Hack" fonts)
            (set-face-attribute 'default nil :font "Hack:autohint=true" :height fh)
          (set-face-attribute 'default nil :font "DejaVu Sans Mono" :height fh)))))

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