awesome/calendar/calendar.lua

176 lines
5.9 KiB
Lua
Raw Normal View History

2021-04-03 13:26:28 +02:00
-- 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
-- also modified by tforgione for it to work in french
-- captures
local os = os
local capi = {
mouse = mouse,
screen = screen,
}
local awful = require("awful")
local naughty = require("naughty")
local version_major, version_minor = awesome.version:match("(%d+)%.(%d+)")
version_major = tonumber(version_major)
version_minor = tonumber(version_minor)
local can_update_size = version_major and version_minor and version_major >= 4 and version_minor >= 2
------------------------------------------
-- utility functions
------------------------------------------
local function format_date(format, date)
return os.date(format, os.time(date))
end
------------------------------------------
-- calendar popup widget
------------------------------------------
local calendar = {}
function calendar:new(args)
return setmetatable({}, {__index = self}):init(args)
end
function calendar:init(args)
self.num_lines = 0
self.today_color = args.today_color or "#00ff00"
-- first day of week: monday=1, …, sunday=7
self.fdow = args.fdow or 1
-- notification area:
self.html = args.html or '<span font_desc="monospace">\n%s</span>'
-- highlight current date:
self.today = args.today or '<b><span color="' .. self.today_color .. '">%2i</span></b>'
self.anyday = args.anyday or '%2i'
self.page_title = args.page_title or '%B %Y' -- month year
self.col_title = args.col_title or '%a ' -- weekday
-- Date equality check is based on day_id. We deliberately ignore the year
-- to highlight the same day in different years:
self.day_id = args.day_id or '%m-%d'
self.empty_sep = args.empty_sep or " -"
self.week_col = args.week_col or " %V"
self.days_style = args.days_style or {}
self.position = args.position or naughty.config.defaults.position
return self
end
function calendar:day_style(day_of_week)
return self.days_style[day_of_week] or '%s'
end
function calendar:page(month, year)
local today = format_date(self.day_id)
-- 2001 started with a monday:
local d0 = format_date("*t", {year=2001, month=1, day=self.fdow })
local dA = format_date("*t", {year=year, month=month, day=1 })
local dB = format_date("*t", {year=year, month=month+1, day=0 })
local tA = {year=year, month=month, day=1 }
local colA = (dA.wday - d0.wday) % 7
local page_title = format_date(self.page_title, tA)
-- print column titles (weekday)
local page = " "
for d = 0, 6 do
page = page .. self:day_style(d+1):format(format_date(self.col_title, {
year = d0.year,
month = d0.month,
day = d0.day + d,
}))
end
-- print empty space before first day
page = page .. "\n" .. format_date(self.week_col, tA)
for column = 1, colA do
page = page .. self.empty_sep
end
-- iterate all days of the month
local nLines = 1
local column = colA
for day = 1, dB.day do
if column == 7 then
column = 0
nLines = nLines + 1
page = page .. "\n" .. format_date(self.week_col, {year=year, month=month, day=day})
end
if today == format_date(self.day_id, {day=day, month=month, year=year}) then
page = page .. " " .. self.today:format(day)
else
page = page .. " " .. self:day_style(column+1):format(self.anyday:format(day))
end
column = column + 1
end
for column = column, 6 do
page = page .. self.empty_sep
end
return page_title, self.html:format(page)
end
function calendar:switch(months)
self:show(self.year, self.month+months)
end
function calendar:show(year, month)
local today = os.time()
self.month = month or os.date('%m', today)
self.year = year or os.date('%Y', today)
local title, text = self:page(self.month, self.year)
-- NOTE: `naughty.replace_text` does not update bounds and can therefore
-- not be used when the size increases (before #1756 was merged):
local num_lines = select(2, text:gsub('\n', ''))
local will_fit = can_update_size or num_lines <= self.num_lines
if naughty.replace_text and self.notification and will_fit then
naughty.replace_text(self.notification, title, text)
else
self:hide()
self.notification = naughty.notify({
title = title,
text = text,
timeout = 0,
hover_timeout = 0.5,
screen = capi.mouse.screen,
position = self.position,
})
self.num_lines = num_lines
end
end
function calendar:hide()
if self.notification then
naughty.destroy(self.notification)
self.notification = nil
self.num_lines = 0
end
end
function calendar:attach(widget)
widget:connect_signal('mouse::enter', function() self:show() end)
widget:connect_signal('mouse::leave', function() self:hide() end)
widget:buttons(awful.util.table.join(
awful.button({ }, 1, function() self:switch( -1) end),
awful.button({ }, 3, function() self:switch( 1) end),
awful.button({ }, 4, function() self:switch( -1) end),
awful.button({ }, 5, function() self:switch( 1) end),
awful.button({ 'Shift' }, 1, function() self:switch(-12) end),
awful.button({ 'Shift' }, 3, function() self:switch( 12) end),
awful.button({ 'Shift' }, 4, function() self:switch(-12) end),
awful.button({ 'Shift' }, 5, function() self:switch( 12) end)
))
end
return setmetatable(calendar, {
__call = calendar.new,
})