[NTG-context] Use date of the tex file in the document

Philipp Gesang pgesang at ix.urz.uni-heidelberg.de
Fri Mar 25 01:33:15 CET 2011


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 : ntg-context at ntg.nl / 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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: somefile.tex
Type: text/x-tex
Size: 493 bytes
Desc: not available
URL: <http://www.ntg.nl/pipermail/ntg-context/attachments/20110325/aa7aa068/attachment.tex>
-------------- next part --------------
#!/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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: not available
URL: <http://www.ntg.nl/pipermail/ntg-context/attachments/20110325/aa7aa068/attachment.pgp>


More information about the ntg-context mailing list