From 3b5688fd60498005e5e241224939f18c227b94c2 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 10 Aug 2021 00:58:02 -0500 Subject: [PATCH] Tidy: Organization --- ement-room.el | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/ement-room.el b/ement-room.el index 17e40c8..18ce313 100644 --- a/ement-room.el +++ b/ement-room.el @@ -1206,6 +1206,19 @@ data slot." (defvar ement-room-event-fns nil "Alist mapping event types to functions which process an event of each type in the room's buffer.") +(defun ement-room--handle-events (events) + "Process EVENTS in current buffer. +Calls `ement-progress-update' for each event. Uses handlers +defined in `ement-room-event-fns'. The current buffer should be +a room's buffer." + (cl-loop for event being the elements of events ;; EVENTS may be a list or array. + for handler = (alist-get (ement-event-type event) ement-room-event-fns nil nil #'equal) + when handler + do (funcall handler event) + do (ement-progress-update))) + +;;;;;; Event handlers + (defmacro ement-room-defevent (type &rest body) "Define an event handling function for events of TYPE. Around the BODY, the variable `event' is bound to the event being @@ -1270,16 +1283,6 @@ function to `ement-room-event-fns', which see." (ement-room--insert-event event) (ewoc-set-hf ement-ewoc "" footer))) -(defun ement-room--handle-events (events) - "Process EVENTS in current buffer. -Uses handlers defined in `ement-room-event-fns'. The current -buffer should be a room's buffer." - (cl-loop for event being the elements of events ;; EVENTS may be a list or array. - for handler = (alist-get (ement-event-type event) ement-room-event-fns nil nil #'equal) - when handler - do (funcall handler event) - do (ement-progress-update))) - ;;;;; EWOC (defun ement-room--ewoc-next-matching (ewoc node pred)