2 |
|
|
3 |
;; Copyright (C) 2002 Free Software Foundation, Inc. |
;; Copyright (C) 2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Thomas Link aka t.link (at gmx at) |
;; Author: Thomas Link <t.link@gmx.at> |
|
;; Time-stamp: <2002-03-22> |
|
6 |
;; Keywords: filesets convenience |
;; Keywords: filesets convenience |
7 |
|
|
8 |
|
;; This file is part of GNU Emacs. |
9 |
|
|
10 |
;; This program is free software; you can redistribute it and/or modify |
;; This program is free software; you can redistribute it and/or modify |
11 |
;; it under the terms of the GNU General Public License as published by |
;; it under the terms of the GNU General Public License as published by |
12 |
;; the Free Software Foundation; either version 2, or (at your option) |
;; the Free Software Foundation; either version 2, or (at your option) |
27 |
|
|
28 |
;;; Commentary: |
;;; Commentary: |
29 |
|
|
30 |
;;Define filesets, which can be opened or saved with the power one or |
;; Define filesets, which can be opened or saved with the power one or |
31 |
;;two mouse clicks only. A fileset is either a list of files, a file |
;; two mouse clicks only. A fileset is either a list of files, a file |
32 |
;;pattern, a base directory and a search pattern (for files), or an |
;; pattern, a base directory and a search pattern (for files), or an |
33 |
;;inclusion group (i.e. a base file including other files). |
;; inclusion group (i.e. a base file including other files). |
34 |
|
|
35 |
;;Usage: 1. Put (require 'filesets) into your start-up file. 2. Type |
;; Usage: 1. Put (require 'filesets) into your start-up file. 2. Type |
36 |
;;M-x filesets-edit or choose "Edit Filesets" from the menu. 3. Save |
;; M-x filesets-edit or choose "Edit Filesets" from the menu. 3. Save |
37 |
;;your customizations. |
;; your customizations. |
38 |
|
|
39 |
;;Caveat: Fileset names have to be unique. |
;; Caveat: Fileset names have to be unique. |
40 |
|
|
41 |
;;Filesets.el adds a nifty filesets menu to your menubar. If you change |
;; Filesets.el adds a nifty filesets menu to your menubar. If you change |
42 |
;;your filesets on the fly, don't forget to select "Save Filesets" from |
;; your filesets on the fly, don't forget to select "Save Filesets" from |
43 |
;;the menu. |
;; the menu. |
44 |
|
|
45 |
;;Pressing on the first item in the submenu will open all files at once. |
;; Pressing on the first item in the submenu will open all files at once. |
46 |
;;Define your own function, e.g. browse-url, for opening a fileset's |
;; Define your own function, e.g. browse-url, for opening a fileset's |
47 |
;;files. Or define external viewers for opening files with other |
;; files. Or define external viewers for opening files with other |
48 |
;;programs. See `filesets-external-viewers'. |
;; programs. See `filesets-external-viewers'. |
49 |
|
|
50 |
;;BTW, if you close a fileset, files, which have been changed, will |
;; BTW, if you close a fileset, files, which have been changed, will |
51 |
;;be silently saved. Change this behaviour by setting |
;; be silently saved. Change this behaviour by setting |
52 |
;;`filesets-save-buffer-fn'. |
;; `filesets-save-buffer-fn'. |
53 |
|
|
54 |
;;; Supported modes for inclusion groups (`filesets-ingroup-patterns'): |
;;; Supported modes for inclusion groups (`filesets-ingroup-patterns'): |
55 |
;; - Elisp |
;; - Elisp |
83 |
|
|
84 |
|
|
85 |
;;; Some variables |
;;; Some variables |
86 |
(unless (boundp 'filesets-running-xemacs) |
(eval-and-compile |
87 |
(defvar filesets-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) |
(unless (boundp 'filesets-running-xemacs) |
88 |
"Non-nil means we are runninn XEmacs.")) |
(defvar filesets-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version) |
89 |
|
"Non-nil means we are runninn XEmacs."))) |
90 |
|
|
91 |
(defvar filesets-menu-cache nil |
(defvar filesets-menu-cache nil |
92 |
"The whole filesets menu.") |
"The whole filesets menu.") |
925 |
:filter-dirs-flag BOOLEAN ... is only used in conjunction with :tree. |
:filter-dirs-flag BOOLEAN ... is only used in conjunction with :tree. |
926 |
|
|
927 |
:tree-max-level INTEGER ... recurse into directories this many levels |
:tree-max-level INTEGER ... recurse into directories this many levels |
928 |
(see `filesets-tree-max-level' for a full explanation) |
\(see `filesets-tree-max-level' for a full explanation) |
929 |
|
|
930 |
:dormant-flag BOOLEAN ... non-nil means don't show this item in the |
:dormant-flag BOOLEAN ... non-nil means don't show this item in the |
931 |
menu; dormant filesets can still be manipulated via commands available |
menu; dormant filesets can still be manipulated via commands available |