jota 0.8.1 → 0.9.0dev2

data/lib/jota_curses.rb

@@ -0,0 +1,603 @@
+
+# $Id: jota_curses.rb 257 2010-05-02 19:47:26Z dz $
+
+require "curses"
+require 'tempfile'
+
+require "clip_array"
+require "version"
+
+class JotaCurses
+
+# instance variables
+# 	@lines		size of terminal window
+# 	@columns
+
+#	@mode		show what kind of data in the bottom window
+
+# 	@top_win_height	height of top window in lines
+# 			(the corresponding bot_win_height is a function out of
+# 			@lines and @top_win_height)
+
+# 	@top_win_first	first line in top window
+# 	@bot_win_first	first line in bottom window
+
+#	@top_win_lines	drawn lines in top window
+#	@bot_win_lines	drawn lines in bottom window
+
+# 	@top_bar	the windows
+# 	@top_win
+# 	@mid_bar
+# 	@bot_win
+# 	@bot_bar
+
+#	@editor_running
+
+def set_terminal
+	Curses.close_screen
+	Curses.init_screen
+	Curses.stdscr.refresh
+	@columns = Curses.stdscr.maxx
+	@lines = Curses.stdscr.maxy
+	print_debug "setting terminal: lines=#{@lines}, columns=#{@columns}"
+end 
+
+def initialize
+	@data = nil
+
+	@top_win_first = 0		# number of top clip in top window
+	@bot_win_first = 0		# number of top line in bottom window
+
+	@top_bar = nil
+	@top_win = nil
+	@mid_bar = nil
+	@bot_win = nil
+	@bot_bar = nil
+
+	@mode = :normal
+
+	@editor_running = false
+
+	Curses.init_screen
+	Curses.cbreak
+	Curses.noecho
+	Curses.nonl
+
+	set_terminal
+	@top_win_height = @lines/2
+	set_windows
+
+	begin
+		# set SIGgnal handler if terminal WINdow CHanged
+		Signal.trap("SIGWINCH") do
+			print_debug "terminal size changed"
+			set_terminal
+			# ruby 1.9 can't cope with curses initializing and closing in fast succession
+			# and the "sleep" makes fast resizing smoother
+			sleep 0.1
+			if not @editor_running then
+				set_windows
+			end
+		end
+	rescue ArgumentError
+		# for example with Windows
+		print_verbose "Cannot set trap for 'SIGWINCH'"
+	end
+end 
+
+def open(filename)
+	begin
+		new_data = ClipArray.open(filename)
+	rescue AppError, SystemCallError => msg
+		error(msg)
+		return nil
+	end
+
+	if @data then
+		@data.close
+	end
+	@data = new_data
+	@data.current_index = 0
+	@top_win_first = 0
+	draw_bars
+	return @data
+end 
+
+def clip_array
+	return @data
+end
+
+def create(filename)
+	begin
+		new_data = ClipArray.create(filename)
+        rescue AppError, SystemCallError => msg
+                error(msg)
+                return
+	end
+
+	if @data then
+		@data.close
+	end
+	@data = new_data
+	@data.current_index = 0
+	@top_win_first = 0
+	draw_bars
+end 
+
+
+def delete
+	return if not @data
+
+	return if not really?("confirm_delete","Really delete?")
+
+	if @data.pref["deletesave_enable"] and not @data.current.empty? then
+		deletefile = expand_filename(@data.pref["deletesave_file"],
+						@data.dirname, @data.filename)
+		begin
+			@data.append(deletefile)
+		rescue SystemCallError => msg
+			error(msg)
+			return
+		end
+	end
+
+	@data.delete
+end 
+
+def run
+	draw_bars
+	adjust_top_win_first
+	adjust_bot_win_first
+	loop do
+		draw_top_window
+		@bot_win_lines = draw_bottom_window
+		handle_key
+	end
+end 
+
+
+
+#
+#	Helper
+#
+
+def get_bot_win_height
+	rows = @lines - @top_win_height - 3
+	
+	# some error checking if the terminal window is made too small
+	if rows < 3 then
+		# first try to adjust the windows
+		@top_win_height = @lines - 3 - 4
+		if @top_win_height < 2 then
+			# if it doesn't help, display an error
+			@top_win_height = 2
+			@top_bar.clear
+			@top_bar.addstr("TOO SMALL")
+			@top_bar.refresh
+
+			@top_win.clear; @top_win.refresh
+			@mid_bar.clear; @mid_bar.refresh
+			@bot_win.clear; @bot_win.refresh
+			@bot_bar.clear; @bot_bar.refresh
+		end
+		return 4
+	else
+		return rows
+	end
+end 
+
+private
+
+#
+#	Draw the window content
+#
+
+def draw_bars
+	@top_bar.clear
+	@mid_bar.clear
+	@bot_bar.clear
+
+	@top_bar.addstr("Jota #{Version::STRING}")
+	if @data then
+		@top_bar.addstr(" - ")
+		@top_bar.addstr(@data.filename)
+	end
+	@top_bar.refresh
+
+	@mid_bar.clear
+	@mid_bar.addstr("="*@columns)
+	@mid_bar.refresh
+
+	@bot_bar.clear
+	case @mode
+	when :normal
+		@bot_bar.addstr("Crsr=le/ri/up/dn, e=edit, n=new, d=del, o=open, +/-=resize win, h=help, q=quit")
+	when :help
+		@bot_bar.addstr("Crsr=up/dn, +/-=resize win, h/q=quit help")
+
+	when :pref
+		@bot_bar.addstr("Crsr=up/dn, e=edit pref, +/-=resize win, p/q=quit pref")
+	else
+		@bot_bar.addstr("h=help, q=quit")
+	end
+	@bot_bar.refresh
+end 
+
+def draw_top_window
+	@top_win.clear
+	if @data then
+		@top_win_first.upto @top_win_first+@top_win_height-1 do | i |
+			if i == @data.current_index then
+				marker = ">"
+			else
+				marker = " "
+			end
+			if i < @data.length then
+				@top_win.addstr("%s %s\n" % 
+					[marker,@data[i].title![0..@columns-4]])
+			end
+		end
+	end
+	@top_win.refresh
+end 
+
+def draw_bottom_window
+	print_debug "drawing text in #{@mode} mode"
+	case @mode
+	when :normal
+		if @data then
+			text = @data.current.text
+		else
+			text = "\nHit 'o' to open or 'c' to create a file\n"
+		end
+	when :help
+		text = help_text
+	when :pref
+		if @data then
+			text = @data.pref.write
+		else
+			text = "\nNo file loaded, so no preferences are available\n"
+		end
+	else
+		text = "unknown mode #{@mode}"
+	end
+
+	@bot_win.clear
+	arr = text.split(/\n/)
+	@bot_win_first.upto @bot_win_first+self.get_bot_win_height-1 do | i |
+		str = arr[i] || ""
+		# expand tabs to spaces
+		str.gsub!(/([^\t]{8})|([^\t]*)\t/n){[$+].pack("A8")}
+		@bot_win.addstr(str[0..@columns-2])
+		@bot_win.addstr("\n")
+	end
+	result = arr.length
+	@bot_win.refresh
+
+	return result
+end 
+
+def help_text
+	return <<-EOT
+Jota #{Version::STRING}, (C) #{Version::YEARS} #{Version::AUTHOR} <#{Version::AUTHOR_EMAIL}>
+
+ Keys:
+    Cursor up/down	Scroll up/down
+    Cursor left/right	Show previous/next clip
+    e, ENTER		Edit current clip (with $EDITOR)
+    n			Append new clip
+    d			Delete current clip
+
+    o			Open file
+    c			Create new file
+    C			Close file
+
+    +			Grow top window
+    -			Shrink top window
+    p			Preferences
+    !			Execute command (default $SHELL)
+    q			Quit
+
+ Environment:
+    EDITOR		#{ENV["EDITOR"]}
+    SHELL		#{ENV["SHELL"]}
+	EOT
+end 
+
+def redraw_all
+	print_debug "redrawing"
+	draw_bars
+	draw_top_window
+	@bot_win_lines = draw_bottom_window
+end 
+
+def set_windows
+	bot_win_height = get_bot_win_height
+
+	print_debug "setting windows: top_height=#{@top_win_height}, "+
+		"bottom_height=#{bot_win_height}, width=#{@columns}"
+
+
+	h = 0
+	@top_bar.close if @top_bar
+	@top_bar = Curses::Window.new(1,@columns,h,0)
+
+	h += 1
+	@top_win.close if @top_win
+	@top_win = Curses::Window.new(@top_win_height,@columns,h,0)
+
+	h += @top_win_height
+	@mid_bar.close if @mid_bar
+	@mid_bar = Curses::Window.new(1,@columns,h,0)
+
+	h += 1
+	@bot_win.close if @bot_win
+	@bot_win = Curses::Window.new(bot_win_height,@columns,h,0)
+
+	h += bot_win_height
+	@bot_bar.close if @bot_bar
+	@bot_bar = Curses::Window.new(1,@columns,h,0)
+
+	@bot_bar.keypad = true
+
+	redraw_all
+end 
+
+def app_quit
+	if @data then
+		if really?("confirm_quit","Really quit?") then
+			@data.close
+			exit
+		end
+	else
+		exit
+	end
+end 
+
+def call_editor(text)
+	Curses.close_screen
+	@editor_running = true
+	text = editor(text)		# edit from helper.rb
+	@editor_running = false
+	Curses.init_screen
+	set_windows
+	return text
+end
+
+def handle_key
+	@bot_bar.move(0,79)
+	@bot_bar.refresh
+	# Ruby 1.8: getch return alway a Fixnum
+	# Ruby 1.9: getch return a String if char is printable (between " " and "~"), Fixnum otherwise
+	begin
+		ch = @bot_bar.getch
+		ch = 0 if ch.nil?
+		ch = ch.ord if ch.class == String
+	rescue Interrupt	# ignore Ctrl-C
+		ch = 0
+	end
+	draw_bars	# remove error message in bottom bar
+	if ch < 256 then
+		case ch.chr
+		when "\f" 	# Ctrl-L
+			redraw_all
+		when "c"
+			filename = prompt_filename("Create File (?=list): ")
+			if filename and filename != "" then
+				create(filename)
+				@mode = :normal
+			end
+		when "C"
+			@data.close if @data
+			@data = nil
+			@mode = :normal
+			draw_bars
+		when "d"
+			if @mode == :normal then
+				delete
+			else
+				@mode = :normal
+			end
+		when "e","\r","\n"	# "e" or Enter
+			case @mode
+			when :normal
+				if @data then
+					@data.current.text = call_editor(@data.current.text)
+					@data.save
+				end
+			when :pref
+				if @data
+					newpref = call_editor(@data.pref.write)
+					@data.pref = Preferences.read(newpref)
+				end
+			end
+		when "h"
+			if @mode == :help then
+				@mode = :normal
+			else
+				@mode = :help
+			end
+			redraw_all
+			@bot_win_first = 0
+		when "n"
+			if @data then
+				@data.new
+				@mode = :normal
+				@data.current.text = call_editor(@data.current.text)
+				@data.save
+			end
+		when "o"
+			filename = prompt_filename("Open File (?=list): ")
+			if filename and filename != "" then
+				open(filename)
+				@mode = :normal
+			end
+		when "p"
+			if @mode == :pref then
+				@mode = :normal
+			else
+				@mode = :pref
+			end
+			@bot_win_first = 0
+			redraw_all
+		when "q"
+			if @mode == :normal then
+				app_quit
+			else
+				@mode = :normal
+			end
+		when "+"	# grow top window
+			if @top_win_height + 5 <= @lines then
+				@top_win_height += 1
+				set_windows
+			end
+		when "-"	# shrink top window
+			if @top_win_height > 2 then
+				@top_win_height -= 1
+				set_windows
+			end
+		when "!"
+			command = prompt("Command: ")
+			if command == "" then
+				command = ENV["SHELL"]
+			end
+						
+			Curses.stdscr.clear
+			Curses.close_screen
+			puts "\nJota executing '#{command}'"
+			$stdout.flush
+			$stderr.flush
+			system(command)
+
+			puts "\nPress Enter to continue"
+			$stdout.flush
+			$stdin.gets
+
+			Curses.init_screen
+			redraw_all
+			@mode = :normal
+		end
+	else
+		case ch
+		when Curses::Key::LEFT, Curses::Key::RIGHT
+			if @data then
+				@data.current.pos = @bot_win_first
+				if ch == Curses::Key::LEFT then
+					@data.prev
+				else
+					@data.next
+				end
+				if @data.current.pos then
+					@bot_win_first = @data.current.pos
+				else
+					@bot_win_first = 0
+				end
+				@mode = :normal
+			end
+		when Curses::Key::UP, Curses::Key::DOWN
+			if @data then
+				if ch == Curses::Key::UP then
+					@bot_win_first -= 1
+				else
+					@bot_win_first += 1
+				end
+			end
+		when Curses::Key::HOME
+			if @data then
+				@bot_win_first = 0
+			end
+		end
+	end
+
+	adjust_top_win_first
+	adjust_bot_win_first
+end 
+
+def adjust_top_win_first
+	return if not @data
+	if @data.current_index < @top_win_first then
+		@top_win_first = @data.current_index
+	elsif @data.current_index > @top_win_first+@top_win_height-1 then
+		@top_win_first = @data.current_index-@top_win_height+1
+	end
+end 
+
+def adjust_bot_win_first
+	return if not @data
+	if @bot_win_first < 0 then
+		@bot_win_first = 0
+	elsif @bot_win_lines and @bot_win_first > @bot_win_lines-1 then
+		@bot_win_first = @bot_win_lines-1
+	end
+end 
+
+def message(str)
+	@bot_bar.clear
+	@bot_bar.addstr(str)
+	@bot_bar.refresh
+end 
+
+def prompt(str,type=:string)
+	@bot_bar.clear
+	@bot_bar.addstr(str)
+	@bot_bar.refresh
+	Curses.echo
+	begin
+		case type
+		when :string
+			result = @bot_bar.getstr
+		when :char
+			result = @bot_bar.getch.chr
+		else
+			raise "Fallthru in JotaCurses#prompt"
+		end
+	rescue Interrupt	# ignore Ctrl-C
+		return ""
+	end
+
+	Curses.noecho
+	draw_bars
+	return result
+end 
+
+def prompt_filename(str)
+	loop do
+		filename = prompt(str)
+		if filename == "?" then
+			@bot_win.clear
+			Dir.foreach(".") do | f | 
+				@bot_win.addstr(f+"\t") if f !~ /^\./
+			end
+			@bot_win.refresh
+		else
+			return filename
+		end
+	end
+end 
+
+def error(msg)
+	@bot_bar.clear
+	@bot_bar.addstr("ERROR: ")
+	@bot_bar.addstr(msg.to_s)
+	@bot_bar.refresh
+end 
+
+def really?(prefstr,promptstr)
+	if @data.nil? then
+		return true
+	end
+
+	ask = @data.pref[prefstr]
+	if not ask then
+		return true
+	end
+
+	ch = prompt("#{promptstr} [y,N] ",:char)
+	if ch.downcase == "y" then
+		return true
+	else
+		return false
+	end
+end 
+
+end # class

data/lib/preferences.rb

@@ -1,7 +1,5 @@
 
-# $Id: preferences.rb 46 2009-05-08 09:27:55Z dz $
-
-# if you use vim and don't like folds type zR
+# $Id: preferences.rb 249 2010-04-14 15:56:22Z dz $
 
 require 'yaml'
 require 'version'
@@ -10,12 +8,10 @@ class Preferences < Hash
 
 # synonym for 'new'
 def Preferences.defaults
-#{{{1
 	return Preferences.new
-end #}}}1
+end 
 
 def Preferences.read(str)
-#{{{1
 	p = Preferences.new
 
 	begin
@@ -29,42 +25,38 @@ def Preferences.read(str)
 	end
 
 	return p
-end #}}}1
+end 
 
 def write
-#{{{1
 	print_debug "writing preferences to string"
 	return YAML.dump(self)
-end #}}}1
+end 
 
 def initialize
-#{{{1
 	set_defaults
-end #}}}1
+end 
 
 def [](key)
-#{{{1
 	if has_key?(key) then
 		return super(key)
 	else
 		raise "'#{key}' is not a valid preferences key"
 	end
-end #}}}1
+end 
 
 #def []=(key,value)
-##{{{1
+#
 #	if has_key?(key) then
 #		return super(key)
 #	else
 #		raise "'#{key}' is not a valid preferences key"
 #	end
-#end #}}}1
+#end 
 
 
 private
 
 def set_defaults
-#{{{1
 	clear
 	self["foreground"] = [65535, 65535, 65535]
 	self["background"] = [20316, 20316, 20316]
@@ -76,8 +68,6 @@ def set_defaults
 	self["confirm_quit"] = false
 	self["autosave_enable"] = true
 	self["autosave_seconds"] = 600
-end #}}}1
+end 
 
 end # class
-
-# vim: set foldmethod=marker: