Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!cs.utexas.edu!uunet!yale!Duchier-Denys
From: Duchier-Denys@cs.yale.edu (Denys Duchier)
Newsgroups: comp.emacs
Subject: Re: dired sorting by date
Message-ID: <71028@yale-celray.yale.UUCP>
Date: 30 Aug 89 00:02:07 GMT
References: <8908282221.AA19574@dsys.ncsl.nist.gov> <123916@sun.Eng.Sun.COM>
Sender: root@yale.UUCP
Reply-To: Duchier-Denys@cs.yale.edu (Denys Duchier)
Organization: Computer Science, Yale University, New Haven, CT 06520-2158
Lines: 30
In-reply-to: rock%warp@Sun.COM (Bill Petro)

In article <123916@sun.Eng.Sun.COM>, rock%warp (Bill Petro) writes:
> Even better, any suggestions for how to sort a dired buffer by _size_ ?

The following works on my machine:

(defvar dired-filter " | sort -n +2 -3 ")

(defun dired-readin (dirname buffer)
  (save-excursion
    (message "Reading directory %s..." dirname)
    (set-buffer buffer)
    (let ((buffer-read-only nil))
      (widen)
      (erase-buffer)
      (setq dirname (expand-file-name dirname))
      (if (file-directory-p dirname)
	  (call-process shell-file-name nil buffer nil
			"-c" (concat "ls " dired-listing-switches " " dirname dired-filter))
	(let ((default-directory (file-name-directory dirname)))
	  (call-process shell-file-name nil buffer nil
			"-c" (concat "ls " dired-listing-switches " "
				     (file-name-nondirectory dirname)))))
      (goto-char (point-min))
      (while (not (eobp))
	(insert "  ")
	(forward-line 1))
      (goto-char (point-min)))
    (message "Reading directory %s...done" dirname)))

--Denys