From ab41862413760fa8d27e6165e3eb3183ecb419d6 Mon Sep 17 00:00:00 2001 From: Brady McDonough Date: Thu, 25 Feb 2021 08:03:04 -0700 Subject: [PATCH] Added log name helpers --- tk/mcron.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/tk/mcron.scm b/tk/mcron.scm index 74131d3..b805150 100644 --- a/tk/mcron.scm +++ b/tk/mcron.scm @@ -31,3 +31,19 @@ (define (step-from base step tm) (let ((steps (euclidean-quotient (- tm base) step))) (+ base (* step (+ 1 steps))))) + +;;;;;;;;;;;;;;;;;;; +;; Logging Utility +(define (current-date-string) + (let ((ct (current-time))) + (string-append (number->string (date-year ct)) "-" + (number->string (date-month ct)) "-" + (number->string (date-day ct))))) + +(define (yesterday-date-string) + (let* ((day (make-time time-duration 0 sec/day)) + (ct (subtract-duration! (current-time) day))) + (string-append (number->string (date-year ct)) "-" + (number->string (date-month ct)) "-" + (number->string (date-day ct))))) +;;;;;;;;;;;;;;;;;;;