blob: 1fc757d2cc201deaa9f8c01c7ad4b324f36963f5 (
plain)
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
|
;;; wasp-resolve --- The Strength Of Our Resolve -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'wasp-user)
(defcustom w/resolve-buffer "*wasp-resolve*"
"Name of buffer used to display resolve."
:type '(string)
:group 'wasp)
(defvar w/resolve-recorded nil)
(defun w/resolve-record-user (user)
"Record resolve for USER if not already recorded."
(unless (-contains? w/resolve-recorded user)
(w/user-get
user
(lambda (data)
(when-let ((resolution (alist-get :resolution data)))
(add-to-list 'w/resolve-recorded user)
(with-current-buffer (get-buffer-create w/resolve-buffer)
(goto-char (point-max))
(insert (format "%s: %s\n" user resolution))))))))
(provide 'wasp-resolve)
;;; wasp-resolve.el ends here
|
