scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Display modification times

This commit is contained in:
mainzelm 2006-04-06 14:46:06 +00:00
parent c0fbaf7d07
commit f7bb38740e
1 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
scheme/browse-directory-list.scm
View File

@ -88,6 +88,21 @@
":" ":"
(cut-to-size 8 (->groupname/save (file-info:gid fi)))))) (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 ;; leave one line for the heading
(define (calculate-number-of-lines result-buffer) (define (calculate-number-of-lines result-buffer)
(- (result-buffer-num-lines result-buffer) (- (result-buffer-num-lines result-buffer)
@ -102,7 +117,9 @@
(right-align-string 8 "Size ")) (right-align-string 8 "Size "))
(make-unmarked-text-element 'user/group #f (make-unmarked-text-element 'user/group #f
(left-align-string 18 "User:Group ")) (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) (define (layout-fsobject parent-dir-len fsobject num-cols)
@ -121,7 +138,10 @@
(format-user/group fi) (format-user/group fi)
" " " "
(format-permissions (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) (define (make-file-select-list fsobjects parent-dir num-lines num-cols)
(let ((parent-dir-len (string-length parent-dir))) (let ((parent-dir-len (string-length parent-dir)))
@ -262,6 +282,11 @@
> >
(lambda (fso) (lambda (fso)
(file-info:mode (fs-object-info fso))))) (file-info:mode (fs-object-info fso)))))
((mtime)
(values <
>
(lambda (fso)
(file-info:mtime (fs-object-info fso)))))
(else (else
(error "unknown column" column))) (error "unknown column" column)))
(let ((compare (if (= key (config 'ls 'sort-up-key)) (let ((compare (if (= key (config 'ls 'sort-up-key))