(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))
;; " -- "
(defun selector/find-file (filename)
(if selector/add-to-file-name-history
- (add-to-list 'file-name-history filename t))
+ (add-to-history 'file-name-history
+ (replace-regexp-in-string
+ abbreviated-home-dir "~/" filename)
+ )
+ )
+
(find-file filename))
(defun selector/pick-file (filename)