iwritecode.com

#!/usr/bin/env ruby -ws

# The idea is to run this script and review the events. Each run
# resets the calendar named "Test", so you can keep re-running the
# script until you get the events are looking right.
#
# Once everything looks like it should, move each repeating event into
# the calendar you want it to be in (eg Personal or Work).
#
# The only thing this stupid script doesn't do is create the "Test"
# calendar that it puts all of the events into. For some reason the
# CalendarLib EC library won't create calendars and I can't figure out
# how to create a calendar in icloud in Calendar.app. Scripting
# Calendar.app directly seems opaque as hell. This disparity sucks but
# is a minor inconvenience.

$y ||= false # yes, commit

require "date"

class Date
  def next_monday
    (self..(self+7)).find { |day| day.wday == 1 }
  end
end

def t n_or_a
  case n_or_a
  when Array
    "%02d:%02d" % n_or_a
  else
    "%02d:%02d" % [n_or_a, 0]
  end
end

def new_event title, t0, t1, where, repeat:nil
  puts "set theEvent to create event event store theStore destination calendar theCal event summary %p starting date (date %p) ending date (date %p) %s" % [title, t0, t1, where]

  case repeat
  when :weekly, :weekdays then
    puts "modify recurrence event theEvent event frequency do weekly event interval 1 repeats until endOfYear"
  when :yearly then
    # do nothing?
    # puts "modify recurrence event theEvent event frequency do yearly event interval 1 repeats for 10"
  else
    # do nothing
  end

  puts "store event event theEvent event store theStore"

  if repeat == :weekdays then # modify weekly to weekdays
    puts "my setToWeekdays(event_external_ID of (event info for event theEvent))"
  end
end

def all_day date, title
  date = Date.parse(date) if String === date

  puts "-- %s all day %s" % [date, title]

  d = date.to_time.strftime "%D"

  new_event title, d, d, "with runs all day"
end

def event date, start, stop, repeat, title, where = nil
  date = Date.parse(date) if String === date
  date = date.next_year if repeat == :next_year

  puts "-- %s %s-%s %-8s %s" % [date, t(start), t(stop), repeat, title]

  h0, m0 = start
  h1, m1 = stop

  m0 ||= 0
  m1 ||= 0

  where = "event location %p" % LOCATION[where] if where

  fmt = "%m/%d/%Y %H:%M %p"
  t0 = (date.to_time + (h0 * 3600) + (m0 * 60)).strftime fmt
  t1 = (date.to_time + (h1 * 3600) + (m1 * 60)).strftime fmt

  new_event title, t0, t1, where, repeat:repeat
end

sun, mon, tue, wed, thu, fri, sat = (0..6).to_a
sun = sun # quell unused warning
sat = sat # quell unused warning

year = Date.today.year

d = Date.new(year, 1, 1)

week  = (d..(d+6)).to_a      # 1/1, 1/2, 1/3... 1/7
first = week.rotate(-d.wday) # aligned to sunday=0, eg first[mon] = 2025-01-06

first_wkdy = week.find { |day| day.wday.between? mon, fri }

if $y then
  warn "setting $stdout to osascript"
  $stdout = IO.popen "osascript", "w"
end

puts DATA.read
puts

######################################################################
# start of calendar data

LOCATION = {
  :home => "Home\n[address...]",
  :gym  => "RCF\n[address...]",
}

may_taxes = Date.new(year,  4, 15).next_monday
oct_taxes = Date.new(year, 10, 15).next_monday

#     date,       start,   stop,    repeat,    title,        where=nil

event first_wkdy, [10,30], 11,      :weekdays, "Coffee & Triage"

event first[mon], 18,      23,      :weekly,   "Me Night",   :home
event first[mon], [15,30], 16,      :weekly,   "1:1"
event first[mon], [16,30], [17,30], :weekly,   "Pain",       :gym
event first[tue], 18,      19,      :weekly,   "Study Group"
event first[tue], 19,      21,      :weekly,   "Nerd Party"
# ... you get the idea ...

event may_taxes,  12,      [12,30], :yearly,   "Schedule Property Tax Payment"
event oct_taxes,  12,      [12,30], :yearly,   "Schedule Property Tax Payment"
event "4/23",     12,      [12,30], :yearly,   "No, Really! Pay Property Taxes"
event "10/23",    12,      [12,30], :yearly,   "No, Really! Pay Property Taxes"

event "1/1",      12,      [12,30], :next_year,"Run setup_calendar_fast.rb"

all_day "4/30",                                "Property Taxes"
all_day "10/31",                               "Property Taxes"
all_day "10/15",                               "My Ruby Birthday (2000)"
all_day "2/28",                                "Seattle.rb Anniversary (2002)"
# ...

if $y then
  $stdout.flush
  $stdout.close
end

__END__
use scripting additions
use script "CalendarLib EC" version "1.1.5"

set thisYear to year of (current date)
set startOfYear to date ("Jan 1 " & thisYear)
set endOfYear to date ("Dec 31 " & thisYear & " 23:59 PST")
set endOfYearPlusOne to endOfYear + 86400

set theStore to fetch store
if theStore is missing value then
  error "Couldn't find Calendar Store"
end if

set theCal to fetch calendar "Test" cal type cal cloud event store theStore
if theCal is missing value then
  error "Couldn't find Test calendar"
end if

set myEvents to fetch events starting date startOfYear ending date endOfYearPlusOne searching cals {theCal} event store theStore
repeat with anEvent in myEvents
        try
                remove event event anEvent event store theStore
        on error errMsg number errNum
                -- do nothing, I'm assuming this is from repeating tasks?
        end try
end repeat

on setToWeekdays(myID)
  tell application "Calendar"
    tell calendar "Test"
      set e to (event id myID)
      set s to recurrence of e

      -- from "FREQ=WEEKLY;INTERVAL=1;UNTIL=20191231T235900"
      -- to   "FREQ=WEEKLY;UNTIL=20181221T200000Z;BYDAY=MO,TU,WE,TH,FR"
      set mydate to last word of s
      set newS to "FREQ=WEEKLY;UNTIL=" & mydate & ";BYDAY=MO,TU,WE,TH,FR"

      set recurrence of e to newS
    end tell
  end tell
end setToWeekdays