/*
  Copyright (C) 2000-2003 SKYRIX Software AG

  This file is part of OGo

  OGo is free software; you can redistribute it and/or modify it under
  the terms of the GNU Lesser General Public License as published by the
  Free Software Foundation; either version 2, or (at your option) any
  later version.

  OGo is distributed in the hope that it will be useful, but WITHOUT ANY
  WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  License for more details.

  You should have received a copy of the GNU Lesser General Public
  License along with OGo; see the file COPYING.  If not, write to the
  Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  02111-1307, USA.
*/
// $Id$

#include <OGoFoundation/LSWContentPage.h>

/*
 *  SkyMonthBrowser
 *  Component to browse months
 *  Example:
 
     html:
      <#Browser>
        <#DayLabel />
      </#Browser>
      
     wod:
      Browser: SkyMonthBrowser {
        ...
        date = currentDate;
        ...
      }
      DayLabel: WOString {
        value = currentDate;
      }
 *
 *  Attributes:
       > year
       > month
       > months          (default: 1)
       > timeZone        (default: session.timeZone)
       > showTitle       (default: YES)
       > showWeekOfYear  (default: NO)

      <  date
      <  isInMonth
 
 *
 */

@class NSTimeZone, NSCalendarDate;

@interface SkyMonthBrowser : LSWContentPage
{
@protected
  // interface
  int        year;            // year of the first month
  int        month;           // number of the first month
  int        months;          // number of months (default: 1)
  NSTimeZone *timeZone;       // timeZone (default: sessions.timeZone)

  BOOL       showTitle;       // show month label (default: YES)
  BOOL       showWeekOfYear;  // show week of year label (default: NO)

  NSCalendarDate *date;
  BOOL       isInMonth;

  // intern
  int        monthOffset;
  int        dayOfWeek;
  int        weekOfYear;
  // colors
  NSString   *dayCellColor;
  NSString   *noMonthCellColor;
  NSString   *todayCellColor;

}

@end

#import <Foundation/Foundation.h>
#include <NGExtensions/NGExtensions.h>
#include <OGoFoundation/LSWSession.h>
#include <OGoFoundation/WOComponent+config.h>

@interface SkyMonthBrowser(PrivateMethods)
- (void)setTimeZone:(NSTimeZone *)_tz;
@end

@implementation SkyMonthBrowser

- (id)init {
  if ((self = [super init])) {
    NSCalendarDate *now = nil;

    [self setTimeZone:[(id)[self session] timeZone]];
    now = [NSCalendarDate date];
    [now setTimeZone:self->timeZone];
    
    self->year   = [now yearOfCommonEra];
    self->month  = [now monthOfYear];
    self->months = 1;
    
    self->showTitle      = YES;
    self->showWeekOfYear = NO;

    self->dayCellColor     = nil;
    self->noMonthCellColor = nil;
    self->todayCellColor   = nil;
  }
  return self;
}

#if !LIB_FOUNDATION_BOEHM_GC
- (void)dealloc {
  RELEASE(self->timeZone);
  RELEASE(self->date);
  [super dealloc];
}
#endif

// var accessors

- (void)setTimeZone:(NSTimeZone *)_tz {
  ASSIGN(self->timeZone,_tz);
}
- (NSTimeZone *)timeZone {
  return self->timeZone;
}
- (int)year {
  return self->year;
}
- (int)month {
  return self->month;
}
- (int)months {
  return self->months;
}
- (BOOL)showTitle {
  return self->showTitle;
}
- (BOOL)showWeekOfYear {
  return self->showWeekOfYear;
}

// internal
- (void)setMonthOffset:(int)_offs {
  self->monthOffset = _offs;
}
- (int)monthOffset {
  return self->monthOffset;
}

// somehow the WebObject cursor feature confuses the SkyMonthRepetition
// so this is here to leave cursor==component
- (void)setItem:(id)_item {}
- (id)item { return nil; }

- (void)setDayOfWeek:(int)_dow {
  self->dayOfWeek = _dow;
}
- (int)dayOfWeek {
  return self->dayOfWeek;
}
- (void)setWeekOfYear:(int)_woy {
  self->weekOfYear = _woy;
}
- (int)weekOfYear {
  return self->weekOfYear;
}

// additinal accessors

- (BOOL)synchronizesVariablesWithBindings {
  return NO;
}

- (NSArray *)monthsArray {
  NSMutableArray *ma = nil;
  int            cnt = 0;

  ma = [NSMutableArray array];
  for (cnt = 0; cnt < self->months; cnt++) {
    [ma addObject:[NSNumber numberWithInt:cnt]];
  }
  return ma;
}

- (int)currentMonth {
  int m = self->monthOffset + self->month;
  while (m > 12)
    m -= 12;
  return m;
}
- (int)currentYear {
  int m = self->monthOffset + self->month;
  int div = 0;
  while (m > 12) {
    div++;
    m -= 12;
  }
  return self->year + div;
}

- (void)setDate:(NSCalendarDate *)_date {
  ASSIGN(self->date,_date);
  [self setValue:_date forBinding:@"date"];
}
- (void)setIsInMonth:(BOOL)_flag {
  self->isInMonth = _flag;
  [self setValue:[NSNumber numberWithBool:_flag] forBinding:@"isInMonth"];
}

- (NSString *)monthLabel {
  static NSArray *ms = nil;
  NSString       *l  = nil;
  if (ms == nil)
    ms = [[NSArray alloc] initWithObjects:
                          @"January", @"February", @"March", @"April",
                          @"May", @"June", @"July", @"August",
                          @"September", @"October", @"November", @"December",
                          nil];
  l = [ms objectAtIndex:([self currentMonth] - 1)];
  l = [[self labels] valueForKey:l];
  l = [NSString stringWithFormat:@"%@ %i", l, [self currentYear]];
  return l;
}

- (NSString *)weekdayTitle {
  static NSArray *ds = nil;
  NSString       *l  = nil;
  if (ds == nil)
    ds = [[NSArray alloc] initWithObjects:
                          @"Sunday", @"Monday", @"Tuesday", @"Wednesday",
                          @"Thursday", @"Friday", @"Saturday", nil];
  l = [ds objectAtIndex:self->dayOfWeek];
  if (YES) // configuration possibility may come later (shortWeekdayTitles)
    l = [NSString stringWithFormat:@"short_%@",l];
  l = [[self labels] valueForKey:l];
  return l;
}

- (NSString *)cellColor {
  id c = [self config];
  if (!self->isInMonth)
    return [c valueForKey:@"colors_noMonthDayCell"];
  if ([self->date isToday])
    return [c valueForKey:@"colors_todayCell"];
  return [c valueForKey:@"colors_dayCell"];
}

// building page
- (void)appendToResponse:(WOResponse *)_response inContext:(WOContext *)_ctx {
  id val = nil;
  
  if ((val = [self valueForBinding:@"year"]))
    self->year = [val intValue];
  if ((val = [self valueForBinding:@"month"]))
    self->month = [val intValue];
  if ((val = [self valueForBinding:@"months"]))
    self->months = [val intValue];
  if ((val = [self valueForBinding:@"timeZone"]))
    [self setTimeZone:val];
  if ((val = [self valueForBinding:@"showTitle"]))
    self->showTitle = [val boolValue];
  if ((val = [self valueForBinding:@"showWeekOfYear"]))
    self->showWeekOfYear = [val boolValue];

  [super appendToResponse:_response inContext:_ctx];
}

// directAction support

- (int)yearForViewWeek {
  int m = [self currentMonth];
  int w = self->weekOfYear;
  
  if ((m == 1) && (w > 50))
    return [self currentYear] - 1;
  if ((m == 12) && (w < 30))
    return [self currentYear] + 1;
  return [self currentYear];
}
- (int)monthForViewWeek {
  return [self currentMonth];
}
- (int)weekForViewWeek {
  return self->weekOfYear;
}

@end