lisp/initz-vars.el

   1 ;;; initz-vars.el --- Customization.
   2
   3 ;; Copyright (C) 2001-2002 OHASHI Akira <bg66@koka-in.org>
   4
   5 ;; Author: OHASHI Akira <bg66@koka-in.org>
   6 ;; Keywords: startup, init
   7
   8 ;; This file is part of Initz.
   9
  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)
  13 ;; any later version.
  14
  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.
  19
  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.
  24
  25
  26 ;;; Commentary:
  27 ;;
  28
  29 ;;; Code:
  30
  31 (defgroup initz nil
  32   "Initz specific customize group")
  33
  34 (defgroup initz-face nil
  35   "Faces for Initz."
  36   :group 'initz
  37   :prefix "initz-")
  38
  39 ;; User modifiable variables.
  40 (defcustom initz-directory "~/.initz"
  41   "*Initz files path."
  42   :type 'directory
  43   :group 'initz)
  44
  45 (defcustom initz-prefix "init"
  46   "*Initz files prefix."
  47   :type 'string
  48   :group 'initz)
  49
  50 (defcustom initz-interactively nil
  51   "*If non-nil, initz loads files interactively."
  52   :type 'boolean
  53   :group 'initz)
  54
  55 (defcustom initz-verbose 'errors
  56   "*If non-nil, initz runs verbose."
  57   :type '(choice
  58           (const :tag "Show messages and errors." errors)
  59           (const :tag "Show only messages." messages)
  60           (const :tag "Quietly." nil))
  61   :group 'initz)
  62
  63 (defcustom initz-load-list '()
  64   "*If non-nil, initz loads only the module contained in this list."
  65   :type '(repeat string)
  66   :group 'initz)
  67
  68 (defcustom initz-ignore-list '()
  69   "*If non-nil, initz ignores the module contained in this list."
  70   :type '(repeat string)
  71   :group 'initz)
  72
  73 (defcustom initz-list-default-node-status 'expand
  74   "*Default node status of `initz-list'."
  75   :type '(choice
  76           (const :tag "Expand" expand)
  77           (const :tag "Collapse" collapse))
  78   :group 'initz)
  79
  80 (defcustom initz-list-input-module-completing t
  81   "*If non-nil, initz completes the module with `features'."
  82   :type 'boolean
  83   :group 'initz)
  84
  85 (defcustom initz-list-loaded-mark "@"
  86   "*If module was loaded, print this at the rear."
  87   :type 'string
  88   :group 'initz)
  89
  90 (defcustom initz-delete-compile-log-buffer t
  91   "*If non-nil, initz deletes compile log buffer."
  92   :type 'boolean
  93   :group 'initz)
  94
  95 (defcustom initz-list-all-modules nil
  96   "*If non-nil, initz lists all modules in `initz-list'."
  97   :type 'boolean
  98   :group 'initz)
  99
 100 ;; Faces.
 101 (defface initz-list-node-face
 102   '((((class color) (background light)) (:foreground "blue"))
 103     (((class color) (background dark)) (:foreground "cyan"))
 104     (t (:bold t)))
 105   "Face used to initz list node."
 106   :group 'initz-face)
 107
 108 (defface initz-list-module-face
 109   '((((class color) (background light)) (:foreground "ForestGreen"))
 110     (((class color) (background dark)) (:foreground "green"))
 111     (t (:bold t)))
 112   "Face used to initz list module."
 113   :group 'initz-face)
 114
 115 (defface initz-list-unloaded-module-face
 116   '((((class color)) (:foreground "gray"))
 117     (t (:italic t)))
 118   "Face used to initz list unloaded module."
 119   :group 'initz-face)
 120
 121 (provide 'initz-vars)
 122
 123 ;;; initz-vars.el ends here