- [TUI] added new command: 'open-message-link-perform-fediverse-searching '.

etc/init.lisp

@@ -690,6 +690,8 @@
 
 (define-key "C-J"       #'open-message-link-perform-opening             *open-message-link-keymap*)
 
+(define-key "C-s"       #'open-message-link-perform-fediverse-searching *open-message-link-keymap*)
+
 (defun copy-from-message-link-to-clipboard ()
   "Copy the selected link to clipboard"
   (copy-link-to-clipboard specials:*open-message-link-window*))

src/package.lisp

@@ -3058,6 +3058,7 @@
    :open-message-link-go-up
    :open-message-link-go-down
    :open-message-link-perform-opening
+   :open-message-link-perform-fediverse-searching
    :open-message-link-open-enqueue
    :open-next-visible-link
    :open-previous-link

src/ui-goodies.lisp

@@ -1749,6 +1749,13 @@ gemini document."
 (defun open-message-link-perform-opening ()
   (%open-message-link-perform-opening nil))
 
+(defun open-message-link-perform-fediverse-searching ()
+  "Search the fediverse for the selected address"
+  (when-let* ((selected-line (line-oriented-window:selected-row *open-message-link-window*))
+              (url           (line-oriented-window:normal-text selected-line)))
+             (push-event (make-instance 'program-events:fediverse-query-event
+                                        :payload url))))
+
 (defun open-message-link-open-enqueue ()
   "Open the url and keep the data stream in background