Emacs のタイトルバーにバッファ名かファイル名を表示する

タイトルバーにカレントバッファのバッファ名かファイル名を表示します。 カレントバッファがファイルを開いていたらファイル名を、そうでなかったらバッファ名を表示します。 (setq frame-title-format (if (buffer-file-name) (format "%%f - Emacs") (format "%%b - Emacs"))) %%b とかは、モードラインの書式に似ているので、M-x apropos mode-line-format で調べると分かります。 なんか、.emacsを紛失するたんびに書いているような気もしますが…。

ブログに関連する記事を Outbrain で表示してみる

ブログに関連する記事を表示するブログパーツ [LinkWithin](http://www.linkwithin.com/learn) を使っていたのですが、ブログを引越しするとなぜか表示されなくなったので、[Outbrain](https://my.outbrain.com/getwidget) を試しています。 LinkWithinとは違い、Outbrain は ユーザー登録しないと使えませんが、細かい設定ができたりアクセス履歴を見れたりします。 ただ、肝心の「関連する記事をピックアップする機能」が LinkWithinよりも下手な気がします。日本語向けの最適化が甘いのかもしれませんが、もう少し様子を見てみたいと思います。

Emacs から Mac の Quick look を使う

(defun quicklook-file (path) (interactive) (defvar cur nil) (defvar old nil) (setq old cur) (setq cur (start-process "ql-file" nil "qlmanage" "-p" path)) (when old (delete-process old))) こんなのを書いてみたんですが、ちょっとビミョーでした。 Dired で v 押したときにプレビューできるように、こんなふうに(↓)してみましたが…。 (defun dired-view-file-quicklook () (interactive) (let ((file (dired-get-file-for-visit))) (if (file-directory-p file) (or (and (cdr dired-subdir-alist) (dired-goto-subdir file)) (dired file)) (save-selected-window (quicklook-file file)) ))) (define-key dired-mode-map (kbd "v") 'dired-view-file-quicklook) 毎回プロセスを起動しているので遅いです。Quicklookデーモンにテキストを送信するようなことができたらいいと思ったのですが、見当たりませんでした。 まあ、Quicklook 自体がビミョーってのもあるんですけど。

Emacsでフォントを拡大・縮小

最近の Emacs には text-scale-increase というのが、標準で入っているようです。 とりあえず、C-M-= 等で拡大できるようにしておきました。 (global-set-key (kbd "C-M-=") 'text-scale-increase) (global-set-key (kbd "C-M--") 'text-scale-decrease) (global-set-key (kbd "C-M-0") '(lambda () (interactive) (text-scale-set 0)))

cycle-buffer.el は古いらしい

[cycle-buffer.el](http://emacswiki.org/emacs/cycle-buffer.el) を長年使っていたのですが、[ココ](http://lists.gnu.org/archive/html/ratpoison-devel/2004-04/msg00085.html)によるとどうやら obsolete なようです。2004年というと、9年前ですね。いいかげん気づけよって話しですが(^^; で、今は bs.el というバッファ切り替え全般を受け持つモジュールが標準で入っていて、この中に cycle-buffer に似たような機能があります。 cycle-buffer.el で *scratch* バッファを表示候補に入れたかったのですが、これも bs.el を使えば簡単でした。 (global-set-key [(f11)] 'bs-cycle-previous) (global-set-key [(f12)] 'bs-cycle-next) (setq bs-cycle-configuration-name "files-and-scratch") ; *scratch*バッファも表示候補に入れる 紛らわしいですが、[cyclebuffer.el](http://www.bookshelf.jp/elc/cyclebuffer.el)も同様に obsolete ですね。