     (interactive)
     (save-some-buffers t))
 
+  (defun me:set-frame-face (frame)
+    "Set font face for frame"
+    (select-frame frame)
+    (if (display-graphic-p)
+        (let* ((fonts (font-family-list))
+               (match (seq-find (lambda (elem) (member (car elem) fonts)) me:preferred-fonts)))
+          (if match
+              (let ((font-name (cdr match)))
+                                        ;(message "font name is %s" font-name)
+                (add-to-list 'default-frame-alist `(font . ,font-name))
+                (set-frame-font font-name t t))))))
 
   (defun me:window-nth-buffer (arg &optional prefix)
     "Select the nth other buffer. Use prefix to put in other window"

                                        (set-buffer cur-buf)
                                        (funcall ,func))))))))))

(defun me:set-frame-face (frame)
  "Set font face for frame"
  (select-frame frame)
  (if (display-graphic-p)
      (let* ((fonts (font-family-list))
             (match (seq-find (lambda (elem) (member (car elem) fonts)) me:preferred-fonts)))
        (if match
            (let ((font-name (cdr match)))
                                        ;(message "font name is %s" font-name)
              (add-to-list 'default-frame-alist `(font . ,font-name))
              (set-frame-font font-name t t))))))


(defun me:extra-setup ()
  (tool-bar-mode 0)                                           ; no tool bar (tool-bar)

        minions-mode-line-lighter "[☰]")
  (add-hook 'sml/after-setup-hook #'minions-mode)
  :config
  ;; Reset all buffer's mode line to the default one
  (mapc (lambda (buffer)
          (if (or (buffer-file-name buffer)
                  (not (equal (substring (buffer-name buffer) 0 1) " ")))
              (with-current-buffer buffer
                (kill-local-variable 'mode-line-format)
                (force-mode-line-update t))))
        (buffer-list))
  :general
  ("<f10> m" #'minions-minor-modes-menu))

