File tree 1 file changed +9
-6
lines changed
1 file changed +9
-6
lines changed Original file line number Diff line number Diff line change @@ -274,17 +274,20 @@ list-dir: closure/with [
274
274
/local info date time size
275
275
] [
276
276
info: query /mode value [name size date]
277
+ unless info [
278
+ return ajoin [
279
+ "^[ [1;35m *** Invalid symbolic link: ^[ [0;35m"
280
+ second split-path value
281
+ "^[ [m"
282
+ ]
283
+ ]
277
284
if depth = 0 [
278
285
return ajoin ["^[ [33;1mDIR: ^[ [32;1m" to-local-file info/1 "^[ [m" ]
279
286
]
280
- ;@@ TODO: rewrite this date/time formating once it will be possible
281
- ;@@ with some better method!
287
+
282
288
date: info/3
283
289
date/zone: 0
284
- time: date/time
285
- time: format/pad [2 #":" 2 ] reduce [time/hour time/minute ] #"0"
286
- date: format/pad [-11 ] date/date #"0"
287
- date: ajoin [" ^[ [32m" date " " time "^[ [m " ]
290
+ date: ajoin [" ^[ [32m" format-date-time date "dd-mmm-yyyy hh:mm" "^[ [m " ]
288
291
289
292
size: any [info/2 0 ]
290
293
if size >= 100 '000 '000 [size: join to integer! round (size / 1 '000 '000 ) "M" ]
You can’t perform that action at this time.
0 commit comments