Variable: fancy-startup-text
fancy-startup-text is a variable defined in startup.el.gz.
Value
Large value
((:face (variable-pitch font-lock-comment-face) "Welcome to " :link
("GNU Emacs"
#[257 "\301\302\303!)\207"
[browse-url-browser-function eww-browse-url browse-url
"https://www.gnu.org/software/emacs/"]
3 ("startup.elc" . 48515)]
"Browse https://www.gnu.org/software/emacs/")
", one component of the " :link
#[0 "\301=\203\f�\302\303\304BB\207\305\306\307BB\207"
[system-type gnu/linux "GNU/Linux"
#[257 "\301\302\303!)\207"
[browse-url-browser-function
eww-browse-url browse-url
"https://www.gnu.org/gnu/linux-and-gnu.html"]
3 ("startup.elc" . 48515)]
("Browse https://www.gnu.org/gnu/linux-and-gnu.html")
"GNU"
#[257 "\301\302\303!)\207"
[browse-url-browser-function
eww-browse-url browse-url
"https://www.gnu.org/gnu/thegnuproject.html"]
3 ("startup.elc" . 48515)]
("Browse https://www.gnu.org/gnu/thegnuproject.html")]
3]
" operating system.\n\n" :face variable-pitch :link
("Emacs Tutorial"
#[257 "\300 \207" [help-with-tutorial] 2
("startup.elc" . 48515)])
" Learn basic keystroke commands"
#[0
"\302\303\"\206�\304\305\306\307\"r\211q\210\310\311\"\216\312\313 \"\314\"\210\315\316!\210e`S{*\262\304\230\2030�\317\207\320\321Q\207"
[current-language-environment tutorial-directory
get-language-info tutorial
"TUTORIAL" generate-new-buffer
" *temp*" t make-closure
#[0
"\301\300!\205 �\302\300!\207"
[V0 buffer-name kill-buffer]
2]
insert-file-contents
expand-file-name nil
search-forward "." "" " (" ")"]
6]
"\n" :link
("Emacs Guided Tour"
#[257 "\301\302\303!)\207"
[browse-url-browser-function eww-browse-url browse-url
"https://www.gnu.org/software/emacs/tour/"]
3 ("startup.elc" . 48515)]
"Browse https://www.gnu.org/software/emacs/tour/")
" Overview of Emacs features at gnu.org\n" :link
("View Emacs Manual"
#[257 "\300 \207" [info-emacs-manual] 2
("startup.elc" . 48515)])
" View the Emacs manual using Info\n" :link
("Absence of Warranty"
#[257 "\300 \207" [describe-no-warranty] 2
("startup.elc" . 48515)])
" GNU Emacs comes with " :face
(variable-pitch (:slant oblique)) "ABSOLUTELY NO WARRANTY\n"
:face variable-pitch :link
("Copying Conditions"
#[257 "\300 \207" [describe-copying] 2
("startup.elc" . 48515)])
" Conditions for redistributing and changing Emacs\n"
:link
("Ordering Manuals"
#[257 "\300 \207" [view-order-manuals] 2
("startup.elc" . 48515)])
" Purchasing printed copies of manuals\n" "\n"))
Documentation
A list of texts to show in the middle part of splash screens.
Each element in the list should be a list of strings or pairs
:KEYWORD VALUE, like what fancy-splash-insert accepts.
Source Code
;; Defined in /usr/src/emacs/lisp/startup.el.gz
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Fancy splash screen
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst fancy-startup-text
`((:face (variable-pitch font-lock-comment-face)
"Welcome to "
:link ("GNU Emacs"
,(lambda (_button)
(let ((browse-url-browser-function 'eww-browse-url))
(browse-url "https://www.gnu.org/software/emacs/")))
"Browse https://www.gnu.org/software/emacs/")
", one component of the "
:link
,(lambda ()
(if (eq system-type 'gnu/linux)
`("GNU/Linux"
,(lambda (_button)
(let ((browse-url-browser-function 'eww-browse-url))
(browse-url "https://www.gnu.org/gnu/linux-and-gnu.html")))
"Browse https://www.gnu.org/gnu/linux-and-gnu.html")
`("GNU" ,(lambda (_button)
(let ((browse-url-browser-function 'eww-browse-url))
(browse-url "https://www.gnu.org/gnu/thegnuproject.html")))
"Browse https://www.gnu.org/gnu/thegnuproject.html")))
" operating system.\n\n"
:face variable-pitch
:link ("Emacs Tutorial" ,(lambda (_button) (help-with-tutorial)))
"\tLearn basic keystroke commands"
,(lambda ()
(let* ((en "TUTORIAL")
(tut (or (get-language-info current-language-environment
'tutorial)
en))
(title (with-temp-buffer
(insert-file-contents
(expand-file-name tut tutorial-directory)
;; We used to read only the first 256 bytes of
;; the tutorial, but that prevents the coding:
;; setting, if any, in file-local variables
;; section to be seen by insert-file-contents,
;; and results in gibberish when the language
;; environment's preferred encoding is
;; different from what the file-local variable
;; says. One case in point is Hebrew.
nil)
(search-forward ".")
(buffer-substring (point-min) (1- (point))))))
;; If there is a specific tutorial for the current language
;; environment and it is not English, append its title.
(if (string= en tut)
""
(concat " (" title ")"))))
"\n"
:link ("Emacs Guided Tour"
,(lambda (_button)
(let ((browse-url-browser-function 'eww-browse-url))
(browse-url "https://www.gnu.org/software/emacs/tour/")))
"Browse https://www.gnu.org/software/emacs/tour/")
"\tOverview of Emacs features at gnu.org\n"
:link ("View Emacs Manual" ,(lambda (_button) (info-emacs-manual)))
"\tView the Emacs manual using Info\n"
:link ("Absence of Warranty" ,(lambda (_button) (describe-no-warranty)))
"\tGNU Emacs comes with "
:face (variable-pitch (:slant oblique))
"ABSOLUTELY NO WARRANTY\n"
:face variable-pitch
:link ("Copying Conditions" ,(lambda (_button) (describe-copying)))
"\tConditions for redistributing and changing Emacs\n"
:link ("Ordering Manuals" ,(lambda (_button) (view-order-manuals)))
"\tPurchasing printed copies of manuals\n"
"\n"))
"A list of texts to show in the middle part of splash screens.
Each element in the list should be a list of strings or pairs
`:KEYWORD VALUE', like what `fancy-splash-insert' accepts.")