From 6beb2e9bfca30c05562712f8cc455b5d182136b4 Mon Sep 17 00:00:00 2001
From: cage <cage-invalid@invalid>
Date: Tue, 9 Mar 2021 10:38:57 +0100
Subject: [PATCH] - added command for sending to pipe contents of message
 windows.

---
 etc/init.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/etc/init.lisp b/etc/init.lisp
index 3a726c3..d268379 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -341,6 +341,8 @@
 
 (define-key "s"         #'gemini-subscribe-gemlog                    *gemini-message-keymap*)
 
+(define-key "|"         #'send-to-pipe                               *gemini-message-keymap*)
+
 ;; gemini stream window keymap
 
 (define-key "a"         #'gemini-abort-download                      *gemini-downloads-keymap*)