Emacsのスタート画面をイケメンにする

emacs

100分の1秒でもemacsの起動を早くしようと試行錯誤している一方、起動のたびに真黒なScratch画面と向きあっていると気分も暗くなってくる。せめて初期画面くらいは、ホットするようなものにしたい…ということで、dashbord.elを導入してみた。

Alt Text

dashbord.elを入れる

M-x package install dashbord.el

設定は以下の通り

;; Set the title
(when (eq system-type 'darwin)
  (setq dashboard-banner-logo-title
        (concat "GNU Emacs " emacs-version " kernel "
                (car (split-string (shell-command-to-string "uname -r")))  " x86_64 Mac OS X "
                (car(split-string (shell-command-to-string "sw_vers -productVersion") "-")))))
(when (eq system-type 'gnu/linux)
  (setq dashboard-banner-logo-title
        (concat "GNU Emacs " emacs-version " kernel "
                (car (split-string (shell-command-to-string "uname -r")))  " x86_64 Debian GNU/Linux "
                (car (split-string (shell-command-to-string "cat /etc/debian_version") "_")))))

;; Set the banner
(setq dashboard-startup-banner "~/Dropbox/emacs.d/emacs.png")
(dashboard-setup-startup-hook)
(setq dashboard-page-separator "\n\f\f\n")
(setq dashboard-items '((recents  . 15)))

Recent listは、Tab(Shift+Tab)キーを押すことで選択できる。