From 46a07aa969e2ed1037ffe15abbceeebf45f5fab5 Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Sun, 29 Jan 2012 16:34:42 +0900 Subject: [PATCH] always ls-lisp for dired, update dired-display-all --- emacs.el | 34 ++++++++++++++++++++++++++-------- 1 file changed, 26 insertions(+), 8 deletions(-) diff --git a/emacs.el b/emacs.el index dbd3c27..a243419 100644 --- a/emacs.el +++ b/emacs.el @@ -895,6 +895,8 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (add-hook 'bs-mode-hook (lambda () (setq bs-default-configuration "this-frame") + ;; (and bs--show-all + ;; (call-interactively 'bs-toggle-show-all)) (set (make-variable-buffer-local 'scroll-margin) 0) )) @@ -1333,29 +1335,45 @@ otherwise, use `pack-default-extension' for pack." (setq dired-listing-switches "-lhFG") (setq dired-listing-switches "-lhFG --time-style=long-iso") ) +(setq dired-listing-switches "-lhFG") + (define-minor-mode my-dired-display-all-mode "" :init-value nil - :global t - (my-dired-display-all-set) + :global nil + :lighter " ALL" (when (eq major-mode 'dired-mode) + (my-dired-display-all-set) (revert-buffer))) (defun my-dired-display-all-set () "" (if my-dired-display-all-mode - (setq dired-actual-switches - (concat "-A " - dired-actual-switches)) + (or (string-match-p my-dired-display-all-switch + dired-actual-switches) + (setq dired-actual-switches + (concat my-dired-display-all-switch + " " + dired-actual-switches))) (setq dired-actual-switches - (replace-regexp-in-string "-A " "" dired-actual-switches)))) + (replace-regexp-in-string (concat my-dired-display-all-switch + " ") + "" + dired-actual-switches)))) +(defvar my-dired-display-all-switch "-A") (add-hook 'dired-mode-hook 'my-dired-display-all-set) (put 'dired-find-alternate-file 'disabled nil) +(setq dired-ls-F-marks-symlinks t) + (require 'ls-lisp) -;; (setq ls-lisp-use-insert-directory-program nil) +(setq ls-lisp-use-insert-directory-program nil) (setq ls-lisp-dirs-first t) -(setq dired-ls-F-marks-symlinks t) +(setq ls-lisp-use-localized-time-format t) +(setq ls-lisp-format-time-list + '("%Y-%m-%d %H:%M" + "%Y-%m-%d ")) + (setq dired-dwim-target t) ;; (add-hook 'dired-after-readin-hook