Emacsでアクセサリを表示してみたくなった

TANEが良く使うデフォルトのウインドウ操作はおおよそ以下のものです。

• split-window-below (C-x 2) 現在フォーカスしているウインドウを上下に分割する
• split-window-horizontally (C-x 3) 現在フォーカスしているウインドウを左右に分割する
• other-window (C-x o) フォーカスするウインドウを切り替える
• delete-window (C-x 0) 現在のウインドウを閉じる(消去する)
• delete-other-windows (C-x 1) フォーカスしているウインドウ以外のウインドウを閉じる(消去する)

他に、キーバインドを追加しています。

(global-set-key [C-down]  'windmove-down)
(global-set-key [C-up]    'windmove-up)
(global-set-key [C-left]  'windmove-left)
(global-set-key [C-right] 'windmove-right)
(global-set-key [?\C-:]   'shrink-window-horizontally)
(global-set-key "\C-\]"   'enlarge-window-horizontally)
(global-set-key [?\C--]   'shrink-window)
(global-set-key [?\C-^]   'enlarge-window)

アクセサリウインドウ表示を維持するにあたって、先に挙げたデフォルトの ウインドウ操作の、delete-other-windowsは折角表示しているアクセサリウインドウを 閉じてしまう操作ですし、other-windowは表示しているだけのアクセサリウインドウは 選択しなくても良いんですけど？な、ちょっと邪魔臭い操作となってしまいます。

という訳で、ここんところをどうにかすればいいんじゃね？ というゆる～い発想 です。

このバッファを表示しているウインドウは、ウインドウ操作の対象にして欲しくない というのを解釈して、ウインドウ切り替え時などに考慮すれば良いんじゃね？ と考えました。

delete-windowなどの操作は「/usr/share/emacs/2?.?/lisp/window.el.gz」に 関数の実体が存在します。これを改造する事も考えたのですが、組み込みのC関数を 実行するケースがあり、簡単に改造する事ができそうにありませんでした。 仕方なく、似た動きをするELISPを書く事にしました。

別にELISPに詳しい訳でもなんでもないので、実現できるか否かは神のみぞ知ると いうのがこのときの状況でした😅

やりたい事は単純で、例えばウインドウを切り替える場合は、 「切り替え候補のウインドウが、操作を除外したいバッファを表示してなければ、 そのウインドウに切り替え、そうでなければその次のウインドウを検査する。」 くらいの感じです。ELISP以外のプログラム言語をそれなりに使える方であれば、 判断に必要な情報が揃っていれば、コーディング自体は全く大した事では無いと 感じるのではないでしょうか。ELISPだとなんだか敷居が高い気がする のですが、リストの取り出し方などが判れば、記述がちょっと変わったプログラム 言語ってだけだだと思います。

ちょっと悩んだのはウインドウを開く方。普通に使っていると、今あるウインドウを 再利用する形で新規に開いたバッファを表示したり(例えばlist-buffersとか)、 ウインドウが一つしか無いとウインドウを分割して開いたりと、意外と無秩序に 開いている(本当はルールがあるのかも知れませんが良く判らない😅)事に気づきます。 これを乗っ取るのに、windowP-display-buffer-functionという変数に 関数を結び付けて開き方を変える必要がありました。これについては 好みが分かれる感じになりそうですが、色々設定可能にするのも面倒臭いので、 アクセサリウインドウ表示の邪魔にならない最低ラインで譲歩するという事に しました。この為、例えば翻訳サイトにアクセスする text-translator は、翻訳結果の文書量に応じて適切な高さのウインドウを開くような動きを するのですが、そういうのが無しになります。

できたのが以下のものです。(2022/1/15追記; 互換性の事情のため 古いv00x系と新しいv20xの両方を置いてあります)

• window-plus-v202.tar.xz ※v20x系ではEmacs-27系以降と相性が悪かったのを修正しています(参考)
• window-plus-v008.tar.xz

window-plus.elを/usr/share/emacs/site-lisp なんかに突っ込んで、 .emacs(オールドスタイルですみません)とかに以下の設定を追加して使用します。

• v20x系での設定

(require 'window-plus)
(window-plus-init)
(setq windowP-ignore-buffers (list "*bijin-tokei*" "*wclock*" "*Calendar*" "*emneko*"))
(global-set-key "\eo"   'other-window)
(global-set-key "\C-xo" 'other-window+)
(global-set-key "\e0"   'delete-window)
(global-set-key "\C-x0" 'delete-window+)
(global-set-key "\e1"   'delete-other-windows)
(global-set-key "\C-x1" 'delete-other-windows+)

• 古いv00x系での設定

(require 'window-plus)
(setq display-buffer-function windowP-display-buffer-function)
(setq windowP-ignore-buffers (list "*bijin-tokei*" "*wclock*" "*Calendar*" "*emneko*"))
(global-set-key "\eo"   'other-window)
(global-set-key "\C-xo" 'other-window+)
(global-set-key "\e0"   'delete-window)
(global-set-key "\C-x0" 'delete-window+)
(global-set-key "\e1"   'delete-other-windows)
(global-set-key "\C-x1" 'delete-other-windows+)

この例では、 「*bijin-tokei*」「*wclock*」「*Calendar*」「*emneko*」のいずれかの バッファを表示しているウインドウを操作から除外します。 ちょっと試していただくと「そういう事か」と分かっていただけると思います。

元々のキーバインドは「+付き」の関数に置き換えて、元々の「+無し」関数は 別のバインドに移しています。 人によってはバインドが被る可能性がありますが、完全に置き換えると ウインドウフォーカスが急に面倒臭い事になる可能性があります (Calendarは操作したくなりますもんね)ので、どこかしらにバインドを 移す事をお勧めします。

途中でバッファ名の追加や削除を行いたくなった場合は以下の関数で 無効バッファ名リストを更新できます。

例えば、リアルタイムに動作するELISPのデバッグメッセージを「*Messages*」に 出すようにしたが、他の事をやっている間もログ表示を眺めたい場合などに、 一時的にバッファ名を追加し、用事が無くなれば削除するという使い方を想定しています。

ただ、万事OKという感じにはなってないと思います。「あ～、そうなるか～～」 の例を挙げてみます。

という訳で、良い感じのウインドウレイアウトを一時記録、壊れたらリストアする簡単なバインド を併用しています。

(global-set-key "\C-t\C-s"   #'(lambda () ""
                                (interactive)
                                (message "Save window configuration")
                                (setq window-config (current-window-configuration))))
(global-set-key "\C-t\C-l"   #'(lambda () ""
                                (interactive)
                                (message "Restore window configuration")
                                (set-window-configuration window-config)))

ELISPによってはdelete-other-windowsを実行しているものもあります。 例えばcolor-moccur.el は、文字列検索をするのにとても便利なELISPですが、検索結果を別ウインドウに表示する際に delete-other-windowsを実行している為、レイアウトが完全に崩されます。 このようなものはどうしようもありませんので、本体のELISPを改造する(具体的には delete-other-windows実行コードを削除する)必要があるかも知れません。

Emacsで動作するGitクライアントの Magit v2.x系と window-plus との組み合わせで、 ウインドウが操作不能に陥る状況がありました(参考)。Magitの依存パッケージである transient と の相性に問題があるようで、display-buffer-function を使ったウインドウ操作のカスタマイズ 機構を利用すると問題が起こるようです。transientで対応する以外の方法が思いつかなかった為、 以下のようなパッチを当てて使用しています。

--- transient.el.orig   2019-04-19 20:47:04.112000700 +0900
+++ transient.el        2019-07-07 21:07:37.434244400 +0900
@@ -2336,7 +2336,10 @@
   (transient--timer-cancel)
   (setq transient--showp t)
   (let ((transient--source-buffer (current-buffer))
-        (buf (get-buffer-create " *transient*")))
+        (buf (get-buffer-create " *transient*"))
+        (dbf-bkup display-buffer-function)
+        )
+    (setq display-buffer-function nil)
     (unless (window-live-p transient--window)
       (setq transient--window
             (display-buffer buf transient-display-buffer-action)))
@@ -2364,7 +2367,9 @@
       (let ((window-resize-pixelwise t)
             (window-size-fixed nil))
         (fit-window-to-buffer nil nil 1))
-      (goto-char (point-min)))))
+      (goto-char (point-min)))
+    (setq display-buffer-function dbf-bkup)
+    ))

 (defun transient--insert-groups ()
   (let ((groups (cl-mapcan (lambda (group)

関数 transient--show 内で 変数display-buffer-function の内容を一時変数に保存した上で nil に設定し、関数を抜ける前に display-buffer-function を保存してあった値に戻す という 事を行っています。

Magit 3.x とwindow-plusの組み合わせでの確認は行えていません。 引き続き前述 Magit 2.x(で使用しているtransient)向けのパッチが有効かも知れませんし、 新たなパッチを当てる必要があるかも知れませんし、パッチが無くても大丈夫になっているかも知れませんが、 よしなに.....

[2022/10/1追記] 2022年9月30日をもって 美人時計のサービスが終了したようです。本アクセサリも機能しなくなりますが歴史の一端として置いておきます。

原作はsanryuu氏の bijin-tokei.el で、window-plus.elを作成する原動力となった作品です。 それをTANEの都合の良いように改造して使わせてもらってます。

bijin-tokei-220402.tar.xz

画像をウインドウサイズに応じて拡大/縮小表示するようにしました。 image+.elの コードを拝借しています。ImageMagick(もしくはそれに代わる画像縮小外部コマンド)が 必要になっています。また、 emacs-deferred を使用するようにしました。予めパッケージインストールしておく 必要があります。

使用方法は原作に準拠しています。

• .emacs設定例

;; 原作準拠設定
(require 'bijin-tokei)
(setq bijin-tokei-genre "jp")

bijin-tokei-genre-listを元にシャッフル表示する機能を追加しています。 以下ように追加すれば、お好みのジャンルを毎分シャッフルして表示します。

;; シャッフル設定
(require 'bijin-tokei)
(setq bijin-tokei-genre-list (list "jp" "tokyo" "osaka"))
(setq bijin-tokei-shuffle-genre t)

• 起動方法

M-x bijin-tokei-start
または
M-x bijin-tokei-start-other-window

• 終了方法

M-x bijin-tokei-stop
または
*bijin-tokei* のウインドウで'q'を押す

Cygwin(32bit)で野良ビルドしたEmacs上で使ったとき、突然SegfaultでEmacsごと お亡くなりになるという現象に遭遇しました。原因を特定するには至って いませんが、ワークアラウンド方法としてImageMagickのconvertコマンドを 直接実行せずにshellを介して別のコマンドを使って画像のリサイズを 行えば取りあえず大丈夫そうという事が判ったので、150329版から 画像リサイズのコマンド列をカスタマイズできるようにしました。 TANEの環境では以下の設定を.emacsに追加しています。

Cygwin(32bit) を2.3.0-1にアップデートしてから、Emacs+美人時計でSegfaultが 発生する事は無くなりました。恐らくCygwinかnewlibのバグだったのではないかと 推測します。もう使う事は無いかも知れませんが、ImageMagicが無い場合や、将来もっと良い リサイズコマンドが作られる事があるかも知れませんので、画像リサイズの カスタマイズ機構はそのまま残しておくことにします。

(setq bijin-tokei-image-convert-direct nil)
(setq bijin-tokei-image-sh "ash")
(setq bijin-tokei-image-conv-topng
      '("djpeg" "-ppm" "|" "pnmscale" "-xysize" (format "%s" (nth 1 args)) (format "%s" (nth 2 args)) "|" "pnmtopng"))
(setq bijin-tokei-image-conv-tojpg
      '("djpeg" "-ppm" "|" "pnmscale" "-xysize" (format "%s" (nth 1 args)) (format "%s" (nth 2 args)) "|" "cjpeg" "-quality" "100"))
(setq bijin-tokei-image-conv-togif
      '("djpeg" "-ppm" "|" "pnmscale" "-xysize" (format "%s" (nth 1 args)) (format "%s" (nth 2 args)) "|" "cjpeg" "-quality" "100" "|" "djpeg" "-gif"))

この設定では、IJG のJPEGツール(djpeg,cjpeg)と、 Netpbm のリサイズコマンド(pnmscale), PNG変換コマンド(pnmtopng)を使用しますので、別途用意しておく必要があります。 Cygwinであればいずれもパッケージインストール可能です。

歴史のある由緒正しい猫です (参考Wikipedia)。 原作はPC-9801シリーズ時代まで遡るようですが、 xnekoという名でUNIX系では有名な猫です。本当はカーソルを 追いかけるアクセサリなのですが、ELISP力が低くて動かすだけで 精一杯😓

emneko-20200815.tar.xz

• .emacs設定例

(add-to-list 'load-path "/usr/share/emacs/site-lisp/emneko") ;emnekoディレクトリを/usr/share/emacs/site-lisp/に置いた場合
(require 'emneko)

• 起動方法

M-x emneko-start
または
M-x emneko-start-other-window

• 終了方法

M-x emneko-stop
または
*emneko* のウインドウで'q'を押す

訳あって少し大きめ表示の時計をEmacs上で動かしたい要件があったので作ってみました。

dclock-161216.tar.xz

• .emacs設定例

(require 'dclock)

• 起動方法

M-x dclock-start
または
M-x dclock-start-other-window

• 終了方法

M-x dclock-stop
または
*DigitalClock* のウインドウで'q'を押す

少々煩雑ではありますが、表示フォーマットや部分的なフォント変更などに対応しています。 例えば.emacsに以下のような設定を行うと(「7セグ・14セグフォント 「DSEG」」 というフォントは別途インストール済みとします)

(require 'dclock)
(setq dclock-font-scale 9)
(setq dclock-font-faces '(:family "DSEG7 Classic" :foundry "outline" :slant italic :weight bold))
(setq dclock-format-time-string "%Y年%m月%d日(%a)\n%H:%M %S")
(setq dclock-display-properties
  #'(lambda () ""
     (progn
       (add-text-properties    (point-min)    (- (point-max) 8) '(face (:family "Impact" :height 0.3 :weight normal :slant normal)))
       (add-text-properties (- (point-max) 3)    (point-max)    '(face (:height 0.5)))
       )))

という感じの表示に変更できます。

CPU負荷の情報を取得する方法を知ったので、Emacs上で表示できないかと作ってみました。

sysmon_201115.tar.xz

システムとして /proc/stat ファイルがサポートされている必要があります。 LinuxとCygwinで動作する事は確認しましたが、他のOSやSYSTEMで動くかは確認 していません。

• .emacs設定例

(require 'sysmon)
;;以下必要に応じて設定
(if (window-system)
    (progn
      (setq sysmon-plotchar ?▌)
      (setq sysmon-disp-faceprop (list :foreground "blue" :height 1.5))
      (setq sysmon-plot-faceprop (list :foreground "dim gray" ))
      ))

• 起動方法

M-x sysmon-start
または
M-x sysmon-start-other-window

• 終了方法

M-x sysmon-stop
または
*System-Monitor* のウインドウで'q'を押す

• キーバインド
  • 't' : SVG描画がサポートされている場合 テキスト/SVGをトグル切り替えします。
  • 'q' : 終了

161223版から表示のカスタマイズを行えるようにしてみました。

200201版からSVG表示を利用したグラフィックス表示を行えるようにしてみました。

以下の変数を.emacsなどに記述する事でカスタマイズを行います。

Emacs25ではtext-scale-set等によるフォントサイズの変更に表示行桁は追従します。

Emacs24では 「default-font-width および default-font-height」という関数が無い為、 実行するとエラーします(すなわちtext-scale-set等によるフォントサイズの変更に表示行桁は追従できません)。 この為、

(setq sysmon-disable-fitwindow t)

を.emacsに追加する必要があります。

GUIで使用する場合、表示文字数が多くなった場合にハング状態に陥る場合がありました (参考)。 200125版では表示文字数の上限を変数sysmon-drawcancel-thresholdで指定できる ようにしました。例えば Cygwinのemacs-w32をGUIモードで使用する場合、 「(setq sysmon-drawcancel-threshold 8400)」(840桁×10行)くらいであれば再描画 間隔が1秒でもなんとかハングせずに使えるようになるかと思います。

200201版では、SVG描画が可能なビルドで且つGUIで使用する場合にグラフをグラフィックス描画する モードを追加しました。 変数 sysmon-enable-svg-draw をtにする事で有効になります(デフォルトではnil(無効)になっています)。 -nwで起動した場合は sysmon-enable-svg-draw を tにしてもテキスト表示が有効になります。 GUIで使用する場合はテキスト描画よりもSVG描画の方がCPU負荷が少ないです。

表示だけのカレンダーアプリです。Emacsに標準装備されているcalendarは超高機能なの ですが、表示が3ヵ月固定だったりウインドウサイズが動的に変更されるのが常時表示 するには少し都合が悪かったので自作してみました。

mcalendar_201115.tar.xz

他のアクセサリアプリと違って 操作可能となっています。設定やキーバインドは以下の通り。

• .emacs設定例

(require 'mcalendar)
(setq mcalendar-display-width        2) ; 横に並べるカレンダーの数を指定します
(setq mcalendar-display-height       1) ; 縦に並べるカレンダーの数を指定します
(setq mcalendar-display-holidayname  t) ; 祝日名の表示/非表示を指定します
(setq mcalendar-monthvec  mcalendar-month-ja1)    ; 月を日本語表示します
(setq mcalendar-daynames  mcalendar-daynames-ja)  ; 曜日を日本語表示します
(setq mcalendar-capformat mcalendar-capformat-ja) ; 日本語表示向けキャプションフォーマットを指定します

• 起動方法

M-x mcalendar
または
M-x mcalendar-other-window

• キーバインド
  • 'n' : 次月へ
  • 'p' : 先月へ
  • '.' : 今日へ
  • 'h' : 祝日名表示のトグル切り替え
  • 'q' : 終了

• その他コマンド
  • mcalendar-goto-month : 指定した年と月から表示します。
  • mcalendar-set-display-tiling-size : 並べるカレンダーの横の数と縦の数を指定します。