;; 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))