blob: dbc8fd0c3bf5d7ea8e2e13dd0d3ea31baaa24031 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(switch-to-buffer "*splash*")
(with-current-buffer "*splash*"
(let* ((message "Welcome to nEmacs")
(message-len (length message)))
(insert
(concat
(make-string (/ (- (window-total-width) message-len) 2) ? )
message
"\n"))))
(provide 'elchemy-splash)
|