Add backup timesheet

2018-11-19 15:34:56 +03:00 · 2018-11-19 15:34:56 +03:00 · 6c647806b4
commit 6c647806b4
parent 0b795255ae
1 changed files with 2 additions and 0 deletions
--- a/worktimer.scm
+++ b/worktimer.scm
@ -935,6 +935,8 @@
              (when (and
                     (list? sheet')
                     (not (null? sheet')))
+                (when (access? ts-file W_OK)
+                  (copy-file ts-file (string-append ts-file ".bak")))
                (with-output-to-file ts-file
                  (lambda ()
                    (print-timesheet sheet' deadlines' archives'))))))))))