From ee4291f37840bd75f8f269c41ed3978dc5cc809b Mon Sep 17 00:00:00 2001
From: Luis Henriquez-Perez <luishenriquezperez@gmail.com>
Date: Sun, 21 Jul 2019 08:11:29 -0400
Subject: [PATCH] Create a custom variable `dashboard-footer-messages`.

---
 dashboard-widgets.el | 49 ++++++++++++++++++++++++--------------------
 1 file changed, 27 insertions(+), 22 deletions(-)

diff --git a/dashboard-widgets.el b/dashboard-widgets.el
index 3ee2a118..a429e90d 100644
--- a/dashboard-widgets.el
+++ b/dashboard-widgets.el
@@ -68,6 +68,21 @@ to the specified width, with aspect ratio preserved."
   :type 'boolean
   :group 'dashboard)
 
+(defcustom dashboard-footer-messages
+  '("The one true editor, Emacs!"
+    "Who the hell uses VIM anyway? Go Evil!"
+    "Free as free speech, free as free Beer"
+    "Richard Stallman is proud of you"
+    "Happy coding!"
+    "Vi Vi Vi, the editor of the beast"
+    "Welcome to the church of Emacs"
+    "While any text editor can save your files,\
+ only Emacs can save your soul"
+    "I showed you my source code,pls respond")
+  "A list of messages, one of which dashboard chooses to display."
+  :type 'list
+  :group 'dashboard)
+
 (defcustom dashboard-show-shortcuts t
   "Whether to show shortcut keys for each section."
   :type 'boolean
@@ -110,21 +125,6 @@ Example:
       (format "Emacs started in %s" (emacs-init-time))))
   "Init info with packages loaded and init time.")
 
-(defvar dashboard-footer
-  (let ((list '("The one true editor, Emacs!"
-                "Who the hell uses VIM anyway? Go Evil!"
-                "Free as free speech, free as free Beer"
-                "Richard Stallman is proud of you"
-                "Happy coding!"
-                "Vi Vi Vi, the editor of the beast"
-                "Welcome to the church of Emacs"
-                "While any text editor can save your files,\
- only Emacs can save your soul"
-                "I showed you my source code,pls respond"
-                )))
-    (nth (random (1- (1+ (length list)))) list))
-  "A footer with some short message.")
-
 (defvar dashboard-footer-icon
   (if (and (display-graphic-p)
            (or (fboundp 'all-the-icons-fileicon)
@@ -496,15 +496,20 @@ WIDGET-PARAMS are passed to the \"widget-create\" function."
       ,list)))
 
 ;; Footer
+(defun dashboard-random-footer ()
+  "Return a random footer from `dashboard-footer-messages'."
+  (nth (random (length dashboard-footer-messages)) dashboard-footer-messages))
+
 (defun dashboard-insert-footer ()
   "Insert footer of dashboard."
-  (when dashboard-set-footer
-    (insert "\n")
-    (dashboard-center-line dashboard-footer)
-    (insert dashboard-footer-icon)
-    (insert " ")
-    (insert (propertize dashboard-footer 'face 'dashboard-footer))
-    (insert "\n")))
+  (let ((footer (and dashboard-set-footer (dashboard-random-footer))))
+    (when footer
+      (insert "\n")
+      (dashboard-center-line footer)
+      (insert dashboard-footer-icon)
+      (insert " ")
+      (insert (propertize footer 'face 'dashboard-footer))
+      (insert "\n"))))
 
 ;;
 ;; Recentf