awesome/calendar2.lua

    -- original code made by Bzed and published on http://awesome.naquadah.org/wiki/Calendar_widget
    -- modified by Marc Dequènes (Duck) <Duck@DuckCorp.org> (2009-12-29), under the same licence,
    -- and with the following changes:
    --   + transformed to module
    --   + the current day formating is customizable

    local string = string
    --local print = print
    local tostring = tostring
    local os = os
    local capi = {
        mouse = mouse,
        screen = screen
    }
    local awful = require("awful")
    local naughty = require("naughty")
    module("calendar2")

    local calendar = {}
    local current_day_format = "<u>%s</u>"

    function displayMonth(month,year,weekStart)
            local t,wkSt=os.time{year=year, month=month+1, day=0},weekStart or 1
            local d=os.date("*t",t)
            local mthDays,stDay=d.day,(d.wday-d.day-wkSt+1)%7

            --print(mthDays .."\n" .. stDay)
            local lines = "   " --интервал перед днями неделями
            os.setlocale("ru_RU.utf8")
            for x=0,6 do
                    lines = lines .. os.date("%a   ",os.time{year=2006,month=1,day=x+wkSt})
            end
           lines = lines .. "\n"-- .. os.date(" %V",os.time{year=year,month=month,day=1}) --Убираем номер недели

            local writeLine = 1
            while writeLine < (stDay + 1) do
                    lines = lines .. "     " --интервал перед первым числом, если оно не в начале недели
                    writeLine = writeLine + 1
            end

            for d=1,mthDays do
                    local x = d
                    local t = os.time{year=year,month=month,day=d}
                    if writeLine == 8 then
                            writeLine = 1
                            lines = lines .. "\n"-- .. os.date(" %V",t) --убираем номер недели
                    end
                    if os.date("%Y-%m-%d") == os.date("%Y-%m-%d", t) then
                            x = string.format(current_day_format, d)
                    end
                    if (#(tostring(d)) == 1) then
                            x = " " .. x --выравнивание между одно и двухзначными цифрами
                    end
                    lines = lines .. "   " .. x --интервал между числами
                    writeLine = writeLine + 1
            end
            local header = os.date("%B %Y\n",os.time{year=year,month=month,day=1})
            header = "          " .. header --выравниваем месяц и год по центру
            return header .. "\n" .. lines
    end

    function switchNaughtyMonth(switchMonths)
            if (#calendar < 3) then return end
            local swMonths = switchMonths or 1
            calendar[1] = calendar[1] + swMonths
            calendar[3].box.widgets[2].text = string.format('<span font_desc="%s">%s</span>', "monospace", displayMonth(calendar[1], calendar[2], 2))
    end

    function switchNaughtyGoToToday()
            if (#calendar < 3) then return end
            local swMonths = switchMonths or 1
            calendar[1] = os.date("*t").month
            calendar[2] = os.date("*t").year
           switchNaughtyMonth(0)
    end

    function addCalendarToWidget(mywidget, custom_current_day_format)
      if custom_current_day_format then current_day_format = custom_current_day_format end

      mywidget:add_signal('mouse::enter', function ()
            local month, year = os.date('%m'), os.date('%Y')
            calendar = { month, year,
            naughty.notify({
                    text = string.format('<span font_desc="%s">%s</span>', "monospace", displayMonth(month, year, 2)),
                    timeout = 0,
                    hover_timeout = 0.5,
                    screen = capi.mouse.screen
            })
      }
      end)
      mywidget:add_signal('mouse::leave', function () naughty.destroy(calendar[3]) end)

      mywidget:buttons(awful.util.table.join(
        awful.button({ }, 1, function()
            switchNaughtyMonth(-1)
        end),
        awful.button({ }, 2, switchNaughtyGoToToday),
        awful.button({ }, 3, function()
            switchNaughtyMonth(1)
        end),
        awful.button({ }, 4, function()
            switchNaughtyMonth(-1)
        end),
        awful.button({ }, 5, function()
            switchNaughtyMonth(1)
        end),
        awful.button({ 'Shift' }, 1, function()
            switchNaughtyMonth(-12)
        end),
        awful.button({ 'Shift' }, 3, function()
            switchNaughtyMonth(12)
        end),
        awful.button({ 'Shift' }, 4, function()
            switchNaughtyMonth(-12)
        end),
        awful.button({ 'Shift' }, 5, function()
            switchNaughtyMonth(12)
        end)
      ))
    end