(if (file-remote-p s)
" "
(propertize
- (format-time-string "%a %b %e" (elt (file-attributes s) 5))
+ (format-time-string "%b %a %e" (elt (file-attributes s) 5))
'face 'selector/date))
;; " -- "
(substring s 0 (match-end 0)) 'face 'selector/dim)
(substring s (match-end 0)))
s)
+
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;; (if (and (boundp 'selector/previous-filename) selector/previous-filename)
+ ;; (let ((l (abs (compare-strings
+ ;; selector/previous-filename nil nil
+ ;; filename nil nil))))
+ ;; ;; (if (> l 0) (setq l
+ ;; (setq selector/previous-filename filename)
+ ;; (concat (propertize
+ ;; (substring s 0 l) 'face 'selector/dim)
+ ;; (substring s l))
+ ;; )
+ ;; filename
+ ;; )
+ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
)
)
(unless (and (boundp recentf-mode) recentf-mode)
(error "recentf mode must be turned on"))
+ ;; (setq selector/previous-filename "")
+
(selector/select
(mapcar