- prevented crash when opening empty chat windows;

- fixed refreshing of chats.

src/api-pleroma.lisp

@@ -48,15 +48,18 @@
 
 (defgeneric get-all-chats (object &key &allow-other-keys))
 
+(defun sort-chat-id< (chats)
+  (sort chats #'string< :key #'chat-id))
+
 (defmethod get-all-chats ((object tooter:client) &key (min-id nil) (accum ()))
   "Get a list of all chats, ordered from the more recent updated."
-  (let ((chats (api-client:sort-id< (get-chats-list object :min-id min-id))))
+  (let ((chats (sort-chat-id< (get-chats-list object :min-id min-id))))
     (if chats
         (let ((new-min-id (chat-id (last-elt chats))))
           (get-all-chats object
                          :min-id new-min-id
                          :accum  (append chats accum)))
-        (api-client:sort-id< accum))))
+        (sort-chat-id< accum))))
 
 (defgeneric post-chat-message (object chat-id content media))
 

src/chats-list-window.lisp

@@ -99,7 +99,7 @@
 
 (defun open-chats-list-window ()
   (let* ((low-level-window (make-croatoan-window :enable-function-keys t)))
-    (setf  *chats-list-window*
+    (setf *chats-list-window*
           (make-instance 'chats-list-window
                          :top-row-padding   0
                          :title             (_ "Current chats")

src/message-window.lisp

@@ -559,7 +559,8 @@
 
 (defmethod prepare-for-rendering ((object message-window) text-data &key (jump-to-first-row t))
   (update-all-rows object (text->rendered-lines-rows object text-data))
-  (when jump-to-first-row
+  (when (and jump-to-first-row
+             (not (rows-empty-p object)))
     (select-row object 0))
   object)
 

src/program-events.lisp

@@ -1526,7 +1526,8 @@
     (tui:with-notify-errors
       (let ((chats (api-pleroma:get-chats)))
         (dolist (chat chats)
-          (db:update-db chat))))))
+          (db:update-db chat)))
+      (line-oriented-window:resync-rows-db specials:*chats-list-window*))))
 
 (defclass update-all-chat-messages-event (program-event) ())
 

tinmop.asd

@@ -161,5 +161,5 @@
                                      (:file "x509-tests")
                                      (:file "idn-tests")))))
 
-;;(push :debug-mode            *features*)
+(push :debug-mode            *features*)
 ;;(push :debug-gemini-request  *features*)