From 5545f098a6d8fad8335e35a79d1c3a07b5d5e5c1 Mon Sep 17 00:00:00 2001
From: Sakooooo <78461130+Sakooooo@users.noreply.github.com>
Date: Mon, 21 Oct 2024 17:50:02 +0400
Subject: [PATCH] (config) emacs: make ement.el better

---
 config/emacs/emacs.org | 54 +++++++++++++++++++++++++++---------------
 1 file changed, 35 insertions(+), 19 deletions(-)

diff --git a/config/emacs/emacs.org b/config/emacs/emacs.org
index 330ea2bb..d652fff0 100644
--- a/config/emacs/emacs.org
+++ b/config/emacs/emacs.org
@@ -1137,29 +1137,45 @@ Will configure later, (use elfeed protocol ok ty)
 Ill set this up later as well
 #+begin_src emacs-lisp
   (use-package ement
-  :commands ement-connect
-  :custom
-  (ement-notify-dbus-p nil) ;; Turn off notifications
-  (ement-sessions-file "~/.cache/ement.el")
-  (ement-room-list-default-keys
-   '(;; Group all invitations (this group will appear first since the rooms are
-     ;; already sorted first).
-     ((membership :status 'invite))
+    :commands (ement-connect)
+    :custom
+    (ement-room-avatars t)
+    (ement-room-images t)
+    (ement-room-compose-method 'compose-buffer)
+    (ement-room-compose-buffer-window-auto-height-min 10)
+    (ement-save-sessions t)
+    (ement-notify-dbus-p nil) ;; Turn off notifications
+    (ement-sessions-file "~/.cache/ement.el")
+    (ement-room-list-default-keys
+     '(;; Group all invitations (this group will appear first since the rooms are
+       ;; already sorted first).
+       ((membership :status 'invite))
 
-     ;; Group all left rooms (this group will appear last, because the rooms are already
-     ;; sorted last).
-     ((membership :status 'leave))
+       ;; Group all left rooms (this group will appear last, because the rooms are already
+       ;; sorted last).
+       ((membership :status 'leave))
 
-     ;; Group all favorite rooms, which are already sorted first.
-     (favourite)
+       ;; Group all favorite rooms, which are already sorted first.
+       (favourite)
 
-     ;; Group all low-priority rooms, which are already sorted last.
-     (low-priority)
+       ;; Group all low-priority rooms, which are already sorted last.
+       (low-priority)
 
-     ;; Group other rooms which are unread.
-     (unread)
-     (people)
-     freshness)))
+       ;; Group other rooms which are unread.
+       (unread)
+       (people)
+       freshness))
+    :config
+    (require 'ement-tabulated-room-list)
+    (add-to-list 'display-buffer-alist
+                 (cons "^\\*Ement compose: "
+                       (cons 'display-buffer-below-selected
+                             '((window-height . 6)
+                               (inhibit-same-window . t)
+                               (reusable-frames . nil)))))
+    (add-to-list 'display-buffer-alist
+                 '("\\*Ement image:" (display-buffer-reuse-window)
+  		 (reusable-frames . nil))))
 #+end_src
 ** Subsonic
 #+begin_src emacs-lisp