emacs(dash): make the dashboard print a random message

             list 'dashboard-messages' with multiple messages
             function 'my/dashboard-random-message' that picks a random
             message from the list
             implented in :custom of minimal-dashboard

2 files changed, 11 insertions, 3 deletions

diff --git a/+dashboard.el b/+dashboard.el
index e38b779..0d7cf78 100644
--- a/+dashboard.el
+++ b/+dashboard.el
@@ -1,8 +1,17 @@
 ;;; $DOOMDIR/+dashboard.el -*- lexical-binding: t; -*-
+
+(defvar dashboard-messages
+  '("Vi-Vi-Vi editor of the beast"
+    "Welcome to Emacs"
+    "M-x M-x"
+    "nnngh *humps* get pregnant!!!"))
+(defun my/dashboard-random-message ()
+  (nth (random (length dashboard-messages))
+       dashboard-messages))
 (use-package! minimal-dashboard
   :init
   (setq initial-buffer-choice #'minimal-dashboard)
   :custom
   (minimal-dashboard-buffer-name "*dash*")
-  (minimal-dashboard-text "Vi-Vi-Vi editor of the beast")
+  (minimal-dashboard-text #'my/dashboard-random-message)
   (minimal-dashboard-modeline-shown 1))
diff --git a/+jabber.el b/+jabber.el
index 76b8ca8..64c6e2a 100644
--- a/+jabber.el
+++ b/+jabber.el
@@ -10,7 +10,6 @@
       :prefix "j"
       :desc "Jabber connect"     "c" #'jabber-connect-all
       :desc "Jabber disconnect"  "q" #'jabber-disconnect
-      :desc "Jabber roster"      "r" #'jabber-switch-to-roster-buffer
+      :desc "Jabber roster"      "r" #'jabber-roster
       :desc "Jabber new chat"    "n" #'jabber-chat-with
-      :desc "Jabber groupchat"   "g" #'jabber-groupchat-join
       :desc "Jabber set status"  "s" #'jabber-send-presence)