update of packages

lisp/dashboard/dashboard.el

@@ -1,6 +1,6 @@
 ;;; dashboard.el --- A startup screen extracted from Spacemacs  -*- lexical-binding: t -*-
 
-;; Copyright (c) 2016-2022 emacs-dashboard maintainers
+;; Copyright (c) 2016-2023 emacs-dashboard maintainers
 ;;
 ;; Author     : Rakan Al-Hneiti <rakan.alhneiti@gmail.com>
 ;; Maintainer : Jesús Martínez <jesusmartinez93@gmail.com>
@@ -12,7 +12,7 @@
 ;;; License: GPLv3
 ;;
 ;; Created: October 05, 2016
-;; Package-Version: 1.8.0-SNAPSHOT
+;; Package-Version: 1.9.0-SNAPSHOT
 ;; Keywords: startup, screen, tools, dashboard
 ;; Package-Requires: ((emacs "26.1"))
 ;;; Commentary:
@@ -34,6 +34,9 @@
 (declare-function page-break-lines-mode "ext:page-break-lines.el")
 (declare-function projectile-remove-known-project "ext:projectile.el")
 (declare-function project-forget-projects-under "ext:project.el")
+(declare-function linum-mode "linum.el")
+
+(declare-function dashboard-refresh-buffer "dashboard.el")
 
 (defgroup dashboard nil
   "Extensible startup screen."
@@ -371,7 +374,7 @@ Optional argument ARGS adviced function arguments."
   "Execute BODY in dashboard buffer."
   (declare (indent 0))
   `(with-current-buffer (get-buffer-create dashboard-buffer-name)
-     (let (buffer-read-only) ,@body)
+     (let ((inhibit-read-only t)) ,@body)
      (current-buffer)))
 
 (defun dashboard-maximum-section-length ()
@@ -400,6 +403,7 @@ Optional argument ARGS adviced function arguments."
       (when (or dashboard-force-refresh (not (eq major-mode 'dashboard-mode)))
         (erase-buffer)
         (dashboard-insert-banner)
+        (insert "\n")
         (setq dashboard--section-starts nil)
         (mapc (lambda (els)
                 (let* ((el (or (car-safe els) els))
@@ -425,38 +429,54 @@ Optional argument ARGS adviced function arguments."
                (car (last dashboard--section-starts))
              (point))
            (point-max)))
-        (insert dashboard-page-separator)
         (save-excursion
           (dolist (start dashboard--section-starts)
             (goto-char start)
             (delete-char -1)  ; delete the newline we added previously
             (insert dashboard-page-separator)))
+        (progn
+          (delete-char -1)
+          (insert dashboard-page-separator))
         (dashboard-insert-footer)
         (goto-char (point-min))
         (dashboard-mode)))
     (when recentf-is-on
       (setq recentf-list origial-recentf-list))))
 
-(defun dashboard-refresh-buffer (&rest _)
-  "Refresh buffer."
+
+;;;###autoload
+(defun dashboard-open (&rest _)
+  "Open (or refresh) the *dashboard* buffer."
   (interactive)
   (let ((dashboard-force-refresh t)) (dashboard-insert-startupify-lists))
   (switch-to-buffer dashboard-buffer-name))
 
+(defalias #'dashboard-refresh-buffer #'dashboard-open)
+
+(defun dashboard-resize-on-hook (&optional _)
+  "Re-render dashboard on window size change."
+  (let ((space-win (get-buffer-window dashboard-buffer-name))
+        (frame-win (frame-selected-window)))
+    (when (and space-win
+               (not (window-minibuffer-p frame-win)))
+      (with-selected-window space-win
+        (dashboard-insert-startupify-lists)))))
+
+(defun dashboard-initialize ()
+  "Switch to dashboard and run `dashboard-after-initialize-hook'."
+  (switch-to-buffer dashboard-buffer-name)
+  (goto-char (point-min))
+  (redisplay)
+  (run-hooks 'dashboard-after-initialize-hook))
+
 ;;;###autoload
 (defun dashboard-setup-startup-hook ()
-  "Setup post initialization hooks.
-If a command line argument is provided, assume a filename and skip displaying
-Dashboard."
-  (when (< (length command-line-args) 2)
-    (add-hook 'after-init-hook (lambda ()
-                                 ;; Display useful lists of items
-                                 (dashboard-insert-startupify-lists)))
-    (add-hook 'emacs-startup-hook (lambda ()
-                                    (switch-to-buffer dashboard-buffer-name)
-                                    (goto-char (point-min))
-                                    (redisplay)
-                                    (run-hooks 'dashboard-after-initialize-hook)))))
+  "Setup post initialization hooks unless a command line argument is provided."
+  (when (< (length command-line-args) 2) ;; Assume no file name passed
+    (add-hook 'window-size-change-functions #'dashboard-resize-on-hook 100)
+    (add-hook 'window-setup-hook #'dashboard-resize-on-hook)
+    (add-hook 'after-init-hook #'dashboard-insert-startupify-lists)
+    (add-hook 'emacs-startup-hook #'dashboard-initialize)))
 
 (provide 'dashboard)
 ;;; dashboard.el ends here