max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

perf(emacs/lean-server): speed up task overlays

Browse source
This commit is contained in:
Gabriel Ebner 2017-03-23 21:30:44 +01:00
parent 83c4b410be
commit f16c2c68db
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/emacs/lean-server.el
View file

@ -270,9 +270,18 @@
(flycheck-buffer)))
(current-buffer)))))))
(defvar-local lean-server-show-tasks-delay-timer nil)
(defun lean-server-show-tasks (&optional buf)
(with-current-buffer (or buf (current-buffer))
(lean-server-update-task-overlays)))
(save-match-data
(when (not (memq lean-server-show-tasks-delay-timer timer-list))
(setq lean-server-show-tasks-delay-timer
(run-at-time "100 milliseconds" nil
(lambda (buf)
(with-current-buffer buf
(lean-server-update-task-overlays)))
(current-buffer)))))))
(defun lean-server-notify-messages-changed (sess)
(dolist (buf (buffer-list))
@ -388,9 +397,10 @@
(defun lean-server-sync-roi ()
(when lean-server-session
(let ((old-roi (lean-server-session-current-roi lean-server-session))
(new-roi (lean-server-roi-extend (lean-server-compute-roi lean-server-session) 5)))
(new-roi (lean-server-compute-roi lean-server-session)))
(when (or (eq old-roi 'not-yet-sent) (not (lean-server-roi-ok old-roi new-roi)))
(lean-server-session-send-roi lean-server-session new-roi)))))
(lean-server-session-send-roi lean-server-session
(lean-server-roi-extend new-roi 5))))))
(defun lean-server-window-scroll-function-hook (wnd new-start-pos)
(let ((buf (window-buffer wnd)))