np/worktimer
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add backup timesheet

Browse Source
This commit is contained in:
Николай Пузанов 2018-11-19 15:34:56 +03:00
parent 0b795255ae
commit 6c647806b4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
worktimer.scm
View File

@ -935,6 +935,8 @@
(when (and (when (and
(list? sheet') (list? sheet')
(not (null? 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 (with-output-to-file ts-file
(lambda () (lambda ()
(print-timesheet sheet' deadlines' archives')))))))))) (print-timesheet sheet' deadlines' archives'))))))))))