home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / emacs-18.59-bin.lha / lib / emacs / 18.59 / lisp / dired.el < prev    next >
Lisp/Scheme  |  1992-10-21  |  22KB  |  634 lines
  1. ;;; Missing: P command, sorting, setting file modes.
  2. ;;; Dired buffer containing multiple directories gets totally confused
  3. ;;; Implement insertion of subdirectories in situ --- tree dired
  4.  
  5. ;; DIRED commands for Emacs
  6. ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  7.  
  8. ;; This file is part of GNU Emacs.
  9.  
  10. ;; GNU Emacs is free software; you can redistribute it and/or modify
  11. ;; it under the terms of the GNU General Public License as published by
  12. ;; the Free Software Foundation; either version 1, or (at your option)
  13. ;; any later version.
  14.  
  15. ;; GNU Emacs is distributed in the hope that it will be useful,
  16. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. ;; GNU General Public License for more details.
  19.  
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with GNU Emacs; see the file COPYING.  If not, write to
  22. ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23.  
  24.  
  25. ;In loaddefs.el
  26. ;(defvar dired-listing-switches "-al"
  27. ;  "Switches passed to ls for dired. MUST contain the 'l' option.
  28. ;CANNOT contain the 'F' option.")
  29.  
  30. (defun dired-readin (dirname buffer)
  31.   (save-excursion
  32.     (message "Reading directory %s..." dirname)
  33.     (set-buffer buffer)
  34.     (let ((buffer-read-only nil))
  35.       (widen)
  36.       (erase-buffer)
  37.       (setq dirname (expand-file-name dirname))
  38.       (if (file-directory-p dirname)
  39.       (call-process "ls" nil buffer nil
  40.             dired-listing-switches dirname)
  41.     (let ((default-directory (file-name-directory dirname)))
  42.       (call-process shell-file-name nil buffer nil
  43.             "-c" (concat "ls " dired-listing-switches " "
  44.                      (file-name-nondirectory dirname)))))
  45.       (goto-char (point-min))
  46.       (while (not (eobp))
  47.     (insert "  ")
  48.     (forward-line 1))
  49.       (goto-char (point-min)))
  50.     (set-buffer-modified-p nil)
  51.     (message "Reading directory %s...done" dirname)))
  52.  
  53. (defun dired-find-buffer (dirname)
  54.   (let ((blist (buffer-list))
  55.     found)
  56.     (while blist
  57.       (save-excursion
  58.         (set-buffer (car blist))
  59.     (if (and (eq major-mode 'dired-mode)
  60.          (equal dired-directory dirname))
  61.         (setq found (car blist)
  62.           blist nil)
  63.       (setq blist (cdr blist)))))
  64.     (or found
  65.     (create-file-buffer (directory-file-name dirname)))))
  66.  
  67. (defun dired (dirname)
  68.   "\"Edit\" directory DIRNAME--delete, rename, print, etc. some files in it.
  69. Dired displays a list of files in DIRNAME.
  70. You can move around in it with the usual commands.
  71. You can flag files for deletion with C-d
  72. and then delete them by typing `x'.
  73. Type `h' after entering dired for more info."
  74.   (interactive (list (read-file-name "Dired (directory): "
  75.                      nil default-directory nil)))
  76.   (switch-to-buffer (dired-noselect dirname)))
  77.  
  78. (defun dired-other-window (dirname)
  79.   "\"Edit\" directory DIRNAME.  Like M-x dired but selects in another window."
  80.   (interactive (list (read-file-name "Dired in other window (directory): "
  81.                      nil default-directory nil)))
  82.   (switch-to-buffer-other-window (dired-noselect dirname)))
  83.  
  84. (defun dired-noselect (dirname)
  85.   "Like M-x dired but returns the dired buffer as value, does not select it."
  86.   (or dirname (setq dirname default-directory))
  87.   (setq dirname (expand-file-name (directory-file-name dirname)))
  88.   (if (file-directory-p dirname)
  89.       (setq dirname (file-name-as-directory dirname)))
  90.   (let ((buffer (dired-find-buffer dirname)))
  91.     (save-excursion
  92.       (set-buffer buffer)
  93.       (dired-readin dirname buffer)
  94.       (dired-move-to-filename)
  95.       (dired-mode dirname))
  96.     buffer))
  97.  
  98. (defun dired-revert (&optional arg noconfirm)
  99.   (let ((opoint (point))
  100.     (ofile (dired-get-filename t t))
  101.     (buffer-read-only nil))
  102.     (erase-buffer)
  103.     (dired-readin dired-directory (current-buffer))
  104.     (or (and ofile (re-search-forward (concat " " (regexp-quote ofile) "$")
  105.                       nil t))
  106.     (goto-char opoint))
  107.     (beginning-of-line)))
  108.  
  109. (defvar dired-mode-map nil "Local keymap for dired-mode buffers.")
  110. (if dired-mode-map
  111.     nil
  112.   (setq dired-mode-map (make-keymap))
  113.   (suppress-keymap dired-mode-map)
  114.   (define-key dired-mode-map "r" 'dired-rename-file)
  115.   (define-key dired-mode-map "\C-d" 'dired-flag-file-deleted)
  116.   (define-key dired-mode-map "d" 'dired-flag-file-deleted)
  117.   (define-key dired-mode-map "v" 'dired-view-file)
  118.   (define-key dired-mode-map "e" 'dired-find-file)
  119.   (define-key dired-mode-map "f" 'dired-find-file)
  120.   (define-key dired-mode-map "o" 'dired-find-file-other-window)
  121.   (define-key dired-mode-map "u" 'dired-unflag)
  122.   (define-key dired-mode-map "x" 'dired-do-deletions)
  123.   (define-key dired-mode-map "\177" 'dired-backup-unflag)
  124.   (define-key dired-mode-map "?" 'dired-summary)
  125.   (define-key dired-mode-map "c" 'dired-copy-file)
  126.   (define-key dired-mode-map "#" 'dired-flag-auto-save-files)
  127.   (define-key dired-mode-map "~" 'dired-flag-backup-files)
  128.   (define-key dired-mode-map "." 'dired-clean-directory)
  129.   (define-key dired-mode-map "h" 'describe-mode)
  130.   (define-key dired-mode-map " "  'dired-next-line)
  131.   (define-key dired-mode-map "\C-n" 'dired-next-line)
  132.   (define-key dired-mode-map "\C-p" 'dired-previous-line)
  133.   (define-key dired-mode-map "n" 'dired-next-line)
  134.   (define-key dired-mode-map "p" 'dired-previous-line)
  135.   (define-key dired-mode-map "g" 'revert-buffer)
  136.   (define-key dired-mode-map "C" 'dired-compress)
  137.   (define-key dired-mode-map "U" 'dired-uncompress)
  138.   (define-key dired-mode-map "B" 'dired-byte-recompile)
  139.   (define-key dired-mode-map "M" 'dired-chmod)
  140.   (define-key dired-mode-map "G" 'dired-chgrp)
  141.   (define-key dired-mode-map "O" 'dired-chown))
  142.  
  143.  
  144. ;; Dired mode is suitable only for specially formatted data.
  145. (put 'dired-mode 'mode-class 'special)
  146.  
  147. (defun dired-mode (&optional dirname)
  148.   "Mode for \"editing\" directory listings.
  149. In dired, you are \"editing\" a list of the files in a directory.
  150. You can move using the usual cursor motion commands.
  151. Letters no longer insert themselves.
  152. Instead, type d to flag a file for Deletion.
  153. Type u to Unflag a file (remove its D flag).
  154.   Type Rubout to back up one line and unflag.
  155. Type x to eXecute the deletions requested.
  156. Type f to Find the current line's file
  157.   (or Dired it, if it is a directory).
  158. Type o to find file or dired directory in Other window.
  159. Type # to flag temporary files (names beginning with #) for Deletion.
  160. Type ~ to flag backup files (names ending with ~) for Deletion.
  161. Type . to flag numerical backups for Deletion.
  162.   (Spares dired-kept-versions or its numeric argument.)
  163. Type r to rename a file.
  164. Type c to copy a file.
  165. Type v to view a file in View mode, returning to Dired when done.
  166. Type g to read the directory again.  This discards all deletion-flags.
  167. Space and Rubout can be used to move down and up by lines.
  168. Also: C -- compress this file.  U -- uncompress this file.
  169.       B -- byte compile this file.
  170.  M, G, O -- change file's mode, group or owner.
  171. \\{dired-mode-map}"
  172.   (interactive)
  173.   (kill-all-local-variables)    
  174.   (make-local-variable 'revert-buffer-function)
  175.   (setq revert-buffer-function 'dired-revert)
  176.   (setq major-mode 'dired-mode)
  177.   (setq mode-name "Dired")
  178.   (make-local-variable 'dired-directory)
  179.   (setq dired-directory (or dirname default-directory))
  180.   (if dirname
  181.       (setq default-directory 
  182.         (if (file-directory-p dirname)
  183.         dirname (file-name-directory dirname))))
  184.   (setq mode-line-buffer-identification '("Dired: %17b"))
  185.   (setq case-fold-search nil)
  186.   (setq buffer-read-only t)
  187.   (use-local-map dired-mode-map)
  188.   (run-hooks 'dired-mode-hook))
  189.  
  190. (defun dired-repeat-over-lines (arg function)
  191.   (beginning-of-line)
  192.   (while (and (> arg 0) (not (eobp)))
  193.     (setq arg (1- arg))
  194.     (save-excursion
  195.       (beginning-of-line)
  196.       (and (bobp) (looking-at "  total")
  197.        (error "No file on this line"))
  198.       (funcall function))
  199.     (forward-line 1)
  200.     (dired-move-to-filename))
  201.   (while (and (< arg 0) (not (bobp)))
  202.     (setq arg (1+ arg))
  203.     (forward-line -1)
  204.     (dired-move-to-filename)
  205.     (save-excursion
  206.       (beginning-of-line)
  207.       (funcall function))))
  208.  
  209. (defun dired-flag-file-deleted (arg)
  210.   "In dired, flag the current line's file for deletion.
  211. With arg, repeat over several lines."
  212.   (interactive "p")
  213.   (dired-repeat-over-lines arg
  214.     '(lambda ()
  215.        (let ((buffe