1 ;;; initz-vars.el --- Customization.
3 ;; Copyright (C) 2001-2002 OHASHI Akira <bg66@koka-in.org>
5 ;; Author: OHASHI Akira <bg66@koka-in.org>
6 ;; Keywords: startup, init
8 ;; This file is part of Initz.
10 ;; 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
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; This program 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.
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 the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
32 "Initz specific customize group")
34 (defgroup initz-face nil
39 ;; User modifiable variables.
40 (defcustom initz-directory "~/.initz"
45 (defcustom initz-prefix "init"
46 "*Initz files prefix."
50 (defcustom initz-interactively nil
51 "*If non-nil, initz loads files interactively."
55 (defcustom initz-verbose 'errors
56 "*If non-nil, initz runs verbose."
58 (const :tag "Show messages and errors." errors)
59 (const :tag "Show only messages." messages)
60 (const :tag "Quietly." nil))
63 (defcustom initz-load-list '()
64 "*If non-nil, initz loads only the module contained in this list."
65 :type '(repeat string)
68 (defcustom initz-ignore-list '()
69 "*If non-nil, initz ignores the module contained in this list."
70 :type '(repeat string)
73 (defcustom initz-list-default-node-status 'expand
74 "*Default node status of `initz-list'."
76 (const :tag "Expand" expand)
77 (const :tag "Collapse" collapse))
80 (defcustom initz-list-input-module-completing t
81 "*If non-nil, initz completes the module with `features'."
85 (defcustom initz-list-loaded-mark "@"
86 "*If module was loaded, print this at the rear."
91 (defface initz-list-node-face
92 '((((class color) (background light)) (:foreground "blue"))
93 (((class color) (background dark)) (:foreground "cyan"))
95 "Face used to initz list node."
98 (defface initz-list-module-face
99 '((((class color) (background light)) (:foreground "ForestGreen"))
100 (((class color) (background dark)) (:foreground "green"))
102 "Face used to initz list module."
105 (defface initz-list-unloaded-module-face
106 '((((class color)) (:foreground "gray"))
108 "Face used to initz list unloaded module."
111 (provide 'initz-vars)
113 ;;; initz-vars.el ends here