From 9f6a26e0c8010641e1b5e8f7f54f54429e5d0fa1 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 11 Nov 2023 19:49:46 +0100
Subject: [PATCH] - added new command: 'delete-shown-post'.

---
 etc/init.lisp          |  2 ++
 src/package.lisp       |  2 ++
 src/thread-window.lisp | 35 ++++++++++++++++++++++++++++++++++-
 src/ui-goodies.lisp    |  6 ++++++
 4 files changed, 44 insertions(+), 1 deletion(-)

diff --git a/etc/init.lisp b/etc/init.lisp
index 8802045..66b78d7 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -397,6 +397,8 @@
 
 (define-key "b"         #'net-address-history-back                    *message-keymap*)
 
+(define-key "d"         #'delete-shown-post                           *message-keymap*)
+
 (define-key "down"      #'message-scroll-down                         *message-keymap*)
 
 (define-key "end"       #'message-scroll-end                          *message-keymap*)
diff --git a/src/package.lisp b/src/package.lisp
index 9457317..378301f 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -2388,6 +2388,7 @@
    :mentions-count
    :add-announcements-notification
    :remove-announcements-notification
+   :select-messages-corresponding-to-shown
    :grow-tree-to-fit-window
    :fit-timeline-to-window
    :go-message-down
@@ -3076,6 +3077,7 @@
    :open-net-address
    :open-gemini-address
    :net-address-history-back
+   :delete-shown-post
    :address-go-back-in-path
    :address-go-root-path
    :gemini-view-source
diff --git a/src/thread-window.lisp b/src/thread-window.lisp
index 567ec69..9cd8582 100644
--- a/src/thread-window.lisp
+++ b/src/thread-window.lisp
@@ -868,6 +868,34 @@ db:renumber-timeline-message-index."
                                                           db:+mentions-status-folder+)))
     (remove-mention window status-id)))
 
+(defun maybe-initialize-metadata (window)
+  (setf (message-window:metadata window) '())
+  (message-window:metadata window))
+
+(defun set-status-tuple-shown-status (window status-id timeline folder)
+  (with-accessors ((metadata misc:metadata)) window
+    (setf metadata (acons :status-id status-id metadata))
+    (setf metadata (acons :timeline  timeline  metadata))
+    (setf metadata (acons :folder    folder    metadata))
+    window))
+
+(defun get-status-tuple-shown-status (window)
+  (with-accessors ((metadata misc:metadata)) window
+    (values (cdr (assoc :status-id metadata))
+            (cdr (assoc :timeline  metadata))
+            (cdr (assoc :folder    metadata)))))
+
+(defun select-messages-corresponding-to-shown ()
+  (multiple-value-bind (status-id timeline folder)
+      (get-status-tuple-shown-status *message-window*)
+    (let ((matching-status (db::find-status-id-folder-timeline status-id
+                                                               folder
+                                                               timeline)))
+      (if matching-status
+          (let ((new-message-index (db:row-message-index matching-status)))
+            (rebuild-lines *thread-window* new-message-index))
+          (ui:info-message (format nil (_ "No matching post in thread window")))))))
+
 (defmethod open-message ((object thread-window))
   (with-accessors ((row-selected-index row-selected-index)
                    (rows               rows)
@@ -894,6 +922,11 @@ db:renumber-timeline-message-index."
                                         attachments
                                         (strcat reblogged-status-attachments attachments))))
             (maybe-remove-mentions object status-id)
+            (maybe-initialize-metadata *message-window*)
+            (set-status-tuple-shown-status *message-window*
+                                           status-id
+                                           timeline-type
+                                           timeline-folder)
             (message-window:prepare-for-rendering *message-window*
                                                   (strcat header
                                                           actual-body
@@ -980,7 +1013,7 @@ db:renumber-timeline-message-index."
                    (timeline-folder    timeline-folder)
                    (timeline-type      timeline-type)) window
     (a:when-let* ((selected-fields (selected-row-fields window))
-                (starting-index  (db-utils:db-getf selected-fields :message-index)))
+                  (starting-index  (db-utils:db-getf selected-fields :message-index)))
       (let ((matching-status (if (eq direction :next)
                                  (db:search-next-message-meta     timeline-type
                                                                   timeline-folder
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 1d4920d..f3091c2 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -3515,3 +3515,9 @@ gemini client certificates!)."
                                             (nreverse actual-lines)
                                             bg
                                             fg))))
+(defun delete-shown-post ()
+  "Marks as deleted the post shown in the main window, also move focus to threads window."
+  (thread-window:select-messages-corresponding-to-shown)
+  (thread-window:mark-selected-message-to-delete *thread-window*
+                                                 :move-down-selected-message nil)
+  (focus-to-thread-window))