From 53412381fbceaed2bdba5c532eded9c00afda0f9 Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <np@embddr.com>
Date: Sun, 4 Dec 2022 12:09:32 +0300
Subject: [PATCH] Optionally enable timestamp in save snippet uri

---
 _web_server/server/playground-server.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/_web_server/server/playground-server.scm b/_web_server/server/playground-server.scm
index c218e63..0780b0d 100755
--- a/_web_server/server/playground-server.scm
+++ b/_web_server/server/playground-server.scm
@@ -28,6 +28,7 @@
 (define SNIPPET-FILE "code.sv")
 (define IVERILOG-METATOP-FILE "top_iverilog.sv")
 (define VERILATOR-CPP-FILE "top_verilator.cpp")
+(define USE-TIME-IN-SAVE-URL #f)
 
 (define IVERILOG-EXE "iverilog")
 (define VVP-EXE "vvp")
@@ -668,8 +669,9 @@
                           (mkdtemp
                            (path+
                             stor-base
-                            (format "~a-XXXXXX"
-                                    (current-time)))))
+                            (if USE-TIME-IN-SAVE-URL
+                                (format "~a-XXXXXX" (current-time))
+                                "XXXXXX"))))
                          ref-stor-dir)))
                 (save-to-storage (path+ stor-base stor-dir) code)
                 (make-response