 `:v-adjust' or `:face' properties like in the normal icon
 inserting functions."
   (let* ((icon (cdr (assoc mode all-the-icons-mode-icon-alist)))
-         (args (-flatten (-insert-at 1 arg-overrides (cdr icon)))))
+         (args (cdr icon)))
+    (when arg-overrides (setcdr args (append arg-overrides (cdr args))))
     (if icon (apply (car icon) args) mode)))
 
 ;; Family Face Functions


         (height (or height 2.0))
         (data (funcall data-f)))
    (--map
     (progn
       (insert (format "%s - %s\n" (funcall insert-f (car it) :height height) (car it)))
       (when duration (sit-for duration 0)))
     data)))

`:v-adjust' or `:face' properties like in the normal icon
inserting functions."
  (let* ((icon (all-the-icons-match-to-alist file all-the-icons-icon-alist))
         (args (cdr icon)))
    (when arg-overrides (setcdr args (append arg-overrides (cdr args))))
    (apply (car icon) args)))

(defun all-the-icons-icon-for-mode (mode &rest arg-overrides)
