This is part of The Pile, a partial archive of some open source mailing lists and newsgroups.
From: Jean-Philippe Theberge <jphil@godzilla.act.oda.fr>
Subject: Re: dired-mode
Date: 26 Jun 2000 15:39:55 +0200
Javier Oviedo <joviedo@rac10.wam.umd.edu> writes:
> Hey:
>
> Are there special faces for dired mode? I want to add a hook to
> change the appearance of things in dired-mode but I'm not sure what faces
> are supported by dired mode. For example, I want directories to be one
> color, executables to be another..and so on. Is this possible? Thanks.
I have this on my .emacs to do just that.
The code is not from me but I can't remember where I took it from.
(eval-after-load "dired"
'(progn
;; (defun my-dired-move-to-filename (&optional raise-error eol)
;; (or eol (setq eol (progn (end-of-line) (point))))
;; (beginning-of-line)
;; (forward-char 57)
;; (if (and (> (point) eol) raise-error)
;; (error "No file on this line")))
;; (defun my-dired-move-to-date (&optional raise-error eol)
;; (or eol (setq eol (progn (end-of-line) (point))))
;; (beginning-of-line)
;; (forward-char 44)
;; (if (and (> (point) eol) raise-error)
;; (error "No file on this line")))
(defun my-dired-move-to-date (&optional raise-error eol)
(dired-move-to-filename raise-error eol)
(backward-char 13))
;; (defun my-dired-move-to-size (&optional raise-error eol)
;; (or eol (setq eol (progn (end-of-line) (point))))
;; (beginning-of-line)
;; (forward-char 31)
;; (if (and (> (point) eol) raise-error)
;; (error "No file on this line")))
(defun my-dired-move-to-size (&optional raise-error eol)
(dired-move-to-filename raise-error eol)
(backward-char 25))
(setq dired-font-lock-keywords
(list
;; Size
'("^. -"
(" *\\([0-9]+\\).*" (my-dired-move-to-size) nil
(1 font-lock-string-face)))
;; Date
'("^. [-dlcbs]"
("\\(............\\).*" (my-dired-move-to-date) nil
(1 font-lock-keyword-face)))
;; Omitted files
'(" [#.][^.].*$" ; obtained from dired-omit-files
("[#.][^.].*" (dired-move-to-filename) nil
(0 font-lock-builtin-face)))
;; Directories
'("^. d"
(0 font-lock-function-name-face)
(" *\\([0-9]+\\).*" (my-dired-move-to-size) nil
(1 font-lock-function-name-face))
(".+" (dired-move-to-filename) nil
(0 font-lock-function-name-face))
)
;; Symbolic links
(list dired-re-sym ; "^. [0-9 \t]*l"
'(0 font-lock-constant-face)
'(".+" (dired-move-to-filename) nil
(0 font-lock-constant-face)))
;; Backup and autosave files
'("[~%#]$"
(".+" (dired-move-to-filename) nil (0 font-lock-comment-face)))
'("\\.\\(bak\\)$"
(".+" (dired-move-to-filename) nil
(0 font-lock-comment-face)))
;; program files (source codes, any languages)
'("\\.\\(el\\|p[ml]\\|cgi\\)$"
(".+" (dired-move-to-filename) nil
(0 font-lock-variable-name-face)))
;; Zipped files
'("\\.\\(gz\\|tgz\\|bz2\\|Z\\|zip\\)$"
(".+" (dired-move-to-filename) nil (0 font-lock-type-face)))
;; World permissions
;;'("^..[d-]......\\(r..\\|.w.\\|..[xs]\\) " 1 font-lock-type-face)
;; Write permissions
'("^. [d-]....\\(w\\)" 1 font-lock-type-face)
'("^. [d-]......\\(.w.\\)" 1 font-lock-type-face)
;; Directory name
(list dired-subdir-regexp ; "^. \\([^\n]+\\)\\(:\\)[\n]"
'(1 font-lock-function-name-face)
'(1 'bold append))
;; Marked for deletion
'("^D"
(0 font-lock-warning-face prepend)
(".+" (dired-move-to-filename) nil
(0 font-lock-warning-face prepend))
(".+" (beginning-of-line) nil (0 'bold prepend)))
;; Marked (not for deletion)
'("^[^ D\n]"
(0 font-lock-warning-face prepend)
(".+" (beginning-of-line) nil (0 'bold prepend)))))))
-jp
Path: nntp.stanford.edu!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!cpk-news-hub1.bbnplanet.com!washdc3-snh1.gtei.net!news.gtei.net!dfiatx1-snr1.gtei.net.POSTED!not-for-mail
===
Subject: Re: dired-mode
From: Jim Davidson <jdavidson@nospam.com>
Date: Tue, 04 Jul 2000 18:07:22 GMT
Javier Oviedo <joviedo@rac10.wam.umd.edu> writes:
> Hey:
>
> Are there special faces for dired mode? I want to add a hook to
> change the appearance of things in dired-mode but I'm not sure what faces
> are supported by dired mode. For example, I want directories to be one
> color, executables to be another..and so on. Is this possible? Thanks.
You don't say which version of Emacs you're running, but in 20.7 dired
includes all this. Check the settings for dired-font-lock-keywords
in dired.el.
If you have font-lock turned on, you should see colors for things like
sub-directories, backup files, marked files....
--
Jim Davidson
jdavidson @ acm.org