From 469b2b449bc7b45bddd3474ff4456a4a13c95fc7 Mon Sep 17 00:00:00 2001 From: Lionel Ott Date: Sat, 24 May 2008 21:03:26 +0200 Subject: [PATCH] add ask-before-quitting stuff old hotkey "q" now asks before quitting and "Q" quits immediately, the way "q" used to work. ( should take care of http://sup.rubyforge.org/ditz/issue-8aa7ea95f066fd0668452093b85903bd142905c9.html ) --- bin/sup | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/bin/sup b/bin/sup index 6360cde..723b1ed 100644 --- a/bin/sup +++ b/bin/sup @@ -55,7 +55,8 @@ Thread.abort_on_exception = true # make debugging possible module Redwood global_keymap = Keymap.new do |k| - k.add :quit, "Quit Redwood", 'q' + k.add :quit_ask, "Quit Sup, but ask first", 'q' + k.add :quit_now, "Quit Sup immediately", 'Q' k.add :help, "Show help", 'H', '?' k.add :roll_buffers, "Switch to next buffer", 'b' # k.add :roll_buffers_backwards, "Switch to previous buffer", 'B' @@ -240,8 +241,12 @@ begin end case action - when :quit + when :quit_now break if bm.kill_all_buffers_safely + when :quit_ask + if bm.ask_yes_or_no "Really quit?" + break if bm.kill_all_buffers_safely + end when :help curmode = bm.focus_buf.mode bm.spawn_unless_exists("") { HelpMode.new curmode, global_keymap } -- 2.45.2