jessieh/eldoc-frame
jessieh/eldoc-frame
1
Fork 0
Code Issues Pull Requests Releases Activity

Inhibit childframe display when moving point (#21)

Browse Source 
(only in at-point mode)
This commit is contained in:
Yuan Fu 2019-10-03 00:38:32 -04:00
parent 8be8ef42d0
commit fb983d973e
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442
1 changed files with 53 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
eldoc-box.el
View File

@ -125,6 +125,9 @@ Run inside the new buffer.")
Each function runs inside the new frame and receives the main frame as argument.") Each function runs inside the new frame and receives the main frame as argument.")
;;;;; Function ;;;;; Function
(defvar eldoc-box--inhibit-childframe nil
"If non-nil, inhibit display of childframe.")
(defvar eldoc-box--frame nil ;; A backstage variable (defvar eldoc-box--frame nil ;; A backstage variable
"The frame to display doc.") "The frame to display doc.")
@ -293,15 +296,35 @@ FRAME is the childframe, WINDOW is the primary window."
;; move position ;; move position
(set-frame-position frame (car pos) (cdr pos)))) (set-frame-position frame (car pos) (cdr pos))))
(defvar eldoc-box--inhibit-childframe-timer nil
"When this timer is on, inhibit childframe display.
Intended for follow-cursor to disable display when moving cursor.")
(defun eldoc-box--inhibit-childframe-for (sec)
"Inhibit display of childframe for SEC seconds."
(when eldoc-box--inhibit-childframe-timer
(cancel-timer eldoc-box--inhibit-childframe-timer))
(eldoc-box-quit-frame)
(setq eldoc-box--inhibit-childframe t
eldoc-box--inhibit-childframe-timer
(run-with-timer sec nil
(lambda ()
(setq eldoc-box--inhibit-childframe nil)))))
(defun eldoc-box--follow-cursor () (defun eldoc-box--follow-cursor ()
"Make childframe follow cursor in at-point mode." "Make childframe follow cursor in at-point mode."
(if (not (equal this-command #'self-insert-command))
(eldoc-box--inhibit-childframe-for 0.2)
(when (frame-live-p eldoc-box--frame) (when (frame-live-p eldoc-box--frame)
(eldoc-box--update-childframe-geometry (eldoc-box--update-childframe-geometry
eldoc-box--frame (frame-selected-window eldoc-box--frame)))) eldoc-box--frame (frame-selected-window eldoc-box--frame)))))
(defun eldoc-box--get-frame (buffer) (defun eldoc-box--get-frame (buffer)
"Return a childframe displaying BUFFER. "Return a childframe displaying BUFFER.
Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'." Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'."
(if eldoc-box--inhibit-childframe
;; if inhibit display, do nothing
eldoc-box--frame
(let* ((after-make-frame-functions nil) (let* ((after-make-frame-functions nil)
(before-make-frame-hook nil) (before-make-frame-hook nil)
(parameter (append eldoc-box-frame-parameters (parameter (append eldoc-box-frame-parameters
@ -328,7 +351,7 @@ Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'."
(eldoc-box--update-childframe-geometry frame window) (eldoc-box--update-childframe-geometry frame window)
(setq eldoc-box--frame frame) (setq eldoc-box--frame frame)
(run-hook-with-args 'eldoc-box-frame-hook main-frame) (run-hook-with-args 'eldoc-box-frame-hook main-frame)
(make-frame-visible frame))) (make-frame-visible frame))))
;;;;; ElDoc ;;;;; ElDoc