update packages

lisp/nerd-icons-dired/nerd-icons-dired.el

@@ -4,8 +4,8 @@
 
 ;; Author: Hongyu Ding <rainstormstudio@yahoo.com>
 ;; Keywords: lisp
-;; Package-Version: 20260206.1554
-;; Package-Revision: 929b62f01b93
+;; Package-Version: 20260415.1746
+;; Package-Revision: 104acd887952
 ;; Package-Requires: ((emacs "24.4") (nerd-icons "0.0.1"))
 ;; URL: https://github.com/rainstormstudio/nerd-icons-dired
 ;; Keywords: files, icons, dired
@@ -62,6 +62,11 @@
   :group 'nerd-icons
   :type 'function)
 
+(defcustom nerd-icons-dired-icon-size 1.0
+  "The default icon size in Dired."
+  :group 'nerd-icons
+  :type 'float)
+
 (defvar nerd-icons-dired-mode)
 
 (defun nerd-icons-dired--add-overlay (pos string)
@@ -89,10 +94,11 @@
       (when (dired-move-to-filename nil)
         (let ((file (dired-get-filename 'relative 'noerror)))
           (when file
-            (let ((icon (if (file-directory-p file)
-                            (funcall nerd-icons-dired-dir-icon-function file)
-                          (funcall nerd-icons-dired-file-icon-function file)))
-                  (inhibit-read-only t))
+            (let* ((func (if (file-directory-p file)
+                             nerd-icons-dired-dir-icon-function
+                           nerd-icons-dired-file-icon-function))
+                   (icon (funcall func file :height nerd-icons-dired-icon-size))
+                   (inhibit-read-only t))
               (if (member file '("." ".."))
                   (nerd-icons-dired--add-overlay (dired-move-to-filename)
                                                  nerd-icons-dired-special-prefix-string)