Commit 845f2d3b5f21c62a70f587b0b63267fd7f0f7fe8

tekstiformaattia toisin


113	113	(/ (string->number (first items))
114	114	1000.0)))])
115	115
116		(string-join
117		(cons
118		(string-join
119		(list (srfi:date->string utc-date "~d/~m/~y") " "
120		(~r (srfi:date-hour utc-date) #:min-width 2 #:pad-string "0") ":"
121		(~r (srfi:date-minute utc-date) #:min-width 2 #:pad-string "0") ":"
122		(~r (+ (srfi:date-second utc-date)
123		(/ (srfi:date-nanosecond utc-date) 1000000000.0)) #:min-width 4 #:pad-string "0" #:precision '(= 3))) "")
124		(rest (map (lambda (x) (string-replace x "," ".")) items)))
125		";"))
	116	(string-replace
	117	(string-join
	118	(cons
	119	(string-join
	120	(list (srfi:date->string utc-date "~d/~m/~y") " "
	121	(~r (srfi:date-hour utc-date) #:min-width 2 #:pad-string "0") ":"
	122	(~r (srfi:date-minute utc-date) #:min-width 2 #:pad-string "0") ":"
	123	(~r (+ (srfi:date-second utc-date)
	124	(/ (srfi:date-nanosecond utc-date) 1000000000.0))
	125	#:pad-string "0" #:min-width 5 #:precision '(= 2))) "")
	126	(rest (map (lambda (x) (string-replace x "," ".")) items)))
	127	",")
	128	";" ","))
126	129	; (date-display-format ddf)
127	130	))
128	131
…	…
135	135	(define (append-utc-to-file-name fp)
136	136	(let-values ([(b p f) (split-path fp)])
137	137	(build-path b (string->path
138		(string-replace (path->string p) "." "-utc.")))))
	138	(string-replace (path->string p) "." "-date-time.")))))
139	139
140	140	(define (show-line str)
141	141	(let ([mred info-text])