                                        distance)))
                       (push atom faces))))))
     (delete-dups faces))))
+
+(defun ar/pick-font ()
+  (interactive)
+  (let ((font-name (completing-read "Select font:"
+                                    (font-family-list))))
+    (if (member font-name (font-family-list))
+        (set-face-attribute 'default nil :font font-name)
+      (error "'%s' font not found" font-name))))

(require 'ar-vsetq)
(require 'ar-csetq)

(when (display-graphic-p)
  ;; No title. See init.el for initial value.

        (when (and (stringp g)
                   (not (string= "unspecified" g)))
          (cl-return g))))))

(defun ar/list-faces--for-color (color &optional distance)
  "Return all faces with COLOR as fg or bg withing DISTANCE."
