On 2011-03-25 <00:30:40>, Hans Hagen wrote:
> On 25-3-2011 12:08, Cecil Westerhof wrote:
>
> >I made the code a little better:
> >\startluacode
> > os.setlocale("nl_NL")
>
> blocked in mkiv to prevent unwanted side effects and that will stay
Still, one can access context’s language substitution tables to
achieve a quasilocale effect (concerning the month, that is).
(-> attachments.)
Good night all, Philipp
>
> > function modification_date(file, format)
> > local f = file
> > local attr = lfs.attributes(f)
>
> why the f?
>
> function modification_date(filename,format)
> local attr = lfs.attributes(filename)
> if type(attr) == "table" and attr.mode ~= "directory" then
> if format == "nice" then
> return os.date("%Y-%m-%dT%X",attr.modification) ..
> os.timezone(true)
> elseif format == "long" then
> return os.date("%d %B %Y %H:%M",attr.modification)
> else
> return os.date("%d %B %Y",attr.modification)
> end
> end
> return "<unset>"
> end
>
>
> print(modification_date("oeps.lua","nice"))
> print(modification_date("oeps.lua","long"))
>
> -----------------------------------------------------------------
> Hans Hagen | PRAGMA ADE
> Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
> tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
> | www.pragma-pod.nl
> -----------------------------------------------------------------
> ___________________________________________________________________________________
> If your question is of interest to others as well, please add an entry to the
> Wiki!
>
> maillist : [email protected] / http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
> archive : http://foundry.supelec.fr/projects/contextrev/
> wiki : http://contextgarden.net
> ___________________________________________________________________________________
--
() ascii ribbon campaign - against html e-mail
/\ www.asciiribbon.org - against proprietary attachments
\ctxloadluafile{getdate}
\def\getdate
{\dosingleempty\dogetdate}
\def\dogetdate[#1]%
{\ctxlua{context(documentdata.modification_date("\jobname.tex", "#1"))}}
\def\Testall{%
\starttabulate[|r|l|]
\NC nice \NC {\os\getdate[nice]} \AR
\NC long \NC {\os\getdate[long]} \AR
\NC plain \NC {\os\getdate} \AR
\stoptabulate
\hairline%
}
\starttext
\Testall
\language[de]
\Testall
\language[nl]
\Testall
\language[it]
\Testall
\language[no]
\Testall
\stoptext
#!/usr/bin/env texlua
local ldl_texts = languages.data.labels.texts
local u = utf
local function localize_it (str, lang)
local current_language = lang or languages.current(tex.language)
return ldl_texts[u.lower(str)].labels[current_language]
end
local function modification_date (filename, format)
local attr = lfs.attributes(filename)
if type(attr) == "table" and attr.mode ~= "directory" then
if format == "nice" then
return os.date("%Y-%m-%dT%X",attr.modification) ..
os.timezone(true)
elseif format == "long" then
local tmp = string.explode(os.date("%d %B %Y
%H:%M",attr.modification), " ")
local day, month, year, time = table.unpack(tmp)
return day .. ". " .. localize_it(month) .. " " .. year .. " " ..
time
else
local tmp = string.explode(os.date("%d %B %Y",attr.modification),
" ")
local day, month, year = table.unpack(tmp)
return day .. ". " .. localize_it(month) .. " " .. year
end
end
return "<unset>"
end
documentdata.modification_date = modification_date
pgpbCcrcaCHGz.pgp
Description: PGP signature
___________________________________________________________________________________ If your question is of interest to others as well, please add an entry to the Wiki! maillist : [email protected] / http://www.ntg.nl/mailman/listinfo/ntg-context webpage : http://www.pragma-ade.nl / http://tex.aanhet.net archive : http://foundry.supelec.fr/projects/contextrev/ wiki : http://contextgarden.net ___________________________________________________________________________________
