タイマーを利用してキーダウン/アップイベントバインディングをシミュレートする私の非常にハックな方法を次に示します。
全体的には、シグマの回答をお勧めしますが、手放すことでプレビューを閉じる方法を求められたので、試してみる必要があります。
基本的にできることは、「キーダウン」機能となるいくつかの機能をキーバインディングにバインドし、そのアクション内で、「キーアップ」機能である機能を実行するアイドルタイマーを開始することです。キーを指定すると、「キーダウン」機能が何度も起動され、これによりアイドルタイマーの実行が禁止されます。もちろん、おそらく「キーダウン」関数でキーをある種のnoop関数に再バインドし、「キーアップ」関数で「キーダウン」関数を再バインドすることにより、コマンドが何度も起動するという事実を補正する必要があります。
そのため、ユースケースでは、「キーダウン」機能がポイントのファイルの内容でプレビューバッファーを開き、そのプレビューバッファーで同じキーコンボをコマンドのようなnoopにバインドします。また、「キーダウン」機能は、プレビューバッファを削除し、元の場所に戻すアイドルタイマーを開始します。
ここでの短い話はコードです：
この関数をキーコンボ（私は使用しましたC-M-v）にバインドします。ファイル名の上で押すと、新しいバッファが開き、ファイルの内容がポイントで表示されます。放すと元に戻ります。バッファ。
(setq lexical-binding t)
(defun quick-view-file-at-point ()
"Preview the file at point then jump back after some idle time.
In order for this to work you need to bind this function to a key combo,
you cannot call it from the minibuffer and let it work.
The reason it works is that by holding the key combo down, you inhibit
idle timers from running so as long as you hold the key combo, the
buffer preview will still display."
(interactive)
(let* ((buffer (current-buffer))
(file (thing-at-point 'filename t))
(file-buffer-name (format "*preview of %s*" file)))
(if (and file (file-exists-p file))
(let ((contents))
(if (get-buffer file)
(setq contents (save-excursion
(with-current-buffer (get-buffer file)
(font-lock-fontify-buffer)
(buffer-substring (point-min) (point-max)))))
(let ((new-buffer (find-file-noselect file)))
(with-current-buffer new-buffer
(font-lock-mode t)
(font-lock-fontify-buffer)
(setq contents (buffer-substring (point-min) (point-max))))
(kill-buffer new-buffer)))
(switch-to-buffer (get-buffer-create file-buffer-name))
(setq-local header-line-format "%60b")
(delete-region (point-min) (point-max))
(save-excursion (insert contents))
(local-set-key (kbd "C-M-v") (lambda () (interactive) (sit-for .2)))
(run-with-idle-timer
.7
nil
(lambda ()
(switch-to-buffer buffer)
(kill-buffer file-buffer-name))))
(message "no file to preview at point!"))))
また、動作中のgifもここにあります。
- ファイルの上にカーソルを置きます
- キーバインドを押し続けます
- プレビューが表示されます
- 私が手放すと、プレビューは強制終了され、元の場所に戻ります。
私が使用し.7たコードでは、アイドルタイマーの秒数に注意する必要がありますが、これは魔法の数字のようなものです。本当に小さくしたいのですが、プレビューが2回点滅する場合は、毎秒1/10マシンに最適な場所が見つかるまで。
*また、この関数ではプレビューバッファーのフォント化を試みますが、プレビューバッファーを機能させることができなかったことに注意してください。