From bbda1a1f57b3787ee66a4c5139fd15f17ccf6177 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sun, 15 Oct 2023 13:58:49 +0200
Subject: [PATCH] - updated documentation;

- changed a function's name.
---
 doc/tinmop.man      | 6 ++++++
 doc/tinmop.org      | 2 ++
 etc/init.lisp       | 2 +-
 src/package.lisp    | 2 +-
 src/ui-goodies.lisp | 2 +-
 5 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/doc/tinmop.man b/doc/tinmop.man
index 36ca96e..0f74283 100644
--- a/doc/tinmop.man
+++ b/doc/tinmop.man
@@ -410,6 +410,9 @@ pass-focus-next
 \fBC-a      \fP
 show-about-window
 .TP
+\fBA        \fP
+show-announcements
+.TP
 \fBC-h A    \fP
 apropos-help-global
 .TP
@@ -656,6 +659,9 @@ delete-notifications
 \fBP        \fP
 poll-vote
 .TP
+\fBp        \fP
+show-parent-post
+.TP
 \fBU        \fP
 thread-mark-prevent-delete-selected-message
 .TP
diff --git a/doc/tinmop.org b/doc/tinmop.org
index a298712..3307812 100644
--- a/doc/tinmop.org
+++ b/doc/tinmop.org
@@ -282,6 +282,7 @@
 - C d       :: clear-cache
 - C-I       :: pass-focus-next
 - C-a       :: show-about-window
+- A         :: show-announcements
 - C-h A     :: apropos-help-global
 - C-h a     :: apropos-help
 - C-h h     :: print-quick-help
@@ -371,6 +372,7 @@
 - M-u       :: delete-and-move-previous
 - N d       :: delete-notifications
 - P         :: poll-vote
+- p         :: show-parent-post
 - U         :: thread-mark-prevent-delete-selected-message
 - X         :: refresh-thread-totally
 - \\ \\     :: repeat-search
diff --git a/etc/init.lisp b/etc/init.lisp
index b41f0ed..8802045 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -337,7 +337,7 @@
 
 (define-key "P"         #'poll-vote                                   *thread-keymap*)
 
-(define-key "p"         #'show-parent-message                         *thread-keymap*)
+(define-key "p"         #'show-parent-post                            *thread-keymap*)
 
 (define-key "U"         #'thread-mark-prevent-delete-selected-message *thread-keymap*)
 
diff --git a/src/package.lisp b/src/package.lisp
index a194703..7e4214d 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -3171,7 +3171,7 @@
    :print-mentions
    :delete-notifications
    :show-announcements
-   :show-parent-message))
+   :show-parent-post))
 
 (defpackage :scheduled-events
   (:use
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 853fb3d..e4f3c15 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -3490,7 +3490,7 @@ gemini client certificates!)."
   (info-message (_ "Getting all announcements, please wait…"))
   (push-event (make-instance 'show-announcements-event)))
 
-(defun show-parent-message ()
+(defun show-parent-post ()
   (when-let* ((selected-row     (line-oriented-window:selected-row-fields *thread-window*))
               (new-window-width (truncate (* (windows:win-width *main-window*) 2/3)))
               (status-id        (actual-author-message-id selected-row))