update packages

lisp/dashboard/dashboard-pkg.el

@@ -1,10 +1,10 @@
 ;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "dashboard" "20250521.900"
+(define-package "dashboard" "20250708.57"
   "A startup screen extracted from Spacemacs."
   '((emacs "27.1"))
   :url "https://github.com/emacs-dashboard/emacs-dashboard"
-  :commit "f07661b39bec3683cf9edb7b1c58f6e658b6f764"
-  :revdesc "f07661b39bec"
+  :commit "8c2cf0cfde4f5dac8c477f755380fffef6824108"
+  :revdesc "8c2cf0cfde4f"
   :keywords '("startup" "screen" "tools" "dashboard")
   :authors '(("Rakan Al-Hneiti" . "rakan.alhneiti@gmail.com"))
   :maintainers '(("Jen-Chieh" . "jcs090218@gmail.com")

lisp/dashboard/dashboard-widgets.el

@@ -798,25 +798,20 @@ Argument IMAGE-PATH path to the image."
   (goto-char (point-max))
   (when-let* ((banner (dashboard-choose-banner dashboard-startup-banner)))
     (insert "\n")
+    (when (display-graphic-p) (insert "\n"))
     (let ((start (point))
           buffer-read-only
           text-width
-          image-spec
-          (graphic-mode (display-graphic-p)))
-      (when graphic-mode (insert "\n"))
+          image-spec)
       ;; If specified, insert a text banner.
       (when-let* ((txt (plist-get banner :text)))
-        (if (file-exists-p txt)
-            (insert-file-contents txt)
-          (save-excursion (insert txt)))
-        (unless (text-properties-at 0 txt)
-          (put-text-property (point) (point-max) 'face 'dashboard-text-banner))
-        (setq text-width 0)
-        (while (not (eobp))
-          (let ((line-length (- (line-end-position) (line-beginning-position))))
-            (when (< text-width line-length)
-              (setq text-width line-length)))
-          (forward-line 1)))
+        (save-excursion
+          (if (file-exists-p txt)
+              (insert-file-contents txt)
+            (insert txt)))
+        (put-text-property start (point-max) 'face 'dashboard-text-banner)
+        (setq text-width (dashboard--find-max-width start (point-max)))
+        (goto-char (point-max)))
       ;; If specified, insert an image banner. When displayed in a graphical frame, this will
       ;; replace the text banner.
       (when-let* ((img (plist-get banner :image)))

lisp/dashboard/dashboard.el

@@ -12,8 +12,8 @@
 ;;; License: GPLv3
 ;;
 ;; Created: October 05, 2016
-;; Package-Version: 20250521.900
-;; Package-Revision: f07661b39bec
+;; Package-Version: 20250708.57
+;; Package-Revision: 8c2cf0cfde4f
 ;; Keywords: startup, screen, tools, dashboard
 ;; Package-Requires: ((emacs "27.1"))