               (cond
                ((eq el 'recents)
                 (recentf-mode)
-                (when (spacemacs//insert-file-list "  Recent Files:" (recentf-elements 5))
+                (when (spacemacs//insert-file-list "  Recent Files:" (recentf-elements 5) "r")
                   (insert list-separator)))
                ((eq el 'bookmarks)
                 (helm-mode)
-                (when (spacemacs//insert-file-list "  Bookmarks:" (bookmark-all-names))
+                (when (spacemacs//insert-file-list "  Bookmarks:" (bookmark-all-names) "b")
                   (insert list-separator)))
                ((eq el 'projects)
                 (projectile-mode)
-                (when (spacemacs//insert-file-list "  Projects:" (projectile-relevant-known-projects))
+                (when (spacemacs//insert-file-list "  Projects:" (projectile-relevant-known-projects) "p")
                   (insert list-separator))))) dotspacemacs-startup-lists))))
 
 (defun spacemacs/goto-link-line ()

(defun spacemacs/insert-buttons ()
  (goto-char (point-max))
  (insert "      ")
  (insert-button "[Homepage]" 'action
                 (lambda (b) (browse-url "https://github.com/syl20bnr/spacemacs"))
                 'follow-link t 'help-echo "Open the Spacemacs Github page in your browser.")
  (insert " ")
  (insert-button "[Documentation]" 'action
                 (lambda (b) (browse-url "https://github.com/syl20bnr/spacemacs/blob/master/doc/DOCUMENTATION.md"))
                 'follow-link t 'help-echo "Open the Spacemacs documentation in your browser.")
  (insert " ")
  (insert-button "[Gitter Chat]" 'action
                 (lambda (b) (browse-url "https://gitter.im/syl20bnr/spacemacs"))
                 'follow-link t 'help-echo "Ask questions and chat with fellow users in our chat room.")
  (insert " ")
  (insert-button "[Update]" 'action
                 (lambda (b) (configuration-layer/update-packages))
                 'follow-link t 'help-echo "Update all ELPA packages to the latest versions.")
  (insert " ")
  (insert-button "[Rollback]" 'action
                 (lambda (b) (call-interactively 'configuration-layer/rollback))
                 'follow-link t 'help-echo "Rollback ELPA package upgrades if something got borked.")
  (insert "\n")
  (let ((button-title "[Search in Spacemacs]"))
    ; Compute the correct number of spaces to center the button.
    (dotimes (i (/ (- spacemacs--banner-length (string-width button-title) 1) 2)) (insert " "))
    (insert-button button-title 'action
                   (lambda (b) (call-interactively 'helm-spacemacs)) 'follow-link t
                   'help-echo "Find Spacemacs package and layer configs using helm-spacemacs."))
  (insert "\n\n")
  )

(defun spacemacs//insert-file-list (list-display-name list)
  (when (car list)
    (insert list-display-name)
    (mapc (lambda (el)
            (insert "\n    ")
            (insert-button el
                           'action `(lambda (b) (find-file-existing ,el))
                           'follow-link t))
          list)))

(defun spacemacs/insert-startupify-lists ()

      (re-search-forward "Homepage")
      (beginning-of-line))))

;;this feels like the wrong place to put these
(add-hook 'spacemacs-mode-hook (lambda ()
                                 (local-set-key [tab] 'widget-forward)
                                 (local-set-key [S-tab] 'widget-backward)))

(provide 'core-spacemacs-buffer)
