commit fe7178c70cec9f4bcdeadea4a1d4874a9c7004a2
parent 0263bb808e03c8136d1f5e29434e7c068b84d179
Author: William Morgan <wmorgan-sup@masanjin.net>
Date: Sat, 12 Jan 2008 21:54:11 -0800
add 'z': align current message, to thread-view-mode
Pressing 'z' now makes the current message be top- and left-aligned in
the buffer.
Diffstat:
1 file changed, 6 insertions(+), 0 deletions(-)
diff --git a/lib/sup/modes/thread-view-mode.rb b/lib/sup/modes/thread-view-mode.rb
@@ -34,6 +34,7 @@ EOS
k.add :expand_all_quotes, "Expand/collapse all quotes in a message", 'o'
k.add :jump_to_next_open, "Jump to next open message", 'n'
k.add :jump_to_prev_open, "Jump to previous open message", 'p'
+ k.add :align_current_message, "Align current message in buffer", 'z'
k.add :toggle_starred, "Star or unstar message", '*'
k.add :toggle_new, "Toggle unread/read status of message", 'N'
# k.add :collapse_non_new_messages, "Collapse all but unread messages", 'N'
@@ -294,6 +295,11 @@ EOS
jump_to_message nextm if nextm
end
+ def align_current_message
+ m = @message_lines[curpos] or return
+ jump_to_message m
+ end
+
def jump_to_prev_open
m = (0 .. curpos).to_a.reverse.argfind { |i| @message_lines[i] } # bah, .to_a
return unless m