From d293e0a48427a224e4d3c4c4099b604d59ccabcf Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 14 Jan 2025 01:59:14 -0500 Subject: Update --- src/gizmo/wasp-resolve.el | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/gizmo/wasp-resolve.el (limited to 'src/gizmo/wasp-resolve.el') diff --git a/src/gizmo/wasp-resolve.el b/src/gizmo/wasp-resolve.el new file mode 100644 index 00000000..1fc757d2 --- /dev/null +++ b/src/gizmo/wasp-resolve.el @@ -0,0 +1,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 -- cgit v1.2.3