[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
color-file-completion.el --- add colors to file completion
From: |
Kevin A. Burton |
Subject: |
color-file-completion.el --- add colors to file completion |
Date: |
29 Oct 2001 19:08:37 -0800 |
User-agent: |
Gnus/5.0808 (Gnus v5.8.8) Emacs/21.1 |
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
misc bug fixes.
;;; color-file-completion.el --- add colors to file completion
;; $Id: color-file-completion.el,v 1.5 2001/10/08 15:35:35 burton Exp $
;; Copyright (C) 1997-2000 Free Software Foundation, Inc.
;; Author: Kevin A. Burton (address@hidden)
;; Maintainer: Kevin A. Burton (address@hidden)
;; Location: http://relativity.yi.org
;; Keywords:
;; Version: 1.0.1
;; This file is [not yet] part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free Software
;; Foundation; either version 2 of the License, or any later version.
;;
;; This program is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
;; details.
;;
;; You should have received a copy of the GNU General Public License along with
;; this program; if not, write to the Free Software Foundation, Inc., 59 Temple
;; Place - Suite 330, Boston, MA 02111-1307, USA.
;;; Commentary:
;;
;; This is a hack for Emacs 20.x so that when you are using file completion,
;; directories can show up with a certain color. This should work under Emacs
;; 21.
;; NOTE: just prototype for a future hack.
;;; Code:
(defface completion-setup-directory-face '((t (:foreground "LimeGreen")))
"Face to use for directories.")
(defvar color-file-completion-always t "If true, always turn on regexps in
completion buffers.")
(defun completion-setup-directory-face()
"When we are completing a filename, highlight directories."
(interactive)
;;if this is completing a filename... highlight faces...
(if (or color-file-completion-always
(eq minibuffer-completion-table 'read-file-name-internal))
(progn
(let((font-lock-verbose nil))
(font-lock-mode 1)
(font-lock-add-keywords nil '(("[^ \n]+/" 0
'completion-setup-directory-face keep)))
(font-lock-fontify-buffer)))))
(add-hook 'completion-list-mode-hook 'completion-setup-directory-face)
(provide 'color-file-completion)
;;; color-file-completion.el ends here
- --
Need a good Engineer? Hire me! ( Java | P2P | XML | Linux | Open Source )
http://relativity.yi.org/bio/
Kevin A. Burton ( address@hidden, address@hidden, address@hidden )
Location - San Francisco, CA, Cell - 415.595.9965
Jabber - address@hidden, Web - http://relativity.yi.org
Acts performed with a delusive mind produce painful results
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: Get my public key at: http://relativity.yi.org/pgpkey.txt
iD8DBQE73hm1AwM6xb2dfE0RAo6yAKCAtQbbN2bvMqCimHGxCyoeC9jLtwCfYlCd
3aITr0+5EFbSblahJ2f/JOU=
=v01H
-----END PGP SIGNATURE-----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- color-file-completion.el --- add colors to file completion,
Kevin A. Burton <=