Display modification times
This commit is contained in:
parent
c0fbaf7d07
commit
f7bb38740e
|
@ -88,6 +88,21 @@
|
|||
":"
|
||||
(cut-to-size 8 (->groupname/save (file-info:gid fi))))))
|
||||
|
||||
(define today (date))
|
||||
|
||||
(define (format-time t)
|
||||
(let ((d (date t)))
|
||||
(if (= (date:year today)
|
||||
(date:year d))
|
||||
(format-date/wo-year d)
|
||||
(format-date/w-year d))))
|
||||
|
||||
(define (format-date/w-year d)
|
||||
(format-date "~b ~d ~Y" d))
|
||||
|
||||
(define (format-date/wo-year d)
|
||||
(format-date "~b ~d ~H:~M" d))
|
||||
|
||||
;; leave one line for the heading
|
||||
(define (calculate-number-of-lines result-buffer)
|
||||
(- (result-buffer-num-lines result-buffer)
|
||||
|
@ -102,7 +117,9 @@
|
|||
(right-align-string 8 "Size "))
|
||||
(make-unmarked-text-element 'user/group #f
|
||||
(left-align-string 18 "User:Group "))
|
||||
(make-unmarked-text-element 'mode #f (left-align-string 10 "Mode ")))))
|
||||
(make-unmarked-text-element 'mode #f (left-align-string 10 "Mode "))
|
||||
(make-unmarked-text-element 'mtime #f
|
||||
(left-align-string 13 " Mod time")))))
|
||||
|
||||
|
||||
(define (layout-fsobject parent-dir-len fsobject num-cols)
|
||||
|
@ -121,7 +138,10 @@
|
|||
(format-user/group fi)
|
||||
" "
|
||||
(format-permissions
|
||||
(file-info:mode fi))))))
|
||||
(file-info:mode fi))
|
||||
" "
|
||||
(format-time
|
||||
(file-info:mtime fi))))))
|
||||
|
||||
(define (make-file-select-list fsobjects parent-dir num-lines num-cols)
|
||||
(let ((parent-dir-len (string-length parent-dir)))
|
||||
|
@ -262,6 +282,11 @@
|
|||
>
|
||||
(lambda (fso)
|
||||
(file-info:mode (fs-object-info fso)))))
|
||||
((mtime)
|
||||
(values <
|
||||
>
|
||||
(lambda (fso)
|
||||
(file-info:mtime (fs-object-info fso)))))
|
||||
(else
|
||||
(error "unknown column" column)))
|
||||
(let ((compare (if (= key (config 'ls 'sort-up-key))
|
||||
|
|
Loading…
Reference in New Issue