Function: startup-insert-newcomers-theme

startup-insert-newcomers-theme is a byte-compiled function defined in startup.el.gz.

Signature

(startup-insert-newcomers-theme)

Documentation

Insert information about newcomers-presets theme at point.

Source Code

;; Defined in /usr/src/emacs/lisp/startup.el.gz
(defun startup-insert-newcomers-theme ()
  "Insert information about `newcomers-presets' theme at point."
  (insert "New to Emacs?  Consider enabling ")
  (insert-button "newcomer presets"
                 'action (lambda (_button)
                           (info "(emacs) Newcomers Theme"))
                 'follow-link t)
  (insert ": ")
  (insert-button (if (custom-theme-enabled-p 'newcomers-presets)
                     "Disable"
                   "Enable")
                 'action (lambda (button)
                           (let ((inhibit-read-only t))
                             (replace-region-contents
                              (button-start button)
                              (button-end button)
                              (pcase (button-label button)
                                ("Enable"
                                 (load-theme 'newcomers-presets)
                                 "Disable")
                                ("Disable"
                                 (disable-theme 'newcomers-presets)
                                 "Enable")))))))