Commit 845f2d3b5f21c62a70f587b0b63267fd7f0f7fe8

  • avatar
  • Jonne Itkonen <jonne.itkonen @j…u.fi> (Committer)
  • Sun Jun 07 21:50:07 EEST 2015
  • avatar
  • Jonne Itkonen <jonne.itkonen @j…u.fi> (Author)
  • Sun Jun 07 21:50:07 EEST 2015
tekstiformaattia toisin
hookie.rkt
(14 / 11)
  
113113 (/ (string->number (first items))
114114 1000.0)))])
115115
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 ";" ","))
126129 ; (date-display-format ddf)
127130 ))
128131
135135(define (append-utc-to-file-name fp)
136136 (let-values ([(b p f) (split-path fp)])
137137 (build-path b (string->path
138 (string-replace (path->string p) "." "-utc.")))))
138 (string-replace (path->string p) "." "-date-time.")))))
139139
140140(define (show-line str)
141141 (let ([mred info-text])