/*
 *    Mlclock is "Macintsh like clock" .
 *    Written by Hideki Kimata.
 *    Send Email to hideki@hry.info.gifu-u.ac.jp.
 *    Access to http://www.hry.info.gifu-u.ac.jp/~hideki/index.html
 */

#include <X11/Xlib.h>
#include <X11/Xlocale.h>
#include <X11/Xutil.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <sys/time.h>
#include <unistd.h>

#define VERSION "1.1"

#define TRUE 1
#define FALSE 0
#define NONE -1
#define MAX_FORM 1000

#ifndef RCFILE
#define RCFILE ".mlclockrc"
#endif

#define FOCUS 0
#define CLICK 1
#define DEFAULTFONT "-*-*-medium-r-normal--14-*"
#define NEAR 10
#define FORM1 "(%a)%p%l:%M:%S"
#define FORM2 "(%a)%Y.%b.%d"
#define DEFAULTLANG "C"

int  Mode;         /* timing of change form */
int  Near;         /* the distance of activity */
int  Head;         /* space of window head */
char *Form1;       /* display form of main */
char *Form2;       /* display form of second */
char *LocaleName;  /* locale name */
char *FSName;      /* font set name */
char *RCFile;      /* path of config file */
int  Color[2][3];  /* the color for font and background */
int  Bold = False; /* software bold font */

void SetFont(char *localename, Display *dpy, char *fsname);
void readrc();
void getRGB(char *color, int *store);
void usage(char *name);

Display    *dpy;
Window     win;
XEvent     eve;
XRectangle ink, logical;
GC         gc;
XFontSet   fs;
Colormap   cmap;

struct timeval wait;

int main(int argc, char **argv) {
  char   str[MAX_FORM], str2[MAX_FORM], *form = NULL;
  int    screen, sw = False, lsec = 0, uhead, width, height, i;
  struct tm *tmm;
  time_t tmt;

  Window       root, child;
  int          rootx, rooty, wx, wy;
  unsigned int key;
  XColor       xcol;
  XSizeHints   hint;
  int          iro[2];

  wait.tv_usec = 200000;
  wait.tv_sec = 0;

  str[0] = '\0';
  i = 1;
  while ( i < argc ) {
    if ( !strcmp("-display", argv[i]) ) {
      i++;
      if ( argc >= argc )
	      usage(argv[0]);
      strcpy(str, argv[i]);
      break;
    }
    usage(argv[0]);
  }

  dpy = XOpenDisplay(NULL);

  if ( dpy == NULL ) {
    fprintf(stderr, "Can't open display.\n");
    exit(0);
  }

  screen = DefaultScreen(dpy);
  gc = DefaultGC(dpy, screen);
  cmap = DefaultColormap(dpy, screen);

  readrc();

  if ( XSupportsLocale() == False )
    fprintf(stderr,"X does not support the locale\n");
  SetFont(LocaleName, dpy, FSName);

  XSetForeground(dpy, gc, BlackPixel(dpy, screen));
  setlocale(LC_TIME, LocaleName);

  time(&tmt);
  tmm = localtime(&tmt);
  tmm->tm_sec = 59;
  tmm->tm_min = 59;
  tmm->tm_hour = 23;
  tmm->tm_mday = 30;
  tmm->tm_yday = 365;

  strftime(str, MAX_FORM, Form1, tmm);
  XmbTextExtents(fs, str, strlen(str), &ink, &logical);
  width=logical.width;
  uhead = logical.y;
  height = logical.height;

  strftime(str, MAX_FORM, Form2, tmm);
  XmbTextExtents(fs, str, strlen(str), &ink, &logical);
  if ( width < logical.width )
    width = logical.width;
  if ( uhead < logical.y )
    uhead = logical.y;
  if ( height < logical.height )
    height = logical.height;

  xcol.flags = DoRed|DoGreen|DoBlue;
  for ( i = 0; i < 2; i++ ) {
    xcol.red =  Color[i][0];
    xcol.green = Color[i][1];
    xcol.blue = Color[i][2];
    if ( XAllocColor(dpy, cmap, &xcol) )
      iro[i] = xcol.pixel;
    else
      fprintf(stderr,"Can't allocate Color \n");
  }

  win = XCreateSimpleWindow(dpy, DefaultRootWindow(dpy),
			    0, 0, width + 3, height + Head + 2, 0, 
			    iro[0], iro[1]);

  hint.max_width  = hint.min_width  = width + 3;
  hint.max_height = hint.min_height = height + Head + 2;
  hint.flags = PMinSize | PMaxSize;
  XSetNormalHints(dpy, win, &hint);

  XSelectInput(dpy, win, ButtonReleaseMask);
  XStoreName(dpy, win, "mlclock");
  XSetForeground(dpy, gc, iro[0]);
  XSync(dpy, 0);
  XMapWindow(dpy, win);
  XSync(dpy, 0);

  str2[0] = '\0';
  form = Form1;
  while (1) {
    select(0, (fd_set *)0, (fd_set *)0, (fd_set *)0, &wait);

    time(&tmt);
    tmm = localtime(&tmt);

    if ( Mode == FOCUS ) {
      XQueryPointer(dpy, win, &root, &child, &rootx, &rooty, &wx, &wy, &key);
      if ( (-Near < wx) && (wx < width + Near) && 
	        (-Near < wy) && (wy < height + Near + Head) )
	      form = Form2;
      else
	      form = Form1;
    } else if ( Mode == CLICK ) {
	    if ( XEventsQueued(dpy, QueuedAfterFlush) ) {
	      XNextEvent(dpy, &eve);
	      if ( eve.type == ButtonRelease ) {
	        if ( !sw ) {
	          sw = True;
	          lsec = tmm->tm_sec;
	          form = Form2;
	        } else {
	          sw = False;
	          form = Form1;
	        }
	      }
	    }

	    if ( sw ) {
	      if ( tmm->tm_sec < lsec )
	        tmm->tm_sec += 60;
	      if ( tmm->tm_sec > lsec + 2 ) {
	        sw = False;
	        form = Form1;
	      }
	    }
    }

    strftime(str, sizeof(str), form, tmm);
    if ( strcmp(str, str2) ) {
      XClearWindow(dpy, win);
      XmbDrawString(dpy, win, fs, gc, 1, - uhead + Head + 1, str, strlen(str));
      if ( Bold )
	      XmbDrawString(dpy, win, fs, gc, 2, - uhead + Head + 1, str, strlen(str));
      XSync(dpy, 0);
      strcpy(str2, str);
    }
  }

  return 0;
}

void SetFont(char *localename, Display *dpy, char *fsname) {
  char **miss, *def;
  int  nMiss;

  if ( setlocale(LC_ALL, localename) == NULL )
    fprintf(stderr,"Can't set the locale\n");

  fs = XCreateFontSet(dpy, fsname, &miss, &nMiss, &def);
  if ( fs == NULL )
    fprintf(stderr,"Can't get fontset.\n");
}

void readrc() {
  int    i, end, len, sw1, cn = 0;
  char   string[501], work[201], code[100], data[100], *ptr;
  char   *fore, *back;
  struct _name {
    char name[10];
    int sw;
  };

  FILE   *file;

  struct _name N[] = {
    { "FORM1", 1 },
    { "FORM2", 2 },
    { "NEAR", 3 },
    { "EVENT", 4 },
    { "LOCALE", 5 },
    { "FONTSET", 6 },
    { "HEAD", 7 },
    { "FONTCOLOR", 8 },
    { "BACKCOLOR", 9 },
    { "BOLD", 10 },
    { "", 0 }
  };

  Mode = Near = Head = NONE;
  Form1 = Form2 = LocaleName = FSName = NULL;

  for ( i = 0; i < 3; i++ ) {
    Color[0][i] = 0;
    Color[1][i] = 0xffff;
  }

  RCFile = malloc(sizeof(RCFILE) + strlen(getenv("HOME")) + 3);
  sprintf(RCFile, "%s/%s", getenv("HOME"), RCFILE);

  if ( (file = fopen(RCFile, "r")) == NULL ) {
    fprintf(stderr, "Can't open \"%s\" file.\n", RCFile);
    fprintf(stderr, "Now making rc file '%s'.\n", RCFile);

    if ( (file = fopen(RCFile, "a")) == NULL )
      fprintf(stderr, "You can't make rc file in your own dirctory.\n");
    else {
      fprintf(file, "FORM1	= \"(%%a)%%l:%%M:%%S%%p\"\n");
      fprintf(file, "FORM2	= \"(%%a)%%b-%%d\"\n");
      fprintf(file, "EVENT	= FOCUS	; FOCUS or CLICK\n");
      fprintf(file, "NEAR	= 10\n");
      fprintf(file, "LOCALE	= \"C\"\n");
      fprintf(file, "FONTSET	= \"-*-*-medium-r-normal--12-*\"\n");
      fprintf(file, "HEAD	= 5\n");
      fprintf(file, "FONTCOLOR = \"blue\"\n");
      fprintf(file, "BACKCOLOR = \"white\"\n");
      fprintf(file, "BOLD = FALSE  ; TRUE or FALSE\n");
      fclose(file);
      fprintf(stderr, "Created %s file.\n", RCFile);
    }
  } else {
    while ( fgets(string, 500, file) ) {
      end = FALSE;
      i = 0;
      sw1 = False;
      while ( string[i] != ';' && string[i] != '\0' && string[i] != '\n' ) {
        if ( string[i] == '=' && sw1 == False ) {
	        string[i] = ' ';
	        sw1 = True;
        }
        work[i] = string[i];
        i++;
      }
      work[i] = '\0';

      if ( sw1 == False )
        continue;

      code[0] = '\0';
      data[0] = '\0';

      sscanf(work, "%s %s", code, data);
      if ( code[0] == '\0' )
        continue;

      i = 0;
      while ( True ) {
        if ( N[i].name[0] == '\0' ) {
	        cn = 0;
	        break;
        }
        if ( !strcmp(N[i].name, code) ) {
	        cn = N[i].sw;
	        break;
        }
        i++;
      }

      switch ( cn ) {
        case 1:
          len = strlen(data);
          Form1 = malloc(len);
          strcpy(Form1, &data[1]);
          Form1[len-2] = '\0';
          break;
        case 2:
          len = strlen(data);
          Form2 = malloc(len);
          strcpy(Form2, &data[1]);
          Form2[len-2] = '\0';
          break;
        case 3:
          Near = atoi(data);
          break;
        case 4:
          if ( !strcmp(data, "FOCUS") ) {
	          Mode = FOCUS;
	          break;
          }
          if ( !strcmp(data, "CLICK") ) {
	          Mode = CLICK;
	          break;
          }
          break;
        case 5:
          len = strlen(data);
          LocaleName = malloc(len);
          strcpy(LocaleName, &data[1]);
          LocaleName[len-2] = '\0';
          break;
        case 6:
          len = strlen(data);
          FSName = malloc(len);
          strcpy(FSName, &data[1]);
          FSName[len-2] = '\0';
          break;
        case 7:
          Head = atoi(data);
          break;
        case 8:
          len = strlen(data);
          fore = malloc(len);
          strcpy(fore, &data[1]);
          fore[len-2] = '\0';
          getRGB(fore, Color[0]);
          break;
        case 9:
          len = strlen(data);
          back = malloc(len);
          strcpy(back, &data[1]);
          back[len-2] = '\0';
          getRGB(back, Color[1]);
          break;
        case 10:
          if ( !strcmp(data, "TRUE") ) {
	          Bold = True;
	          break;
          }
          if ( !strcmp(data, "FALSE") ) {
	          Bold = False;
	          break;
          }
          break;
        default:
          break;
      }
    }
  }

  if ( Mode == NONE )
    Mode = FOCUS;
  if ( Near == NONE )
    Near = NEAR;
  if ( Head == NONE )
    Head = 0;
  if ( Form1 == NULL ) {
    Form1 = malloc(strlen(FORM1) + 1);
    strcpy(Form1, FORM1);
  }
  if ( Form2 == NULL ) {
    Form2 = malloc(strlen(FORM2) + 1);
    strcpy(Form2, FORM2);
  }
  if ( FSName == NULL ) {
    FSName = malloc(strlen(DEFAULTFONT) + 1);
    strcpy(FSName, DEFAULTFONT);
  }
  if ( LocaleName == NULL ) {
    ptr = getenv("LANG");
    if ( ptr == NULL )
      ptr = DEFAULTLANG;
    LocaleName = malloc(strlen(ptr) + 1);
    strcpy(LocaleName, ptr);
  }
}

void getRGB(char *color, int *store) {
  int    i;
  char   tmpcolor[3];
  XColor rgb, hard;

  if ( color[0] == '#' ) {
    color++;
    for ( i = 0; i < 3; i++ ) {
      strncpy(tmpcolor, color, 2);
      sscanf(tmpcolor, "%x", store);
      (*store) *= 256;
      color += 2;
    }
  }
  else {
    XLookupColor(dpy, cmap, color, &rgb, &hard);
    store[0] = hard.red;
    store[1] = hard.green;
    store[2] = hard.blue;
  }
}

void usage(char *name) {
  printf("%s: usage\n", name);
  printf("  -display      display name\n\n");
  printf(" Version %s\n", VERSION);
  printf(" Written by Hideki Kimata\n");
  printf(" EMail hideki@hry.info.gifu-u.ac.jp\n");
  printf(" Access to http://www.hry.info.gifu-u.ac.jp/~hideki/index.html\n");
  exit(0);
}