jota 0.8.0

data/lib/jota.rb

@@ -0,0 +1,176 @@
+#!/usr/bin/env ruby
+
+# $Id: jota.rb 37 2009-02-09 10:06:02Z dz $
+
+# if you use vim and don't like folds type zR
+
+
+require 'getoptlong'
+require 'helper'
+require 'version'
+
+class Jota
+
+# from sysexits(3)
+EX_OK = 0
+EX_USAGE = 64
+EX_SOFTWARE = 70
+
+def usage
+#{{{1
+        puts("%s Version %s, (C) %s %s" % [
+		Version::PROGRAM_NAME,
+		Version::STRING,
+		Version::YEARS,
+		Version::AUTHOR])
+	puts
+        puts("usage: #{$0} -dhv 'file' [ 'regular-expression' ]")
+        puts("\t-v\t\tset verbose mode")
+        puts("\t-d\t\tset debug mode")
+        puts("\t-h\t\tthis help")
+end #}}}1
+
+
+def parse_args
+#{{{1
+	opts = GetoptLong.new(
+	      [ '--verbose', '-v', GetoptLong::NO_ARGUMENT ],
+	      [ '--debug', '-d', GetoptLong::NO_ARGUMENT ],
+	      [ '--help', '-h', GetoptLong::NO_ARGUMENT ]
+	    )
+
+	begin
+		opts.each do |opt, arg|
+			case opt
+			when '--verbose'
+				$VERBOSE = true
+			when '--debug'
+				$VERBOSE = true
+				$DEBUG = true
+			when '--help'
+				usage
+				exit(EX_OK)
+			else
+				usage
+				exit(EX_USAGE)
+			end
+		end
+	rescue GetoptLong::InvalidOption
+		exit(EX_USAGE)
+	end
+
+	case ARGV.length
+	when 0
+		@filename = nil
+		@regexp = nil
+	when 1
+		@filename = ARGV[0]
+		@regexp = nil
+	when 2
+		@filename = ARGV[0]
+		@regexp = ARGV[1]
+	else
+		usage
+		exit(EX_USAGE)
+	end
+
+	if $VERBOSE then
+		print_verbose "running version #{Version::STRING}, build #{Version::build}"
+		print_verbose "verbose set to #{$VERBOSE}"
+		print_verbose "debug set to #{$DEBUG}"
+		print_verbose "filename set to '#{@filename}'"
+		print_verbose "regexp set to '#{@regexp}'"
+	end
+end #}}}1
+
+
+def run_gui
+#{{{1
+	parse_args
+
+	# this 'require' must be after the command line is parsed, because 
+	# 'require libglade2' parses the commandline too.
+	require 'gui'
+
+	glade = Gui.new
+
+	if @filename then
+		glade.open(@filename)
+		if @regexp
+			glade.set_current(@regexp)
+		end
+	end
+
+	glade.create_gui
+
+	print_verbose "entering main loop"
+
+	begin
+		Gtk.main
+	rescue Interrupt
+		glade.close
+	rescue Exception => e
+		print_verbose "crashing, #{e.class}: #{e.message}"
+		puts "#{e.class}: #{e.message}"
+		puts "#{e.backtrace}"
+
+		msgbox = Gtk::MessageDialog.new(@top_window,
+			Gtk::Dialog::MODAL,
+			Gtk::MessageDialog::ERROR,
+			Gtk::MessageDialog::BUTTONS_NONE,
+			"Oops! I am about to crash")
+		msgbox.title = "Internal Error"
+		msgbox.secondary_text = "You are strongly advised to save your data "+
+			"as soon as possible and restart the program."+
+			"\n\nDetails:\n#{e.class}: #{e.message}"
+		msgbox.add_button("Crash",Gtk::Dialog::RESPONSE_CANCEL)
+		msgbox.add_button("Recover",Gtk::Dialog::RESPONSE_OK)
+
+		msgbox.run do | response |
+			case response
+			when Gtk::Dialog::RESPONSE_OK
+				msgbox.destroy
+				sleep 2
+				print_verbose "recovering"
+				puts "recovering"
+				retry
+			when Gtk::Dialog::RESPONSE_CANCEL
+				msgbox.destroy
+				exit(EX_SOFTWARE)
+			end
+		end
+	end
+
+end # run_gui }}}1
+
+
+def run_cli
+#{{{1
+	require 'cli'
+
+	parse_args
+
+	cli = JotaCli.new
+	if @filename then
+		cli.do_open(@filename) 
+		if @regexp then
+			cli.do_edit(@regexp)
+		end
+	end
+
+	# If ARGV is empty, Cmd runs in a loop, otherwise it runs only once.
+	
+	# in short:	no arg		-> loop
+	# 		only filename	-> loop
+	# 		filename + re	-> once
+	
+	if @filename and @regexp.nil? then  # i.e. only one arg
+		ARGV.clear
+	end
+
+	cli.run
+end # run_cli }}}1
+
+end # class Jota
+
+# vim600: set foldmethod=marker:

data/lib/preferences.rb

@@ -0,0 +1,83 @@
+
+# $Id: preferences.rb 37 2009-02-09 10:06:02Z dz $
+
+# if you use vim and don't like folds type zR
+
+require 'yaml'
+require 'version'
+
+class Preferences < Hash
+
+# synonym for 'new'
+def Preferences.defaults
+#{{{1
+	return Preferences.new
+end #}}}1
+
+def Preferences.read(str)
+#{{{1
+	p = Preferences.new
+
+	begin
+		print_debug "reading preferneces from string"
+		hash = YAML.load(str)
+		hash.each do | key, value |
+			p[key] = value
+		end
+	rescue SystemCallError
+		print_debug "#   failed, setting default preferences'"
+	end
+
+	return p
+end #}}}1
+
+def write
+#{{{1
+	print_debug "writing preferences to string"
+	return YAML.dump(self)
+end #}}}1
+
+def initialize
+#{{{1
+	set_defaults
+end #}}}1
+
+def [](key)
+#{{{1
+	if has_key?(key) then
+		return super(key)
+	else
+		raise "'#{key}' is not a valid preferences key"
+	end
+end #}}}1
+
+#def []=(key,value)
+##{{{1
+#	if has_key?(key) then
+#		return super(key)
+#	else
+#		raise "'#{key}' is not a valid preferences key"
+#	end
+#end #}}}1
+
+
+private
+
+def set_defaults
+#{{{1
+	clear
+	self["foreground"] = [65535, 65535, 65535]
+	self["background"] = [20316, 20316, 20316]
+	self["font"] = "Courier Bold 12"
+	self["text_wrap"] = true
+	self["deletesave_enable"] = true
+	self["deletesave_file"] = "$f.deleted-%Y%m"
+	self["confirm_delete"] = false
+	self["confirm_quit"] = false
+	self["autosave_enable"] = true
+	self["autosave_seconds"] = 600
+end #}}}1
+
+end # class
+
+# vim600: set foldmethod=marker:

data/lib/svn_info.rb

@@ -0,0 +1,16 @@
+# This file is creataed by './make_svn_info.rb'
+
+module SVN_Info
+
+SVN_PATH="."
+SVN_URL="svn+ssh://solaria.426.ch/svn/jota/trunk"
+SVN_REPOSITORY_ROOT="svn+ssh://solaria.426.ch/svn"
+SVN_REPOSITORY_UUID="ff64bd42-7924-4c15-ba74-d98c4559417c"
+SVN_REVISION="35"
+SVN_NODE_KIND="directory"
+SVN_SCHEDULE="normal"
+SVN_LAST_CHANGED_AUTHOR="dz"
+SVN_LAST_CHANGED_REV="35"
+SVN_LAST_CHANGED_DATE="2009-01-26 10:30:05 +0100 (Mon, 26 Jan 2009)"
+
+end

data/lib/version.rb

@@ -0,0 +1,59 @@
+
+# $Id: version.rb 35 2009-01-26 09:30:05Z dz $
+
+require "svn_info"
+
+class Version
+
+include SVN_Info
+
+MAJOR = 0
+MINOR = 8
+REVISION = 0
+
+STRING = "%d.%d.%d" % [MAJOR, MINOR,REVISION]
+
+PROGRAM_NAME = "jota"
+YEARS = "2008-2009"
+
+AUTHOR = "Derik van Zuetphen"
+AUTHOR_EMAIL = "dz@426.ch"
+AUTHOR_WEBSITE = "http://426.ch/jota"
+
+LICENSE = "
+  Copyright (c) #{YEARS} #{AUTHOR} <#{AUTHOR_EMAIL}>
+  All rights reserved.
+
+  Redistribution and use in source and binary forms, with or without
+  modification, are permitted provided that the following conditions
+  are met:
+
+  1. Redistributions of source code must retain the above copyright
+     notice, this list of conditions and the following disclaimer.
+  2. Redistributions in binary form must reproduce the above copyright
+     notice, this list of conditions and the following disclaimer in the
+     documentation and/or other materials provided with the distribution.
+  3. The name of the author may not be used to endorse or promote products
+     derived from this software without specific prior written permission.
+
+  THIS SOFTWARE IS PROVIDED \"AS IS\" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+  INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+  AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
+  THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+  EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+  OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+  WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+  OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+  ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+"
+
+def Version.build
+	date,time = SVN_LAST_CHANGED_DATE.split(/ /)
+	date.gsub!(/[^0-9]/,"")
+	time.gsub!(/[^0-9]/,"")
+	rev = SVN_REVISION
+	return "#{rev}/#{date}T#{time}"
+end
+
+end # class

data/tests/test_all.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+
+# $Id: test_all.rb 28 2009-01-22 09:20:48Z dz $
+
+# http://www.ruby-doc.org/stdlib/libdoc/test/unit/rdoc/classes/Test/Unit.html
+
+require 'test/unit'
+require 'test_preferences'
+require 'test_clip'
+require 'test_clip_array'

data/tests/test_clip.rb

@@ -0,0 +1,172 @@
+
+# $Id: test_clip.rb 28 2009-01-22 09:20:48Z dz $
+
+require 'test/unit'
+require 'clip'
+
+#$test_time = Time.now
+# Time.now contains a usec value that cannot be saved
+$test_time = Time.parse("2007-10-20 12:34:56")
+$test_time_str = $test_time.ctime
+
+
+def build_clip(title,data,type,wrap)
+	c = Clip.new
+	c.title = title
+	c.data = data	# sets implicitly c.type
+	c.wrap = wrap
+	c.created = $test_time
+	return c
+end
+
+class TestClip < Test::Unit::TestCase
+
+def test_new
+	c = Clip.new
+	assert_equal("",c.data)
+	assert_equal(:text,c.type)
+	assert_equal(false,c.wrap)
+	assert_equal("",c.title)
+	assert(c.empty?)
+end
+
+def test_data
+	c = Clip.new
+	c.data = "test"
+	assert_equal("test",c.data)
+	assert_equal("",c.title)
+	assert_equal(false,c.wrap)
+	assert_equal(:text,c.type)
+	assert(!c.empty?)
+end
+
+def test_title
+	c = Clip.new
+	c.title = "title"
+	assert_equal("",c.data)
+	assert_equal(false,c.wrap)
+	assert_equal("title",c.title)
+	assert_equal(:text,c.type)
+	assert(!c.empty?)
+end
+
+def test_wrap
+	c = Clip.new
+	c.data = "text"
+	c.title = "title"
+	c.wrap = true
+	assert_equal("text",c.data)
+	assert_equal(true,c.wrap)
+	assert_equal("title",c.title)
+	assert_equal(:text,c.type)
+	assert(!c.empty?)
+
+	c.wrap = false
+	assert_equal("text",c.data)
+	assert_equal(false,c.wrap)
+	assert_equal("title",c.title)
+	assert_equal(:text,c.type)
+	assert(!c.empty?)
+end
+
+def test_created
+	c = Clip.new
+	c.created = $test_time
+	assert_equal($test_time,c.created)
+	assert(c.empty?)
+end
+
+$sample = [
+	{
+	:clip => build_clip("title","text\n",:text,true),
+	:hash => {
+		"type" => :text,
+		"wrap" => true,
+		"data" => "text\n",
+		"title" => "title",
+		"created" => $test_time
+	},
+	:mbox => "Date: #{$test_time_str}
+Subject: title
+Content-Type: text/plain
+X-Wrap: true
+X-Saved-By: jota
+
+text
+"
+	},
+	{
+	:clip => build_clip("  title ","text\n",:text,false),
+	:hash => {
+		"type" => :text,
+		"wrap" => false,
+		"data" => "text\n",
+		"title" => "  title ",
+		"created" => $test_time
+	},
+	:mbox => "Date: #{$test_time_str}
+Subject:   title 
+Content-Type: text/plain
+X-Wrap: false
+X-Saved-By: jota
+
+text
+"
+	},
+	{
+	:clip => build_clip("TITLE","text  \n\n",:text,false),
+	:hash => {
+		"type" => :text,
+		"wrap" => false,
+		"data" => "text  \n\n",
+		"title" => "TITLE",
+		"created" => $test_time
+	},
+	:mbox => "Date: #{$test_time_str}
+Subject: TITLE
+Content-Type: text/plain
+X-Wrap: false
+X-Saved-By: jota
+
+text  
+
+"
+	}
+	]
+
+def test_to_hash
+	$sample.each do | sample |
+		c = sample[:clip]
+		h = c.to_hash
+		assert_equal(sample[:hash], h)
+	end
+end
+
+def test_from_hash
+	$sample.each do | sample |
+		h = sample[:hash]
+		c = Clip.from_hash(h)
+		assert_equal(sample[:clip], c)
+	end
+end
+
+def test_to_mbox
+	$sample.each do | sample |
+		c = sample[:clip]
+		r = c.to_mbox
+		assert_equal(sample[:mbox], r)
+	end
+end
+
+def test_from_mbox
+	$sample.each do | sample |
+		r = sample[:mbox]
+		c = Clip.from_mbox(r)
+		assert_equal(sample[:clip], c)
+		#assert_equal(sample[:clip].to_mbox, c.to_mbox)
+		#puts c.created.usec
+		#puts sample[:clip].created.usec
+	end
+end
+
+end # class

data/tests/test_clip_array.rb

@@ -0,0 +1,177 @@
+
+# $Id: test_clip_array.rb 28 2009-01-22 09:20:48Z dz $
+
+require 'test/unit'
+
+require 'clip'
+require 'clip_array'
+
+
+
+class TestClipArray < Test::Unit::TestCase
+
+def setup
+	@a = ClipArray.new.clear1
+	@c1 = Clip.new
+	@c1.data = "test1"
+	@c2 = Clip.new
+	@c2.data = "test2"
+	@c3 = Clip.new
+	@c3.data = "test3"
+end
+
+def test_initialized
+	assert_equal(0,@a.current_index)
+	assert_equal(1,@a.size)
+	assert_equal("",@a[0].data)
+	assert_equal(:text,@a[0].type)
+end
+
+def test_new
+	@a[0].data = "foo"
+	# [->"foo"]
+	assert_equal(0,@a.current_index)
+	assert_equal(1,@a.size)
+	assert_equal("foo",@a.current.data)
+
+	@a.new()
+	@a.current.data = "bar"
+	# ["foo", ->"bar"]
+	assert_equal(1,@a.current_index)
+	assert_equal(2,@a.size)
+	assert_equal("bar",@a.current.data)
+
+	@a.new()
+	# ["foo", "bar", ->""]
+	assert_equal(2,@a.current_index)
+	assert_equal(3,@a.size)
+	assert_equal("",@a.current.data)
+end
+
+def test_add
+	# [-> ""]
+	
+	@a<<@c1
+	# ["", ->"test1"]
+	assert_equal(1,@a.current_index)
+	assert_equal(2,@a.size)
+	assert_equal("test1",@a[1].data)
+	
+	@a<<@c2
+	# ["", "test1", ->"test2"]
+	assert_equal(2,@a.current_index)
+	assert_equal(3,@a.size)
+	assert_equal("test2",@a[2].data)
+
+	@a<<@c3
+	# ["", "test1", "test2", ->"test3"]
+	assert_equal(3,@a.current_index)
+	assert_equal(4,@a.size)
+	assert_equal("test3",@a[3].data)
+end
+
+def test_prev
+	@a<<@c1<<@c2<<@c3
+	# ["", "test1", "test2", ->"test3"]
+	assert_equal(3,@a.current_index)
+
+	@a.prev
+	# ["", "test1", ->"test2", "test3"]
+	assert_equal(2,@a.current_index)
+	assert_equal("test2",@a.current.data)
+
+	@a.prev
+	# ["", ->"test1", "test2", "test3"]
+	assert_equal(1,@a.current_index)
+	assert_equal("test1",@a.current.data)
+
+	@a.prev
+	# [->"", "test1", "test2", "test3"]
+	assert_equal(0,@a.current_index)
+	assert_equal("",@a.current.data)
+
+	@a.prev
+	# [->"", "test1", "test2", "test3"]
+	assert_equal(0,@a.current_index)
+	assert_equal("",@a.current.data)
+end
+
+def test_next
+	@a<<@c1<<@c2<<@c3
+	# ["", "test1", "test2", ->"test3"]
+	
+	@a.next
+	# ["", "test1", "test2", ->"test3"]
+	assert_equal(3,@a.current_index)
+	assert_equal("test3",@a.current.data)
+
+	@a.prev.prev.prev
+	# [->"", "test1", "test2", "test3"]
+	assert_equal(0,@a.current_index)
+	assert_equal("",@a.current.data)
+
+	@a.next
+	# ["", ->"test1", "test2", "test3"]
+	assert_equal(1,@a.current_index)
+	assert_equal("test1",@a.current.data)
+
+	@a.next
+	# ["", "test1", ->"test2", "test3"]
+	assert_equal(2,@a.current_index)
+	assert_equal("test2",@a.current.data)
+end
+
+def test_delete
+	@a<<@c1<<@c2<<@c3
+	# ["", "test1", "test2", ->"test3"]
+
+	# delete at end
+	@a.delete
+	# ["", "test1", ->"test2"]
+	assert_equal(2,@a.current_index)
+	assert_equal(3,@a.size)
+	assert_equal("",@a[0].data)
+	assert_equal("test1",@a[1].data)
+	assert_equal("test2",@a[2].data)
+	
+	# go back and forth, delete in the middle
+	@a.prev.next.prev
+	@a.delete
+	# ["", ->"test2"]
+	assert_equal(1,@a.current_index)
+	assert_equal(2,@a.size)
+	assert_equal("",@a[0].data)
+	assert_equal("test2",@a[1].data)
+
+	# go back, delete at front
+	@a.prev
+	@a.delete
+	# [->"test2"]
+	assert_equal(0,@a.current_index)
+	assert_equal(1,@a.size)
+	assert_equal("test2",@a[0].data)
+
+	# delete single
+	@a.delete
+	# [->""]
+	assert_equal(0,@a.current_index)
+	assert_equal(1,@a.size)
+	assert_equal("",@a[0].data)
+
+	# delete if empty
+	@a.delete
+	# [->""]
+	assert_equal(0,@a.current_index)
+	assert_equal(1,@a.size)
+	assert_equal("",@a[0].data)
+
+end
+
+
+def test_yaml
+end
+
+def test_mbox
+end
+
+end # class