class FluidTime

# File lib/fluid-time.rb, line 16
def self.demo
  %w{
    to_time
    to_date
    a.ddd.wday
    A.tday.weekday
    b.mmm.smonth
    B.month
    c
    full
    d.dd.day.num
    e.mday
    H.h24.mhour.hour24
    I.h12.hour.hour12
    l
    j.yday.day_of_year
    m.mm.mon.month_of_year
    M.min.minute
    hour.p
    hour.pm.txt('or').hour.am
    hour.PM.txt('or').hour.AM
    S.sec.second
    U
    W
    w
    x.autodate
    X.autotime
    y.yy.sy
    Y.year
    Z.zone.timezone
    date
    time
    db
    usdate
    W.th.comma.space._('week')
    date.hour.colon.min.today.pm
    year.mmm.d.th
    time.xs.p.down
    txt('01').xz.PM.zone
    txt('1:00').xz.pm.zone
    _('braces').lb.lp.lc.rc.rp.rb
    _('symbols').lb.tp.ts.tc.ts.tn.ts.td.rb
    _('symbols').lb.sp.ss.sc.ss.sn.ss.sd.rb
    period.space.comma
    colon.space.dash.space.slash
  }.each {|ex| "FluidTime.new.   #{ex}.to_s".tap {|str| p str + (" %#{80 - str.length}s" % eval(str))} }
  nil
end

# File lib/fluid-time.rb, line 6
def initialize(input = Time.now)
  @build = ""
  @last_was_space = false

  @time = nil
  @time = input if input.is_a?(Time)
  @time = input.to_time if input.is_a?(Date) && input.methods.include?(:to_time)
  @time = Time.parse(input.to_s) if @time.nil?
end

# File lib/fluid-time.rb, line 83
def <=>(o)
  self.to_s <=> o.to_s
end

# File lib/fluid-time.rb, line 108
def A; cat @time.strftime('%A') end

# File lib/fluid-time.rb, line 118
def B; cat @time.strftime('%B') end

# File lib/fluid-time.rb, line 136
def H; cat @time.strftime('%H') end

# File lib/fluid-time.rb, line 142
def I; cat @time.strftime('%I') end

# File lib/fluid-time.rb, line 163
def M; cat @time.strftime('%M') end

# File lib/fluid-time.rb, line 179
def S; cat @time.strftime('%S') end

# File lib/fluid-time.rb, line 184
def U; cat @time.strftime('%U') end

# File lib/fluid-time.rb, line 190
def W; cat @time.strftime('%W') end

# File lib/fluid-time.rb, line 204
def X; cat @time.strftime('%X') end

# File lib/fluid-time.rb, line 213
def Y; cat @time.strftime('%Y') end

# File lib/fluid-time.rb, line 303
def Y_m_d
  self.Y.dash.mm.dash.d
end

# File lib/fluid-time.rb, line 299
def Ymd
  self.Y.xs.mm.xs.d
end

# File lib/fluid-time.rb, line 217
def Z; cat @time.strftime('%Z') end

# File lib/fluid-time.rb, line 103
def a; cat @time.strftime('%a') end

# File lib/fluid-time.rb, line 113
def b; cat @time.strftime('%b') end

# File lib/fluid-time.rb, line 122
def c; cat @time.strftime('%c') end

# File lib/fluid-time.rb, line 87
def cat(str, sep = ' ')
  @last_was_space = ' ' == str.to_s
  @build += str.to_s + sep
  self
end

# File lib/fluid-time.rb, line 275
def colon;  xs.txt ':', '' end

# File lib/fluid-time.rb, line 274
def comma;  xs.txt ',', '' end

# File lib/fluid-time.rb, line 126
def d; cat @time.strftime('%d') end

# File lib/fluid-time.rb, line 276
def dash;   xs.txt '-', '' end

# File lib/fluid-time.rb, line 311
def date
  self.mon.slash.day.slash.year
end

# File lib/fluid-time.rb, line 291
def db
  self.Y.m.d.H.I.S
end

# File lib/fluid-time.rb, line 244
def down
  set(@build.split.tap {|parts| parts << parts.pop.downcase}.join(' '))
end

# File lib/fluid-time.rb, line 132
def e; cat @time.strftime('%e') end

# File lib/fluid-time.rb, line 152
def j; cat @time.strftime('%j') end

# File lib/fluid-time.rb, line 148
def l; cat @time.strftime('%l') end

# File lib/fluid-time.rb, line 279
def lbrace;  xs.txt '[', '' end

# File lib/fluid-time.rb, line 282
def lcurve;  xs.txt '{', '' end

# File lib/fluid-time.rb, line 285
def lparen;  xs.txt '(', '' end

# File lib/fluid-time.rb, line 157
def m; cat @time.strftime('%m') end

# File lib/fluid-time.rb, line 168
def p; cat @time.strftime('%p') end

# File lib/fluid-time.rb, line 273
def period; xs.txt '.', '' end

# File lib/fluid-time.rb, line 172
def pm; self.p.down end

# File lib/fluid-time.rb, line 280
def rbrace;  xs.txt ']', '' end

# File lib/fluid-time.rb, line 283
def rcurve;  xs.txt '}', '' end

# File lib/fluid-time.rb, line 286
def rparen;  xs.txt ')', '' end

# File lib/fluid-time.rb, line 95
def set(str, sep = ' ')
  @build = str.to_s + sep
  self
end

# File lib/fluid-time.rb, line 277
def slash;  xs.txt '/', '' end

# File lib/fluid-time.rb, line 272
def space;     txt ' ',''  end

# File lib/fluid-time.rb, line 263
def strip
  @build.strip! unless @last_was_space
  self
end

# File lib/fluid-time.rb, line 254
def strip_zero
  set(@build.strip.split.tap do |parts|
    parts << parts.pop.tap { |last| last.replace(last.gsub(/^0/,'').gsub(':00','')) }
  end.join(' '))
end

# File lib/fluid-time.rb, line 224
def th
  set(@build.strip.split.tap do |parts|
    parts << parts.pop.tap { |last| last.replace(numeric?(last) ? ordinalize(last) : last) }
  end.join(' '))
end

# File lib/fluid-time.rb, line 307
def time
  self.hour.colon.minute.colon.second
end

# File lib/fluid-time.rb, line 79
def to_date
  Date.new(@time.year, @time.month, @time.day)
end

# File lib/fluid-time.rb, line 69
def to_s
  hold = @build.strip
  @build = ""
  '' == hold ? @time.to_s : hold
end

# File lib/fluid-time.rb, line 75
def to_time
  @time
end

# File lib/fluid-time.rb, line 249
def up
  set(@build.split.tap {|parts| parts << parts.pop.upcase}.join(' '))
end

# File lib/fluid-time.rb, line 295
def usdate
  self.mm.slash.d.slash.Y
end

# File lib/fluid-time.rb, line 197
def w; cat @time.strftime('%w') end

# File lib/fluid-time.rb, line 200
def x; cat @time.strftime('%x') end

# File lib/fluid-time.rb, line 175
def xpm; self.xz.xs.pm end

# File lib/fluid-time.rb, line 208
def y; cat @time.strftime('%y') end

# File lib/fluid-time.rb, line 230
def ytt
  set(@build.gsub('-', '/').split.tap do |parts|
    parts.each_with_index do |part, index|
      date = Date.parse(part) rescue nil
      parts[index] = 'Today' if date.is_a?(Date) && date.to_s == Date.today.to_s
      parts[index] = 'Tomorrow' if date.is_a?(Date) && date.to_s == (Date.today + 1).to_s
      parts[index] = 'Yesterday' if date.is_a?(Date) && date.to_s == (Date.today - 1).to_s
    end
  end.join(' '))
end

# File lib/fluid-time.rb, line 320
def numeric?(string)
  true if Float(string) rescue false
end

# File lib/fluid-time.rb, line 324
def ordinalize(number)
  return "#{number}th" if (11..13).include?(number.to_i % 100)

  case number.to_i % 10
    when 1; "#{number}st"
    when 2; "#{number}nd"
    when 3; "#{number}rd"
    else    "#{number}th"
  end
end