telega is fine in darwinmain

1 files changed, 26 insertions, 0 deletions

diff --git a/attic/elisp/misc.el b/attic/elisp/misc.el
index 77089ff..7cf9029 100644
--- a/attic/elisp/misc.el
+++ b/attic/elisp/misc.el
@@ -1244,3 +1244,29 @@ It should be the title of the web page as returned by `rdrview'"
                        counts
                        0)))
     (when (> n 0) `(:propertize ,(format "%s%d " label n) face ,face))))
+
+;;; ement
+(use-package ement
+  :disabled t
+  :ensure t
+  :init (setq ement-save-sessions t
+              ement-sessions-file (locate-user-emacs-file "cache/ement.el")
+              ement-room-avatars nil
+              ement-notify-dbus-p nil
+              ement-room-left-margin-width 0
+              ement-room-right-margin-width 11
+              ement-room-timestamp-format "%H:%M"
+              ement-room-timestamp-header-format "­­--------")
+
+  :custom ((ement-room-message-format-spec "(%S) %B%r%R %t"))
+
+  :config
+  (defun jao-ement-track (event room session)
+    (when (ement-notify--room-unread-p event room session)
+      (when-let ((n (ement-room--buffer-name room))
+                 (b (get-buffer n)))
+        (tracking-add-buffer b))))
+
+  (add-hook 'ement-event-hook #'jao-ement-track)
+  (jao-shorten-modes 'ement-room-mode)
+  (jao-tracking-cleaner "^\\*Ement Room: \\(.+\\)\\*" "@\\1"))