             (setq i (1+ i))))
         (spacemacs/replace-last-line-of-buffer spacemacs-loading-text)
         (redisplay))))
+
+(defun spacemacs/insert-buttons ()
+  (goto-char (point-max))
+  (insert-button "Homepage" 'action
+                 (lambda (b) (browse-url "https://github.com/syl20bnr/spacemacs"))
+                 'follow-link t)
+  (insert " ")
+  (insert-button "Documentation" 'action
+                 (lambda (b) (browse-url "https://github.com/syl20bnr/spacemacs/blob/master/doc/DOCUMENTATION.md"))
+                 'follow-link t)
+  (insert " ")
+  (insert-button "Gitter Chat" 'action
+                 (lambda (b) (browse-url "https://gitter.im/syl20bnr/spacemacs"))
+                 'follow-link t)
+  (insert " ")
+  (insert-button "Messages Buffer" 'action (lambda (b) (switch-to-buffer "*Messages*")) 'follow-link t)
+  (insert " ")
+  (insert-button "Spacemacs Folder" 'action (lambda (b) (find-file user-emacs-directory)) 'follow-link t)
+  (insert "\n\n"))

of size LOADING-DOTS-CHUNK-THRESHOLD."
  (setq spacemacs-loading-counter (1+ spacemacs-loading-counter))
  (if (>= spacemacs-loading-counter spacemacs-loading-dots-chunk-threshold)
      (progn 
        (setq spacemacs-loading-counter 0)
        (let ((i 0))
          (while (< i spacemacs-loading-dots-chunk-size)


(defun spacemacs/set-font (font size &optional options)
  (let* ((fontstr (if options
                      (format "%s-%s:%s" font size options)
                    (format "%s-%s" font size))))
    (spacemacs/message (format "Set default font: %s" fontstr))
    (add-to-list 'default-frame-alist (cons 'font fontstr))
    (set-default-font fontstr)))
