gnu-emacs-sources
[Top][All Lists]
Advanced

[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-----



reply via email to

[Prev in Thread] Current Thread [Next in Thread]