-
Notifications
You must be signed in to change notification settings - Fork 1
/
cursorless-log.el
48 lines (42 loc) · 1.66 KB
/
cursorless-log.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
;;; cursorless-log.el --- Description -*- lexical-binding: t; -*-
;;; Commentary:
;; Description
;;
;;; Code:
(require 'json)
(defconst cursorless-log-buffer "*cursorless-log*")
(defun cursorless--json-pretty-print (s)
(with-temp-buffer
(insert s)
(json-pretty-print-buffer)
(buffer-string)))
(defun cursorless--truncate-log-buffer ()
(interactive)
(save-excursion
(with-current-buffer (get-buffer-create cursorless-log-buffer)
(goto-char (point-max))
(forward-line (- 5000))
(beginning-of-line)
(let ((inhibit-read-only t))
(delete-region (point-min) (point))))))
(defun cursorless-log (message)
(cursorless--truncate-log-buffer)
(let ((buffer-logged-from (current-buffer))
(line-col (cursorless-line-and-column (point))))
(with-current-buffer (get-buffer-create cursorless-log-buffer)
(goto-char (point-max))
(insert (make-string 70 ?=) "\n"
(format-time-string "%s.%3N") "\n"
(format " current-buffer: %S" buffer-logged-from) "\n"
(format " line/col: %S" line-col) "\n"
(string-join (seq-map (lambda(value)
(format " %20s: %S" value (symbol-value value)))
'(cursorless-running-command cursorless-updating-hats cursorless--last-response-processed)) "\n") "\n\n"
" " message "\n")
(goto-char (point-max))
(let ((windows (get-buffer-window-list (current-buffer) nil t)))
(while windows
(set-window-point (car windows) (point-max))
(setq windows (cdr windows)))))))
(provide 'cursorless-log)
;;; cursorless-log.el ends here