144 |
:type 'boolean |
:type 'boolean |
145 |
:group 'ls-lisp) |
:group 'ls-lisp) |
146 |
|
|
147 |
|
(defcustom ls-lisp-format-time-list |
148 |
|
'("%b %e %H:%M" |
149 |
|
"%b %e %Y") |
150 |
|
"*List of `format-time-string' specs to display file time stamps. |
151 |
|
They are used whenever a locale is not specified to use instead. |
152 |
|
|
153 |
|
Syntax: (EARLY-TIME-FORMAT OLD-TIME-FORMAT) |
154 |
|
|
155 |
|
The EARLY-TIME-FORMAT is used if file has been modified within the |
156 |
|
current year. The OLD-TIME-FORMAT is used for older files. To use ISO |
157 |
|
8601 dates, you could set: |
158 |
|
|
159 |
|
\(setq ls-lisp-format-time-list |
160 |
|
'(\"%Y-%m-%d %H:%M\" |
161 |
|
\"%Y-%m-%d \"))" |
162 |
|
:type '(list string) |
163 |
|
:group 'ls-lisp) |
164 |
|
|
165 |
;; Remember the original insert-directory function |
;; Remember the original insert-directory function |
166 |
(or (featurep 'ls-lisp) ; FJW: unless this file is being reloaded! |
(or (featurep 'ls-lisp) ; FJW: unless this file is being reloaded! |
167 |
(fset 'original-insert-directory (symbol-function 'insert-directory))) |
(fset 'original-insert-directory (symbol-function 'insert-directory))) |
575 |
(setq locale nil)) |
(setq locale nil)) |
576 |
(format-time-string |
(format-time-string |
577 |
(if (and (<= past-cutoff diff) (<= diff 0)) |
(if (and (<= past-cutoff diff) (<= diff 0)) |
578 |
(if locale "%m-%d %H:%M" "%b %e %H:%M") |
(if locale "%m-%d %H:%M" (nth 0 ls-lisp-format-time-list)) |
579 |
(if locale "%Y-%m-%d " "%b %e %Y")) |
(if locale "%Y-%m-%d " (nth 1 ls-lisp-format-time-list))) |
580 |
time)) |
time)) |
581 |
(error "Unk 0 0000")))) |
(error "Unk 0 0000")))) |
582 |
|
|