ayato0211 https://blog.hatena.ne.jp/ayato0211/ (define -ayalog '()) https://ayato.hateblo.jp/ Emacs 開発 ずっと前からしたいなーって思ってたけど、思いの外簡単に出来たので満足している。 (setq-default header-line-format '("" (:propertize (:eval (shorten-directory default-directory 30)) face mode-line-folder-face) (:propertize "%b" face mode-line-filename-face))) (defun shorten-directory (dir max-length) "Show up to `max-length' characters of a… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fayato.hateblo.jp%2Fentry%2F20150521%2F1432215957" title="Emacs の上の方にファイルのパスを表示したかった - (define -ayalog &#39;())" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://cdn-ak.f.st-hatena.com/images/fotolife/a/ayato0211/20150521/20150521193130.png Hatena Blog https://hatena.blog 2015-05-21 22:45:57 rich https://ayato.hateblo.jp/entry/20150521/1432215957 1.0 100%