fraser-vpim-rails 0.658

data/samples/osx-wrappers.rb

@@ -0,0 +1,86 @@
+# OSX wrapper methods.
+#
+# The OSX classes are mirrored fairly directly into ruby by ruby/cocoa. Too
+# directly for ease, this is a start at convenient ruby APIs on top of the low-level cocoa
+# methods.
+
+=begin
+
+Ideas for things to add:
+
++ each for the addressbook
+
++ ABRecord#[]  <- valueForProperty
+
++ [] and each for NSCFArray (which is actually an instance of OCObject)
+
++ [] and each for NSCFDictionary (which is actually an instance of OCObject)
+
++ Can I add methods to OCObject, and have them implement themselves based on the the 'class'?
+
++ ABMultiValue#[index]
+
+if index
+  
+is a :token, then its the identifier,
+is a string, its a label
+is a number, its an array index
+
+return a Struct, so you can do
+
+  mvalue["work"].value
+
+=end
+
+require 'osx/addressbook'
+
+# put into osx/ocobject?
+module OSX
+  # When an NSData object is returned by an objective/c API (such as
+  # ABPerson.vCardRepresentation, I actually get a OCObject back, who's class
+  # instance points to either a NSData, or a related class.
+  #
+  # This is a convenience method to get the NSData data back as a ruby string.
+  # Is it the right place to put this?
+  class OCObject
+    def bytes
+      s = ' ' * length
+      getBytes(s)
+      s
+    end
+  end
+end
+
+# put into osx/abperson?
+module OSX
+  class ABPerson
+    def vCard
+      card = self.vCardRepresentation.bytes
+
+      # The card representation appears to be either ASCII, or UCS-2. If its
+      # UCS-2, then the first byte will be 0, so check for this, and convert
+      # if necessary.
+      #
+      # We know it's 0, because the first character in a vCard must be the 'B'
+      # of "BEGIN:VCARD", and in UCS-2 all ascii are encoded as a 0 byte
+      # followed by the ASCII byte, UNICODE is great.
+      if card[0] == 0
+        nsstring = OSX::NSString.alloc.initWithCharacters(card, :length, card.size/2)
+        card = nsstring.UTF8String
+
+        # TODO: is nsstring.UTF8String == nsstring.to_s  ?
+      end
+      card
+    end
+  end
+end
+
+# put into osx/group?
+module OSX
+  class ABGroup
+    def name
+      self.valueForProperty(OSX::kABGroupNameProperty).to_s
+    end
+  end
+end
+

data/samples/reminder.rb

@@ -0,0 +1,203 @@
+#!/usr/bin/env ruby
+
+$-w = true
+
+require 'ubygems' rescue "ignored"
+
+require 'getoptlong'
+require 'pp'
+require 'plist'
+
+require 'vpim/repo'
+
+$stdout.sync = true
+$stderr.sync = true
+
+HELP =<<EOF
+Usage: #{$0} [where]
+
+Shows events and todos occuring soon.
+
+By default, the Apple iCal v3 calendars are used, but if a location where
+.ics files is specified, any calendars found there will be used.
+
+Options
+  -h,--help        Print this helpful message.
+  -n,--days   N    How many of the next days are considered to be "soon", default
+                     is seven.
+  -v,--verbose     Print more information about upcoming events.
+EOF
+
+opt_debug = nil
+opt_verbose = nil
+opt_days  = 7
+
+opts = GetoptLong.new(
+  [ "--help",    "-h",   GetoptLong::NO_ARGUMENT ],
+  [ "--days",    "-n",   GetoptLong::REQUIRED_ARGUMENT ],
+  [ "--verbose", "-v",   GetoptLong::NO_ARGUMENT ],
+  [ "--debug",   "-d",   GetoptLong::NO_ARGUMENT ]
+)
+
+opts.each do |opt, arg|
+  case opt
+    when "--help" then
+      puts HELP
+      exit 0
+
+    when "--days" then
+      opt_days = arg.to_i
+
+    when "--verbose" then
+      opt_verbose = true
+
+    when "--debug" then
+      opt_verbose = true
+      opt_debug = true
+  end
+end
+
+calendars = []
+
+if ARGV.length > 0
+  Vpim::Repo::Directory.each(ARGV.first) do |cal|
+    calendars << cal
+  end
+else
+  Vpim::Repo::Ical3.each() do |cal|
+    calendars << cal
+  end
+end
+
+if opt_debug
+  pp ARGV
+  pp calendars
+end
+
+SECSPERDAY = (24 * 60 * 60)
+
+t0 = Time.new.to_a
+t0[0] = t0[1] = t0[2] = 0 # sec,min,hour = 0
+t0 = Time.zone.local(*t0)
+t1 = t0 + opt_days * SECSPERDAY
+
+if opt_debug
+  puts "to: #{t0}"
+  puts "t1: #{t1}"
+end
+
+if opt_verbose
+  puts "Events in the next #{opt_days} days:"
+end
+
+# Collect all events, then all todos.
+all_events = []
+all_todos  = []
+
+calendars.each do |cal|
+  if opt_debug; puts cal.name; end
+
+  begin
+    cal.events.each do |e|
+      begin
+        if opt_debug; pp e; end
+        if e.occurs_in?(t0, t1)
+          if e.summary
+            all_events.push(e)
+          end
+        end
+      rescue
+        $stderr.puts "error in #{cal.name} (\"#{e.summary}\"): #{$!.to_s}"
+      end
+    end
+
+    all_todos.concat(cal.todos)
+  end
+end
+
+puts
+
+def start_of_first_occurrence(t0, t1, e)
+  e.occurrences(t1) do |t|
+    # An event might start before t0, but end after it..., in which case
+    # we are still interested.
+    if (t + (e.duration || 0)) >= t0
+      return t
+    end
+  end
+  nil
+end
+
+all_events.sort! do |lhs, rhs|
+  start_of_first_occurrence(t0, t1, lhs) <=> start_of_first_occurrence(t0, t1, rhs)
+end
+
+all_events.each do |e|
+  puts "#{e.summary}:"
+
+  if opt_verbose
+    if e.description;   puts "  description=#{e.description}"; end
+    if e.comments;      puts "  comment=#{e.comments.first}"; end
+    if e.location;      puts "  location=#{e.location}"; end
+    if e.status;        puts "  status=#{e.status}"; end
+    if e.dtstart;       puts "  dtstart=#{e.dtstart}"; end
+    if e.duration;      puts "  duration=#{Vpim::Duration.new(e.duration).to_s}"; end
+  end
+
+  i = 1
+  e.occurrences.each_until(t1).each do |t|
+    # An event might start before t0, but end after it..., in which case
+    # we are still interested.
+    dstr = ''
+    if e.duration
+      d = e.duration
+      dstr = " for #{Vpim::Duration.new(e.duration).to_s}"
+    end
+
+    if (t + (e.duration || 0)) >= t0
+      puts "  ##{i} on #{t}#{dstr}"
+      i += 1
+    end
+  end
+end
+
+=begin
+def fix_priority(vtodo)
+  p = vtodo.priority
+  if !p
+    p = 10
+
+end
+=end
+
+all_todos.sort! do |x,y|
+  x = x.priority
+  y = y.priority
+
+  # 0 means no priority, put these last, not first
+  x = 10 if x == 0
+  y = 10 if y == 0
+
+  x <=> y
+end
+
+priorities = [
+  'no importance',
+  'very important',
+  'very important',
+  'very important',
+  'important',
+  'important',
+  'important',
+  'not important',
+  'not important',
+  'not important'
+]
+
+all_todos.each do |e|
+  status = e.status || 'Todo'
+  if status != 'COMPLETED'
+    puts "#{status.capitalize}: #{e.summary}" #  (#{priorities[e.priority]})"
+  end
+end
+

data/samples/rrule.rb

@@ -0,0 +1,71 @@
+#!/usr/bin/env ruby
+
+$-w = true
+$:.unshift File.dirname($0) + "/../lib"
+
+require 'vpim/rrule'
+require 'getoptlong'
+require 'parsedate'
+
+HELP =<<EOF
+Usage: #{$0} [options] rrule
+
+Options
+  -h,--help      Print this helpful message.
+  -t,--start     Start time for recurrence rule, defaults to current time.
+
+Examples:
+
+FREQ=DAILY;COUNT=10
+FREQ=DAILY;UNTIL=19971224T000000Z
+FREQ=DAILY;INTERVAL=2
+FREQ=DAILY;INTERVAL=10;COUNT=5
+
+Demonstrate DST time change:
+
+#{$0}  --start '2004-04-03 02:00' 'FREQ=daily;count=3'
+#{$0}  --start '2004-10-30 02:00' 'FREQ=daily;count=3'
+
+Note: In the US DST starts at 2AM, on the first Sunday of April, and reverts
+at 2AM on the last Sunday of October.
+
+EOF
+
+dtstart = Time.new
+
+opts = GetoptLong.new(
+  [ "--help",    "-h",   GetoptLong::NO_ARGUMENT ],
+  [ "--start",   "-t",   GetoptLong::REQUIRED_ARGUMENT]
+)
+
+opts.each do |opt, arg|
+  case opt
+    when "--help" then
+      puts HELP
+      exit 0
+
+    when "--start" then
+      date = ParseDate.parsedate(arg)
+      date.pop
+      date.pop
+      dtstart = Time.zone.local(*date)
+  end
+end
+
+if ARGV.length < 1
+  puts "no rrule specified, try -h!\n"
+  exit 1
+end
+
+puts "Start: #{Vpim.encode_date_time(dtstart)}"
+
+ARGV.each do |rule|
+  rrule = Vpim::Rrule.new(dtstart, rule)
+
+  puts "Rule: #{rule}"
+
+  rrule.each_with_index do |t, count|
+    puts format("count=%3d %s", count, t.to_s)
+  end
+end
+