#!/usr/bin/env python
# -*- coding: utf-8 -*-

# Copyright 2008 Gary C. Martin

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

# This program 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 General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

# Activity web site: http://wiki.laptop.org/go/Moon
# Created: Febuary 2008
# Author: gary@garycmartin.com
# Home page: http://www.garycmartin.com/

#	Febrero 2012
# Correcciones, Simplificación y Reestructuración Modular:
# Desarrollo de CalendarButton + MoonCalendar:
# Instalador y Portado a gnome:
#	Flavio Danesse <fdanesse@gmail.com> CeibalJAM! - Uruguay - Activity Central
# Traducciones a Español:
# 	Ana Cichero <ana.cichero@gmail.com> CeibalJAM! - Uruguay

import os
import time
import calendar

import gi
from gi.repository import Gdk
from gettext import gettext as _

DIRECTORIO_BASE = os.path.dirname(__file__)
ICONOS = os.path.join(DIRECTORIO_BASE, "Iconos/")

format = "%Y-%m-%d %H:%M"
LOCALE_DATE_FORMAT = _("%c")
WIDTH, HEIGHT = (800, 600)
SECONDS_PER_DAY = 86400.0

BLACK = Gdk.Color(0, 0, 0)
WHITE = Gdk.Color(65535, 65535, 65535)
GREY = Gdk.Color(60156, 60156, 60156)
BLUEGREENMASK = Gdk.Color(0, 65535, 30000)
RED = Gdk.Color(65535, 0, 0)
BLUE = Gdk.Color(0, 65535, 65535)

FOREGROUND = WHITE
BACKGROUND = BLACK

new_moon_array = ("2008-01-08 11:37_", "2008-02-07 03:44A", "2008-03-07 17:14_",
"2008-04-06 03:55_", "2008-05-05 12:18_", "2008-06-03 19:23_", "2008-07-03 02:19_",
"2008-08-01 10:13T", "2008-08-30 19:58_", "2008-09-29 08:12_", "2008-10-28 23:14_",
"2008-11-27 16:55_", "2008-12-27 12:23_",

"2009-01-26 07:55A", "2009-02-25 01:35_", "2009-03-26 16:06_", "2009-04-25 03:23_",
"2009-05-24 12:11_", "2009-06-22 19:35_", "2009-07-22 02:35T", "2009-08-20 10:01_",
"2009-09-18 18:44_", "2009-10-18 05:33_", "2009-11-16 19:14_", "2009-12-16 12:02_",

"2010-01-15 07:11A", "2010-02-14 02:51_", "2010-03-15 21:01_", "2010-04-14 12:29_",
"2010-05-14 01:04_", "2010-06-12 11:15_", "2010-07-11 19:40T", "2010-08-10 03:08_",
"2010-09-08 10:30_", "2010-10-07 18:44_", "2010-11-06 04:52_", "2010-12-05 17:36_",

"2011-01-04 09:03P", "2011-02-03 02:31_", "2011-03-04 20:46_", "2011-04-03 14:32_",
"2011-05-03 06:51_", "2011-06-01 21:03P", "2011-07-01 08:54P", "2011-07-30 18:40_",
"2011-08-29 03:04_", "2011-09-27 11:09_", "2011-10-26 19:56_", "2011-11-25 06:10P",
"2011-12-24 18:06_",

"2012-01-23 07:39_", "2012-02-21 22:35_", "2012-03-22 14:37_", "2012-04-21 07:18_",
"2012-05-20 23:47A", "2012-06-19 15:02_", "2012-07-19 04:24_", "2012-08-17 15:54_",
"2012-09-16 02:11_", "2012-10-15 12:02_", "2012-11-13 22:08T", "2012-12-13 08:42_",

"2013-01-11 19:44_", "2013-02-10 07:20_", "2013-03-11 19:51_", "2013-04-10 09:35_",
"2013-05-10 00:29A", "2013-06-08 15:56_", "2013-07-08 07:14_", "2013-08-06 21:51_",
"2013-09-05 11:36_", "2013-10-05 00:35_", "2013-11-03 12:50H", "2013-12-03 00:22_",

"2014-01-01 11:14_", "2014-01-30 21:39_", "2014-03-01 08:00_", "2014-03-30 18:45_",
"2014-04-29 06:14A", "2014-05-28 18:40_", "2014-06-27 08:09_", "2014-07-26 22:42_",
"2014-08-25 14:13_", "2014-09-24 06:14_", "2014-10-23 21:57P", "2014-11-22 12:32_",
"2014-12-22 01:36_",

"2015-01-20 13:14_", "2015-02-18 23:47_", "2015-03-20 09:36T", "2015-04-18 18:57_",
"2015-05-18 04:13_", "2015-06-16 14:05_", "2015-07-16 01:24_", "2015-08-14 14:54_",
"2015-09-13 06:41P", "2015-10-13 00:06_", "2015-11-11 17:47_", "2015-12-11 10:29_",
    
"2016-01-10 01:30_", "2016-02-08 14:39_", "2016-03-09 01:54T", "2016-04-07 11:24_",
"2016-05-06 19:30_", "2016-06-05 03:00_", "2016-07-04 11:01_", "2016-08-02 20:45_",
"2016-09-01 09:03A", "2016-10-01 00:12_", "2016-10-30 17:38_", "2016-11-29 12:18_",
"2016-12-29 06:53_",

"2017-01-28 00:07_", "2017-02-26 14:58A", "2017-03-28 02:57_", "2017-04-26 12:16_",
"2017-05-25 19:44_", "2017-06-24 02:31_", "2017-07-23 09:46_", "2017-08-21 18:30T",
"2017-09-20 05:30_", "2017-10-19 19:12_", "2017-11-18 11:42_", "2017-12-18 06:31_",

"2018-01-17 02:17_", "2018-02-15 21:05P", "2018-03-17 13:12_", "2018-04-16 01:57_",
"2018-05-15 11:48_", "2018-06-13 19:43_", "2018-07-13 02:48P", "2018-08-11 09:58P",
"2018-09-09 18:01_", "2018-10-09 03:47_", "2018-11-07 16:02_", "2018-12-07 07:20_")

# Luna Llena 2008 - 2018
full_moon_array = ("2008-01-22 13:35_", "2008-02-21 03:31t", "2008-03-21 18:40_",
"2008-04-20 10:25_", "2008-05-20 02:11_", "2008-06-18 17:30_", "2008-07-18 07:59_",
"2008-08-16 21:16p", "2008-09-15 09:13_", "2008-10-14 20:03_", "2008-11-13 06:17_",
"2008-12-12 16:37_",

"2009-01-11 03:27_", "2009-02-09 14:49n", "2009-03-11 02:38_", "2009-04-09 14:56_",
"2009-05-09 04:01_", "2009-06-07 18:12_", "2009-07-07 09:21n", "2009-08-06 00:55n",
"2009-09-04 16:03_", "2009-10-04 06:10_", "2009-11-02 19:14_", "2009-12-02 07:30_",
"2009-12-31 19:13p",

"2010-01-30 06:18_", "2010-02-28 16:38_", "2010-03-30 02:25_", "2010-04-28 12:18_",
"2010-05-27 23:07_", "2010-06-26 11:30p", "2010-07-26 01:37_", "2010-08-24 17:05_",
"2010-09-23 09:17_", "2010-10-23 01:36_", "2010-11-21 17:27_", "2010-12-21 08:13t",

"2011-01-19 21:21_", "2011-02-18 08:36_", "2011-03-19 18:10_", "2011-04-18 02:44_",
"2011-05-17 11:09_", "2011-06-15 20:13t", "2011-07-15 06:40_", "2011-08-13 18:58_",
"2011-09-12 09:27_", "2011-10-12 02:06_", "2011-11-10 20:16_", "2011-12-10 14:36t",

"2012-01-09 07:30_", "2012-02-07 21:54_", "2012-03-08 09:40_", "2012-04-06 19:19_",
"2012-05-06 03:35_", "2012-06-04 11:12p", "2012-07-03 18:52_", "2012-08-02 03:27_",
"2012-08-31 13:58_", "2012-09-30 03:19_", "2012-10-29 19:50_", "2012-11-28 14:46n",
"2012-12-28 10:21_",

"2013-01-27 04:38_", "2013-02-25 20:26_", "2013-03-27 09:27_", "2013-04-25 19:57p",
"2013-05-25 04:25n", "2013-06-23 11:32_", "2013-07-22 18:15_", "2013-08-21 01:45_",
"2013-09-19 11:13_", "2013-10-18 23:38n", "2013-11-17 15:16_", "2013-12-17 09:28_",

"2014-01-16 04:52_", "2014-02-14 23:53_", "2014-03-16 17:09_", "2014-04-15 07:42t",
"2014-05-14 19:16_", "2014-06-13 04:11_", "2014-07-12 11:25_", "2014-08-10 18:09_",
"2014-09-09 01:38_", "2014-10-08 10:51t", "2014-11-06 22:23_", "2014-12-06 12:27_",

"2015-01-05 04:53_", "2015-02-03 23:09_", "2015-03-05 18:06_", "2015-04-04 12:06p",
"2015-05-04 03:42_", "2015-06-02 16:19_", "2015-07-02 02:20_", "2015-07-31 10:43_",
"2015-08-29 18:35_", "2015-09-28 02:50t", "2015-10-27 12:05_", "2015-11-25 22:44_",
"2015-12-25 11:11_",

"2016-01-24 01:46_", "2016-02-22 18:20_", "2016-03-23 12:01n", "2016-04-22 05:24_",
"2016-05-21 21:15_", "2016-06-20 11:02_", "2016-07-19 22:57_", "2016-08-18 09:27_",
"2016-09-16 19:05n", "2016-10-16 04:23_", "2016-11-14 13:52_", "2016-12-14 00:06_",

"2017-01-12 11:34_", "2017-02-11 00:33n", "2017-03-12 14:54_", "2017-04-11 06:08_",
"2017-05-10 21:43_", "2017-06-09 13:10_", "2017-07-09 04:07_", "2017-08-07 18:11p",
"2017-09-06 07:03_", "2017-10-05 18:40_", "2017-11-04 05:23_", "2017-12-03 15:47_",

"2018-01-02 02:24_", "2018-01-31 13:27t", "2018-03-02 00:51_", "2018-03-31 12:37_",
"2018-04-30 00:58_", "2018-05-29 14:20_", "2018-06-28 04:53_", "2018-07-27 20:20t",
"2018-08-26 11:56_", "2018-09-25 02:53_", "2018-10-24 16:45_", "2018-11-23 05:39_",
"2018-12-22 17:49_")

# Cuarto Creciente
first_quarter_array = ("2008-01-15 19:46", "2008-02-14 03:34", "2008-03-14 10:46",
"2008-04-12 18:32", "2008-05-12 03:47", "2008-06-10 15:04", "2008-07-10 04:35",
"2008-08-08 20:20", "2008-09-07 14:04", "2008-10-07 09:04", "2008-11-06 04:04",
"2008-12-05 21:26",

"2009-01-04 11:56", "2009-02-02 23:13", "2009-03-04 07:46", "2009-04-02 14:34",
"2009-05-01 20:44", "2009-05-31 03:22", "2009-06-29 11:28", "2009-07-28 22:00",
"2009-08-27 11:42", "2009-09-26 04:50", "2009-10-26 00:42", "2009-11-24 21:39",
"2009-12-24 17:36",

"2010-01-23 10:53", "2010-02-22 00:42", "2010-03-23 11:00", "2010-04-21 18:20",
"2010-05-20 23:43", "2010-06-19 04:30", "2010-07-18 10:11", "2010-08-16 18:14",
"2010-09-15 05:50", "2010-10-14 21:27", "2010-11-13 16:39", "2010-12-13 13:59",

"2011-01-12 11:31", "2011-02-11 07:18", "2011-03-12 23:45", "2011-04-11 12:05",
"2011-05-10 20:33", "2011-06-09 02:11", "2011-07-08 06:29", "2011-08-06 11:08",
"2011-09-04 17:39", "2011-10-04 03:15", "2011-11-02 16:38", "2011-12-02 09:52",

"2012-01-01 06:15", "2012-01-31 04:10", "2012-03-01 01:22", "2012-03-30 19:41",
"2012-04-29 09:58", "2012-05-28 20:16", "2012-06-27 03:30", "2012-07-26 08:56",
"2012-08-24 13:54", "2012-09-22 19:41", "2012-10-22 03:32", "2012-11-20 14:31",
"2012-12-20 05:19",

"2013-01-18 23:45", "2013-02-17 20:31", "2013-03-19 17:27", "2013-04-18 12:31",
"2013-05-18 04:35", "2013-06-16 17:24", "2013-07-16 03:18", "2013-08-14 10:56",
"2013-09-12 17:08", "2013-10-11 23:02", "2013-11-10 05:57", "2013-12-09 15:12",

"2014-01-08 03:39", "2014-02-06 19:22", "2014-03-08 13:27", "2014-04-07 08:31",
"2014-05-07 03:15", "2014-06-05 20:39", "2014-07-05 11:59", "2014-08-04 00:50",
"2014-09-02 11:11", "2014-10-01 19:33", "2014-10-31 02:48", "2014-11-29 10:06",
"2014-12-28 18:31",

"2015-01-27 04:48", "2015-02-25 17:14", "2015-03-27 07:43", "2015-04-25 23:55",
"2015-05-25 17:19", "2015-06-24 11:03", "2015-07-24 04:04", "2015-08-22 19:31",
"2015-09-21 08:59", "2015-10-20 20:31", "2015-11-19 06:27", "2015-12-18 15:14",

"2016-01-16 23:26", "2016-02-15 07:46", "2016-03-15 17:03", "2016-04-14 03:59",
"2016-05-13 17:02", "2016-06-12 08:10", "2016-07-12 00:52", "2016-08-10 18:21",
"2016-09-09 11:49", "2016-10-09 04:33", "2016-11-07 19:51", "2016-12-07 09:03",

"2017-01-05 19:47", "2017-02-04 04:19", "2017-03-05 11:32", "2017-04-03 18:39",
"2017-05-03 02:47", "2017-06-01 12:42", "2017-07-01 00:51", "2017-07-30 15:23",
"2017-08-29 08:13", "2017-09-28 02:54", "2017-10-27 22:22", "2017-11-26 17:03",
"2017-12-26 09:20",

"2018-01-24 22:20", "2018-02-23 08:09", "2018-03-24 15:35", "2018-04-22 21:46",
"2018-05-22 03:49", "2018-06-20 10:51", "2018-07-19 19:52", "2018-08-18 07:49",
"2018-09-16 23:15", "2018-10-16 18:02", "2018-11-15 14:54", "2018-12-15 11:49")

# Cuarto Menguante
last_quarter_array = ("2008-01-30 05:03", "2008-02-29 02:18", "2008-03-29 21:47",
"2008-04-28 14:12", "2008-05-28 02:57", "2008-06-26 12:10", "2008-07-25 18:42",
"2008-08-23 23:50", "2008-09-22 05:04", "2008-10-21 11:55", "2008-11-19 21:31",
"2008-12-19 10:29",

"2009-01-18 02:46", "2009-02-16 21:37", "2009-03-18 17:47", "2009-04-17 13:36",
"2009-05-17 07:26", "2009-06-15 22:15", "2009-07-15 09:53", "2009-08-13 18:55",
"2009-09-12 02:16", "2009-10-11 08:56", "2009-11-09 15:56", "2009-12-09 00:13",

"2010-01-07 10:40", "2010-02-05 23:49", "2010-03-07 15:42", "2010-04-06 09:37",
"2010-05-06 04:15", "2010-06-04 22:13", "2010-07-04 14:35", "2010-08-03 04:59",
"2010-09-01 17:22", "2010-10-01 03:52", "2010-10-30 12:46", "2010-11-28 20:36",
"2010-12-28 04:18",

"2011-01-26 12:57", "2011-02-24 23:26", "2011-03-26 12:07", "2011-04-25 02:47",
"2011-05-24 18:52", "2011-06-23 11:48", "2011-07-23 05:02", "2011-08-21 21:55",
"2011-09-20 13:39", "2011-10-20 03:30", "2011-11-18 15:09", "2011-12-18 00:48",

"2012-01-16 09:08", "2012-02-14 17:04", "2012-03-15 01:25", "2012-04-13 10:50",
"2012-05-12 21:47", "2012-06-11 10:41", "2012-07-11 01:48", "2012-08-09 18:55",
"2012-09-08 13:15", "2012-10-08 07:33", "2012-11-07 00:36", "2012-12-06 15:32",

"2013-01-05 03:58", "2013-02-03 13:56", "2013-03-04 21:53", "2013-04-03 04:37",
"2013-05-02 11:14", "2013-05-31 18:58", "2013-06-30 04:54", "2013-07-29 17:43",
"2013-08-28 09:35", "2013-09-27 03:56", "2013-10-26 23:41", "2013-11-25 19:28",
"2013-12-25 13:48",

"2014-01-24 05:19", "2014-02-22 17:15", "2014-03-24 01:46", "2014-04-22 07:52",
"2014-05-21 12:59", "2014-06-19 18:39", "2014-07-19 02:08", "2014-08-17 12:26",
"2014-09-16 02:05", "2014-10-15 19:12", "2014-11-14 15:16", "2014-12-14 12:51",

"2015-01-13 09:47", "2015-02-12 03:50", "2015-03-13 17:48", "2015-04-12 03:44",
"2015-05-11 10:36", "2015-06-09 15:42", "2015-07-08 20:24", "2015-08-07 02:03",
"2015-09-05 09:54", "2015-10-04 21:06", "2015-11-03 12:24", "2015-12-03 07:40",

"2016-01-02 05:30", "2016-02-01 03:28", "2016-03-01 23:11", "2016-03-31 15:17",
"2016-04-30 03:29", "2016-05-29 12:12", "2016-06-27 18:19", "2016-07-26 23:00",
"2016-08-25 03:41", "2016-09-23 09:56", "2016-10-22 19:14", "2016-11-21 08:33",
"2016-12-21 01:56",

"2017-01-19 22:14", "2017-02-18 19:33", "2017-03-20 15:58", "2017-04-19 09:57",
"2017-05-19 00:33", "2017-06-17 11:33", "2017-07-16 19:26", "2017-08-15 01:15",
"2017-09-13 06:25", "2017-10-12 12:25", "2017-11-10 20:37", "2017-12-10 07:51",

"2018-01-08 22:25", "2018-02-07 15:54", "2018-03-09 11:20", "2018-04-08 07:18",
"2018-05-08 02:09", "2018-06-06 18:32", "2018-07-06 07:51", "2018-08-04 18:18",
"2018-09-03 02:37", "2018-10-02 09:45", "2018-10-31 16:40", "2018-11-30 00:19",
"2018-12-29 09:34")

def next_full_moon_sec_at_time(now):
    # Return seconds to the next Full Moon.
    for date_string in full_moon_array:
        next = time.mktime(time.strptime(date_string[:-1], format))
        if next >= now:
            break
    return next - now

def next_new_moon_sec_at_time(now):
    # Return seconds to the next New Moon.
    for date_string in new_moon_array:
        next = time.mktime(time.strptime(date_string[:-1], format))
        if next >= now:
            break
    return next - now

def next_quarter_moon_sec_at_time(now):
    # Return seconds to the next Quater Moon phase (could be First or Last).
    for date_string in first_quarter_array:
        next1 = time.mktime(time.strptime(date_string, format))
        if next1 >= now:
            break
    for date_string in last_quarter_array:
        next2 = time.mktime(time.strptime(date_string, format))
        if next2 >= now:
            break
    next = min(next1, next2)
    return next - now

def last_full_moon_sec_at_time(now):
    # Return (positive) seconds since the last Full Moon.
    for date_string in full_moon_array:
        then = time.mktime(time.strptime(date_string[:-1], format))
        if then >= now:
            break
        last = then
    return now - last

def last_new_moon_sec_at_time(now):
    # Return (positive) seconds since the last New Moon.
    for date_string in new_moon_array:
        then = time.mktime(time.strptime(date_string[:-1], format))
        if then >= now:
            break
        last = then
    return now - last

def last_quarter_moon_sec_at_time(now):
    # Return (positive) seconds to the last Quater Moon phase (could be First or Last).
    for date_string in first_quarter_array:
        then = time.mktime(time.strptime(date_string, format))
        if then >= now:
            break
        last1 = then
    for date_string in last_quarter_array:
        then = time.mktime(time.strptime(date_string, format))
        if then >= now:
            break
        last2 = then
    last = max(last1, last2)
    return now - last

def lunation_at_time(now):
    # Return lunation number, 0 started on Dec 18, 1922, current data set starts as 2008
    lunation = 1051
    for date_string in new_moon_array:
        next = time.mktime(time.strptime(date_string[:-1], format))
        if next >= now:
            break
        lunation += 1
    return lunation

def next_lunar_eclipse_sec_at_time(now):
    # Return (positive) seconds to the next Lunar eclipe or -1.
    for date_string in full_moon_array:
        if date_string[-1:] != "_":
            next = time.mktime(time.strptime(date_string[:-1], format))
            if next >= now:
                return next - now
    return -1

def last_lunar_eclipse_sec_at_time(now):
    # Return (positive) seconds to the last Lunar eclipe or -1.
    last = -1
    for date_string in full_moon_array:
        if date_string[-1:] != "_":
            then = time.mktime(time.strptime(date_string[:-1], format))
            if then >= now:
                break
            last = then
    if last == -1:
        return -1
    else:
        return now - last

def next_solar_eclipse_sec_at_time(now):
    # Return (positive) seconds to the next Solar eclipe or -1.
    for date_string in new_moon_array:
        if date_string[-1:] != "_":
            next = time.mktime(time.strptime(date_string[:-1], format))
            if next >= now:
                return next - now
    return -1

def correct_for_tz_and_dst(date_sec_of_event):
    # Time-zone and/or daylight-saving correction (internal data is UTC).
    if time.daylight == 0 or time.localtime(date_sec_of_event)[8] == 0:
        # Time-zone correction
        return time.timezone
    else:
        # Time-zone & daylight saving correction
        return time.altzone

def RecalcularFase(the_date):
    # Una fecha representada en segundos. Ejem:
    # format = "%Y-%m-%d %H:%M"
    # fecha = time.mktime(time.strptime("2012-06-21 15:00", format))
    last_new_moon_sec = last_new_moon_sec_at_time(the_date)
    next_new_moon_sec = next_new_moon_sec_at_time(the_date)
    last_full_moon_sec = last_full_moon_sec_at_time(the_date)
    next_full_moon_sec = next_full_moon_sec_at_time(the_date)
    last_quarter_moon_sec = last_quarter_moon_sec_at_time(the_date)
    next_quarter_moon_sec = next_quarter_moon_sec_at_time(the_date)
    phase_of_moon = None
    
    # Calculate phase percent of Moon based on nearest two data values
    if next_full_moon_sec <= next_new_moon_sec:
        if next_quarter_moon_sec <= next_full_moon_sec:
            phase_of_moon = (last_new_moon_sec / (last_new_moon_sec + next_quarter_moon_sec)) * 0.25
            
        else:
            phase_of_moon = (last_quarter_moon_sec / (last_quarter_moon_sec + next_full_moon_sec)) * 0.25 + 0.25
            
    else:
        if next_quarter_moon_sec <= next_new_moon_sec:
            phase_of_moon = (last_full_moon_sec / (last_full_moon_sec + next_quarter_moon_sec)) * 0.25 + 0.5
            
        else:
            phase_of_moon = (last_quarter_moon_sec / (last_quarter_moon_sec + next_new_moon_sec)) * 0.25 + 0.75
            
    return phase_of_moon

def get_date_time():
    # Devolución tipo: Lunes 5 de Febrero de 2012
    dias= []
    
    for d in calendar.day_name:
        if d: dias.append(d)
        
    meses= []
    
    for m in calendar.month_name:
        if m: meses.append(m)
        
    t= time.localtime()
    anio= t.tm_year
    mes= meses[t.tm_mon -1]
    fecha= t.tm_mday
    dia= dias[t.tm_wday]#[t.tm_wday -1]
    hora= t.tm_hour
    minutos= t.tm_min
    segundos= t.tm_sec
    fecha= "%s %s de %s de %s" % (dia, fecha, mes, anio)
    hora= "%s:%s:%s" % (hora, minutos, segundos)
    return "%s %s" % (fecha, hora)

def get_date_time_now():
    
    # Devolución tipo: año, mes, dia, hora (hora es string, los demás son enteros)
    t= time.localtime()
    anio= t.tm_year
    mes = t.tm_mon
    fecha= t.tm_mday
    hora= t.tm_hour
    minutos= t.tm_min
    hora= "%s:%s" % (hora, minutos)
    return (anio, mes, fecha, hora)

def get_semanas_del_mes(anio, mes):
    
    # Devuelve una lista de semanas.
    # Cada semana es una lista con las fechas del mes que le corresponde.
    # Cada semana comienza en lunes.
    # Las fechas 0 corresponden al mes pasado o al siguiente.
    calendario= calendar.Calendar()
    semanas= calendario.monthdayscalendar(anio, mes)
    return semanas