# Gmail sublet file
# Created with sur-0.2
require "gmail"

configure :gmail do |s|
   colors = Subtlext::Subtle.colors
   s.interval = s.config[:interval ] || 120
   s.icon = Subtlext::Icon.new("mail.xbm")
   s.user = s.config[:user]
   s.pass = s.config[:password]
   s.urgent = colors[:urgent_bg]
   s.normal = colors[:sublets_bg]
   s.background = colors[:sublets_bg]
   s.count = 0
end

on :run do |s|
  begin
    gmail = Gmail.new(s.user, s.pass)
    numb = gmail.inbox.count(:unread)
    gmail.logout
    if s.count > numb
    	s.background = s.normal
    	s.data = s.icon + numb
    elsif numb == 0
    	s.background = s.normal
   	s.data = s.icon + numb
    else
    	s.background = s.urgent
    	s.data = s.icon + numb
    end
    s.count = numb
  rescue => err # Sanitize to prevent unloading
    s.background = s.urgent_background
    s.data = "error"
    p err
  end
end