From 551561b94a7d594a12ba8114f57d8f3ef6d1db71 Mon Sep 17 00:00:00 2001
From: Kaarle Ritvanen <kaarle.ritvanen@datakunkku.fi>
Date: Sun, 2 Feb 2014 00:14:58 +0200
Subject: date and time fields

---
 acf2/model/init.lua |  1 +
 acf2/model/time.lua | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 64 insertions(+)
 create mode 100644 acf2/model/time.lua

(limited to 'acf2/model')

diff --git a/acf2/model/init.lua b/acf2/model/init.lua
index b614c6b..bc0dc47 100644
--- a/acf2/model/init.lua
+++ b/acf2/model/init.lua
@@ -49,6 +49,7 @@ M.permission = require('acf2.model.permission')
 M.register = require('acf2.model.root').register
 M.service = require('acf2.model.service')
 M.node.Set = require('acf2.model.set').Set
+M.time = require('acf2.model.time')
 
 local object = require('acf2.object')
 local class = object.class
diff --git a/acf2/model/time.lua b/acf2/model/time.lua
new file mode 100644
index 0000000..5630e38
--- /dev/null
+++ b/acf2/model/time.lua
@@ -0,0 +1,63 @@
+--[[
+Copyright (c) 2012-2014 Kaarle Ritvanen
+See LICENSE file for license details
+--]]
+
+local M = {}
+
+local raise = require('acf2.error').raise
+
+local object = require('acf2.object')
+local class = object.class
+local super = object.super
+
+
+local posix = require('posix')
+
+
+M.Timestamp = class(require('acf2.model.field').String)
+M.Date = class(M.Timestamp)
+M.Time = class(M.Timestamp)
+
+M.Date.format = '%Y-%m-%d'
+M.Time.format = '%H:%M:%S'
+M.Timestamp.format = M.Date.format..' '..M.Time.format
+
+function M.Timestamp:_offset(value)
+   if not value then return end
+   local time = posix.strptime(value, self.format)
+   return time and os.time(time)
+end
+
+function M.Timestamp:_load(context)
+   local value = super(self, M.Timestamp):_load(context)
+   return value and self.epoch_offset and os.date(self.format, value) or value
+end
+
+function M.Timestamp:_save(context, value)
+   if self.epoch_offset then value = self:_offset(value) end
+   super(self, M.Timestamp):_save(context, value)
+end
+
+function M.Timestamp:normalize(context, value)
+   local time = self:_offset(value)
+   return time and os.date(self.format, time) or value
+end
+
+function M.Timestamp:validate(context, value)
+   super(self, M.Timestamp):validate(context, value)
+   if not self:_offset(value) then raise(context.path, 'Invalid value') end
+end
+
+function M.Date:init(params)
+   super(self, M.Date):init(params)
+   self.widget = 'date'
+end
+
+function M.Time:init(params)
+   super(self, M.Time):init(params)
+   if params.seconds == false then self.format = '%H:%M' end
+end
+
+
+return M
-- 
cgit v1.2.3