1379 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1379 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1380 (message "ls-lisp, dired ls") |
1380 (message "ls-lisp, dired ls") |
1381 |
1381 |
1382 (require 'ls-lisp) |
1382 (require 'ls-lisp) |
1383 |
1383 |
1384 ;; If non-nil - use 'insert-directory-program', which I dislike. |
1384 ;; If non-nil - use 'insert-directory-program', means directory sorting and |
|
1385 ;; other options for `ls-lisp' do not have effect. |
1385 (setq ls-lisp-use-insert-directory-program nil) |
1386 (setq ls-lisp-use-insert-directory-program nil) |
1386 (setq ls-lisp-ignore-case t) |
1387 (setq ls-lisp-ignore-case t) |
1387 (setq ls-lisp-dirs-first t) |
1388 (setq ls-lisp-dirs-first t) |
1388 (if (memq system-type '(windows-nt cygwin)) |
1389 (if (memq system-type '(windows-nt cygwin)) |
1389 (setq ls-lisp-verbosity nil) |
1390 (setq ls-lisp-verbosity nil) |
1390 (setq ls-lisp-verbosity '(links uid gid))) |
1391 (setq ls-lisp-verbosity '(links uid gid))) |
|
1392 |
|
1393 ;; On Cygwin use actual "ls" executable. List implementation fails with: |
|
1394 ;; ls-lisp-insert-directory: Getting attributes: Input/output error, lock |
|
1395 ;; for some files, making it impossible to see directory contend in Dired even |
|
1396 ;; if only some files are problmatic (accessing special files from WSL P9 file system). |
|
1397 (when (eq system-type 'cygwin) |
|
1398 (setq my-ls-dir-switches '("-a" "-g" "--no-group" "--dired" "--group-directories-first")) |
|
1399 (setq ls-lisp-use-insert-directory-program t) |
|
1400 (setq list-directory-verbose-switches my-ls-dir-switches) |
|
1401 (setq dired-listing-switches (mapconcat #'identity my-ls-dir-switches " "))) |
1391 ;; Force use 'ls-lisp-format-time-list'. |
1402 ;; Force use 'ls-lisp-format-time-list'. |
1392 (setq ls-lisp-use-localized-time-format t) |
1403 (setq ls-lisp-use-localized-time-format t) |
1393 (setq ls-lisp-format-time-list |
1404 (setq ls-lisp-format-time-list |
1394 '("%Y-%m-%d %H:%M:%S" |
1405 '("%Y-%m-%d %H:%M:%S" |
1395 "%Y-%m-%d %H:%M ")) |
1406 "%Y-%m-%d %H:%M ")) |