2016-05-07 14:41:00

1 files changed, 19 insertions, 2 deletions

diff --git a/tex/context/base/mkiv/lpdf-ini.lua b/tex/context/base/mkiv/lpdf-ini.lua
index 2149f4729..f0b919d4e 100644
--- a/tex/context/base/mkiv/lpdf-ini.lua
+++ b/tex/context/base/mkiv/lpdf-ini.lua
@@ -1059,13 +1059,30 @@ do
         return timestamp
     end
 
+    function lpdf.settime(n)
+        if n then
+            n = converters.totime(n)
+            if n then
+                converters.settime(n)
+                timestamp = os.date("%Y-%m-%dT%X",os.time(n)) .. os.timezone(true)
+            end
+        end
+        return timestamp
+    end
+
+    lpdf.settime(tonumber(resolvers.variable("start_time")) or tonumber(resolvers.variable("SOURCE_DATE_EPOCH"))) -- bah
+
     function lpdf.pdftimestamp(str)
         local Y, M, D, h, m, s, Zs, Zh, Zm = match(str,"^(%d%d%d%d)%-(%d%d)%-(%d%d)T(%d%d):(%d%d):(%d%d)([%+%-])(%d%d):(%d%d)$")
         return Y and format("D:%s%s%s%s%s%s%s%s'%s'",Y,M,D,h,m,s,Zs,Zh,Zm)
     end
 
-    function lpdf.id()
-        return format("%s.%s",tex.jobname,timestamp)
+    function lpdf.id(nodate)
+        if nodate then
+            return tex.jobname
+        else
+            return format("%s.%s",tex.jobname,timestamp)
+        end
     end
 
 end