Ement tracking.el integration

viiru-ement-tracking.el

(cl-defun viiru/ement-notify-track (event room session &key (buffer-name "*Ement Notifications*"))
  (with-demoted-errors "viiru/ement-notify-track-if-buffer: %S"
    (when (ement-notify--event-message-p event room session)
      (let ((buffer (if (ement-notify--room-buffer-live-p event room session)
                        (map-elt (ement-room-local room) 'buffer)
                      (when (ement-notify--room-unread-p event room session)
                        (get-buffer buffer-name))))
            (faces (if (ement-notify--room-unread-p event room session)
                       '(ement-room-list-direct)
                     '(default))))
        (when buffer
          (tracking-add-buffer buffer faces))))))

(add-hook 'ement-event-hook #'viiru/ement-notify-track)

Seems to work exactly the same with the function attached via ement-event-hook. I have updated the gist.