WOMO

howm の バッファ名は howm のタイトルで on xyzzy

Posted at Wed, 19 Apr 2006 in computer::xyzzy

howm ファイルを大量に開いたときに、どのバッファがどのファイルかわからなくなるので、バッファ名を howm のタイトルに変更するようにしてみました。スクリーンショットの上２番目がが適用前、下のふたつが適用後です。

新規作成の場合には、タイトルがないので適用されません。

1 メモ 1 ファイルでない場合にはあんまり意味がないかも。

コード

howm-init.l に記述します。

;;;;;;;;;;;;;;;;;;
;; ■ howm ファイルのバッファ名をhowmデータのタイトルに
(defun change-buffer-name-to-howm-title ()
  (save-window-excursion
    (let ((title (string-trim " =" (buffer-substring (progn (goto-char (point-min)) (point))
                                                     (progn (goto-eol) (point)))))
          (prefix "H: "))
      (when (and (get-buffer-file-name) (> (length title) 0))
        (rename-buffer (concat prefix title))))))
(add-hook 'howm-mode-on-hook 'change-buffer-name-to-howm-title)

［Permalink］