shoefiti

Artifact f3fdec05c48bfa51a72fc1834edcb8611babaf02365d4be61ba99c7bcdeb62dd:

• File shoefiti.rb — part of check-in [1a9d98c852] at 2010-05-26 13:02:39 on branch master — Not working - further attempts to get Class approach working

  * Can't get the message list to draw properly using this class approach.
  The Shoes para, etc bits seem to get ignored. As does the @messagelist
  (the whole window scrolls)
  * Perhaps a class is not the best thing to use: Ideally need to flush each
  time as at the moment objects just get added to it for each date that is
  clicked on, but old ones aren't removed. Perhaps should use a hash or
  array for potential thread sorting, etc. (user: i5ivem@gmail.com size: 5559)

require 'rubygems'
require 'date'
require 'json'

Shoes.app :title => "Shoefiti - Librelist Browser", :height => 700, :scroll => false do

	class Email 
		#What about what class retains in memory? Do I need to flush the class? Is that even possible?
		#Perhaps need to hand list, month, day, year attributes to draw_all. 
		#Perhaps using a class is not the best way... Use hash or array.

		attr_accessor :date, :from, :subject, :body

		def initialize(date, from, subject, body)
			@date = date
			@from = from
			@subject = subject
			@body = body
			#@thread = subject.strip of RE, FW, etc. 
			#Want to set thread. Based on subject?
		end

=begin
		def self.sort_by_thread(thread) ???
			#!
			ObjectSpace.each_object(Email) do |e|
				e.thread == 

		end
=end
		
		def self.draw_all
			ObjectSpace.each_object(Email) do |e|

				#@messagelist.append{
					$app.stack :margin => 30, :width => 550 do #Is this understood here? Some of this is not working.
						$app.border black, :strokewidth => 2 
						$app.inscription e.date
						$app.inscription e.from
						$app.inscription e.subject
						$app.para e.body.to_s
					end
				#}
			end
		end

	end


	#Need to be careful not to get months that don't exist (think ok back in time, within reason??)
	def changemonth(direction)
		if direction == :backward
			if @month == 1 #tempting to do "12/".next but no corresponding previous
				@year -= 1
				@month = 12
			else
				@month -= 1
			end
		end
		if direction == :forward
			if @month == 12
				@year += 1
				@month = 1
			else
				@month += 1
			end
		end
		debug(@year)
		debug(@month)
		download(URL+@list+@year.to_s+"/"+(0 if @month < 10).to_s+@month.to_s) do |resp|
			@days = eval(resp.response.body)[1]
			debug(@days)
			#@stack_cal.show
			#@stack_cal_nav.show
			@when.replace(@month.to_s, " ", @year.to_s)
			drawcalendar(@list, @year, @month, @days)
		end
	end
	
		
	def init
		download(URL) do |resp|
			@list_list.items = eval(resp.response.body)[1]
			@stack_list.show
		end
	end


	#Need to clear and redraw like mailpane
	def drawcalendar(list, year, month, maildays)
		debug("Where's the calendar?")
		off=Date.new(year, month, 01).wday-1 #Offset, can't remember why I need the -1 here, but I do.
		mdays=(Date.new(year, 12, 31) << (12-month)).day #Days in the month
		rows=((mdays+off+1).to_f/7.0).ceil #Number of rows in calendar, plus 1 to compensate for -1 above. Have confused myself
		days = %w{Su Mo Tu We Th Fr Sa}
		@messagelist.clear
		@stack_cal.clear{
		days.each do |column|
			i = days.index(column)
			row = 0
			stack :left => i*40, :top => 10 do
				para column
				until row == rows do
					calday = i-off+7*row
					if (1..mdays) === calday #Only want to draw if greater than zero and less than max days
						if calday.to_s.length == 1
							caldaystr = "0"+calday.to_s #need "0" in front of single digits
						else
							caldaystr = calday.to_s
						end
						if maildays.include?(caldaystr+"/") 
							para make_date_link(list, year, month, calday)
						else
							para calday
						end
					else 
						para ""
					end
					row += 1
				end
			end
		end}
	end


	def make_date_link(list, year, month, day) #http://thread.gmane.org/gmane.comp.lib.shoes/4042/focus=4044
		link(day){getmails(list, year, month, day)}
	end
	

	def getmails(list, year, month, day)
		#need to fix months and days here, ie 0 on front.
		if month.to_s.length == 1
			month = "0"+month.to_s #Mr. Consistent. Done differently from the urls!
		else
			month = month.to_s
		end
		if day.to_s.length == 1
			day = "0"+day.to_s
		else
			day = day.to_s
		end
		url = "http://librelist.com/archives/"+list+"/"+year.to_s+"/"+month.to_s+"/"+day.to_s+"/json/"
		#debug(url)
		download(url) do |data|
			emails = eval(data.response.body)[1]
			emails.each do |message|
				download(url+message) do |data|
					js = JSON.parse(data.response.body)
					Email.new(
						js["headers"]["Date"], 
						js["headers"]["From"], 
						js["headers"]["Subject"],
						if js["body"] 
							para js["body"]
						else 
							para js["parts"][0]["body"]
						end
					)
				end
			end
			@messagelist.clear{
				#stack do
					Email.draw_all #list, date?
				#end
			}
		end
	end
	
	
	#Actual app stuff
	URL = "http://librelist.com/archives/"

	#Try doing single list box owing to list_box troubles on shoes MinGW
	#More closely mimics the web interface
	flow :width => "100%" do
		stack :width => "40%" do 
			@stack_list = stack :margin => 10 do
				@list_list = list_box do |list| 
					@list = list.text	
					download(URL+@list) do |resp|
						@year = eval(resp.response.body)[1][-1].to_i
						debug(@year)
						download(URL+@list+@year.to_s) do |resp|
							@month = eval(resp.response.body)[1][-1].to_i
							debug(@month)
							download(URL+@list+@year.to_s+"/"+(0 if @month < 10).to_s+@month.to_s) do |resp|
								@days = eval(resp.response.body)[1]
								debug(@days)
								@when.replace(@month.to_s, " ", @year.to_s)
								drawcalendar(@list, @year, @month, @days)
							end
						end
					end
				end
			end
			@listurl = ""
			@stack_cal_nav = stack :margin => 10 do
				button "<" do
					changemonth(:backward)
				end
				@when = para " "
				@when.style :margin => 10
				button ">" do
					changemonth(:forward)
				end
			end
		end
		@stack_cal = stack :width => "60%" do
			para " "
		end
	end
	@messagelist = stack :height => 425, :scroll => true 
	init 	

end

#What would make this useful?? 
#Grouping by thread/subject - collapsible sections. 
#For now really have to keep everything to "one day"