From 131eae8d53e8bf41023e11da7382294f187ea41d Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Tue, 24 Mar 2020 10:19:15 -0700
Subject: Changes from bison

---
 emacs/inits/NO-06-dashboard.el | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 emacs/inits/NO-06-dashboard.el

(limited to 'emacs/inits/NO-06-dashboard.el')

diff --git a/emacs/inits/NO-06-dashboard.el b/emacs/inits/NO-06-dashboard.el
new file mode 100644
index 0000000..2db87ac
--- /dev/null
+++ b/emacs/inits/NO-06-dashboard.el
@@ -0,0 +1,35 @@
+;; Time-stamp: <2020-02-08 13:07:24 (tslil@bison)>
+
+(use-package fortune
+  :config
+  (setq fortune-dir "/usr/share/fortune/"
+        fortune-program "fortune"
+        fortune-file "/usr/share/fortune/cookie"
+        fortune-program-options '("-s" "tao" "wisdom"))
+  (defun dashboard-fortune (n)
+    (insert
+     (if (evenp (random 2))
+         (with-temp-buffer
+           (let ((fortune-buffer-name (current-buffer)))
+             (fortune-in-buffer t)
+             (buffer-string)))
+       (shell-command-to-string "shuf -n 1 ~/store/quotes")))))
+
+
+
+(use-package dashboard
+  :ensure t
+  :config
+  (add-to-list 'dashboard-item-generators '(fortune . dashboard-fortune))
+
+  (setq dashboard-center-content t
+        dashboard-set-init-info t
+        dashboard-set-footer nil
+        dashboard-banners-directory (expand-file-name "~/.emacs.d/banners/")
+        dashboard-startup-banner 5
+        dashboard-items '((recents . 5)
+                          (projects . 5)
+                          (fortune . 0))
+        dashboard-init-info (format "Welcome ~%s!" (user-login-name)))
+
+  (dashboard-setup-startup-hook))
-- 
cgit v1.2.3