scratch-message 20170107.536(in MELPA)
Changing message in your scratch buffer

概要

あなたは*scratch*バッファを
使う方ですか?

そしたら、
*scratch*バッファを
パワーアップさせてみましょう。

パワーアップといっても、
機能的なパワーアップではないのですが…

エネルギー的なパワーアップです。

言葉というのは、
たった一言で相手を元気づけたり、
逆に一生消えないトラウマを作ったりもします。

偉人の残した名言には
「言霊」というエネルギーが
こめられています。

それにより、人々が鼓舞されます。

そこで*scratch*バッファに
偉人の名言を入れてみるのは
どうでしょうか?

マイナーモード scratch-message-mode を有効にすると、
*scratch*バッファを表示させるたびに名言が変わります。

とはいえ、デフォルトで用意されている
メッセージは英語ですので、
本設定では日本人の名言にしておきます。

20170319070746.png
Fig1: 名言を*scratch*バッファに挿入

インストール

パッケージシステムを初めて使う人は
以下の設定を ~/.emacs.d/init.el の
先頭に加えてください。

(package-initialize)
(setq package-archives
      '(("gnu" . "http://elpa.gnu.org/packages/")
        ("melpa" . "http://melpa.org/packages/")
        ("org" . "http://orgmode.org/elpa/")))

初めてscratch-messageを使う方は
以下のコマンドを実行します。

M-x package-install scratch-message

アップグレードする方は、
以下のコマンドでアップグレードしてください。
そのためにはpackage-utilsパッケージが必要です。

M-x package-install package-utils (初めてアップグレードする場合のみ)
M-x package-utils-upgrade-by-name scratch-message

設定 170319070440.scratch-message.el(以下のコードと同一)

;;; 日本語の名言を変数scratch-message-quotesに設定するためにファイルで読み込む
(load "scratch-message-quotes-ja")
(setq scratch-message-invisible nil)
(scratch-message-mode 1)
(run-with-timer 0.1 nil 'funcall scratch-message-function)

実行方法

$ wget http://rubikitch.com/f/170319070440.scratch-message.el
$ wget http://rubikitch.com/f/scratch-message-quotes-ja.el
$ emacs -Q -f package-initialize -L . -l 170319070440.scratch-message.el

本日もお読みいただき、ありがとうございました。参考になれば嬉しいです。