다음은 타이머를 활용하여 키 다운 / 업 이벤트 바인딩을 시뮬레이션하는 슈퍼 해키 방법입니다.
전반적으로 나는 시그마의 대답으로 가라고 제안하지만, 당신은 시도해야 할 의무가 있으므로 미리보기를 닫을 방법을 요청했습니다.
기본적으로 수행 할 수있는 작업은 "키 다운"기능인 일부 기능을 키 바인딩에 바인딩하고 해당 작업 내에서 "키업"기능인 기능을 실행하는 유휴 타이머를 시작하는 것입니다. 지정된 키가 있으면 "키 다운"기능이 계속 반복되어 유휴 타이머가 실행되지 않습니다. 물론 "keydown"기능에서 일종의 noop 기능에 키를 리 바인딩 한 다음 "keyup"기능에서 "keydown"기능을 리 바인딩하여 명령이 계속 실행된다는 사실을 보상해야합니다.
따라서 유스 케이스의 경우 "keydown"함수는 해당 시점의 파일 내용으로 미리보기 버퍼를 열고 해당 미리보기 버퍼에서 동일한 키 콤보를 noop like 명령에 바인딩합니다. "키 다운"기능은 또한 미리보기 버퍼를 삭제하고 원래 위치로 복원하는 유휴 타이머를 시작합니다.
짧은 이야기는 여기 코드입니다.
이 기능을 키 콤보에 바인딩합니다 (사용했습니다 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했지만 마법의 숫자입니다. 실제로 작게 유지하려고하지만 미리보기가 두 번 깜박이는 것을 볼 때마다 매초마다 1/10을 올리십시오. 기계에 적합한 지점을 찾을 때까지
* 또한 함수에서 미리보기 버퍼의 글꼴을 만들려고 시도했지만 작동시키지 못했습니다. 더 유용하게 만드는 다음 단계입니다. **