From cf7b239bcbf9558d061fc6f26a882e8bfe0c4977 Mon Sep 17 00:00:00 2001
From: kj <webmaster@outcontrol.net>
Date: Wed, 9 Apr 2025 14:08:46 -0300
Subject: [PATCH] Change dashboard startup behavior.

---
 configs/init-base.el     |  5 -----
 configs/init-packages.el | 20 +++++---------------
 2 files changed, 5 insertions(+), 20 deletions(-)

diff --git a/configs/init-base.el b/configs/init-base.el
index d23a627..2be56bd 100644
--- a/configs/init-base.el
+++ b/configs/init-base.el
@@ -129,11 +129,6 @@
   (set-face-attribute 'default nil :font "Fira Code Retina" :height 112)
   (scroll-bar-mode -1)
 
-  ;; Abrir primero el dashboard
-  (setq initial-buffer-choice (lambda ()
-                                (get-buffer "*dashboard*")
-                                (dashboard-refresh-buffer)))
-
   ;; Cerrar buffers al cerrar emacsclient
   ;; (add-hook 'delete-frame-functions
   ;;           (lambda (frame)
diff --git a/configs/init-packages.el b/configs/init-packages.el
index 38c81e1..70104c4 100644
--- a/configs/init-packages.el
+++ b/configs/init-packages.el
@@ -58,20 +58,7 @@
 ;; Un bonito y sencillo panel de inicio
 (use-package dashboard
   :defer t
-  :hook
-  (elpaca-after-init . (lambda ()
-                         "Refrescamos el dashboard con la agenda luego de cargar todo"
-                         (when (< (length command-line-args) 2)
-                           (dashboard-open)
-                           (run-at-time 1 nil (lambda()
-                                                "Recargamos el buffers con los items de manera asincrónica"
-                                                (setq dashboard-items '(
-                                                                        ;; (recents . 10)
-                                                                        (agenda . 10)
-                                                                        ))
-                                                (dashboard-refresh-buffer))) ;; Refrescamos el buffer sin bloquear emacs
-                           )))
-  :config
+  :init
   (setq dashboard-set-file-icons t
         dashboard-set-heading-icons t
         dashboard-set-file-icons t
@@ -79,7 +66,10 @@
         dashboard-agenda-time-string-format "%Y-%m-%d %H:%M")
   (setq dashboard-startup-banner
         (expand-file-name "duck.svg" user-emacs-directory))
-   (setq dashboard-items '())
+  (setq dashboard-items '(
+                          (recents . 10)
+                          ;; (agenda . 10)
+                          ))
   )
 
 ;; Coloca en emacs la documentacón distribuída por devdocs.io