HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e06aa1f
)
Add types to defcustoms.
author
Gerd Moellmann
<gerd@gnu.org>
Fri, 13 Jul 2001 10:20:15 +0000
(10:20 +0000)
committer
Gerd Moellmann
<gerd@gnu.org>
Fri, 13 Jul 2001 10:20:15 +0000
(10:20 +0000)
lisp/play/fortune.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/play/fortune.el
b/lisp/play/fortune.el
index
3ab616b
..
4977ff8
100644
(file)
--- a/
lisp/play/fortune.el
+++ b/
lisp/play/fortune.el
@@
-65,6
+65,7
@@
"Settings for fortune."
:version "21.1"
:group 'games)
"Settings for fortune."
:version "21.1"
:group 'games)
+
(defgroup fortune-signature nil
"Settings for use of fortune for signatures."
:group 'fortune
(defgroup fortune-signature nil
"Settings for use of fortune for signatures."
:group 'fortune
@@
-72,54
+73,78
@@
(defcustom fortune-dir "~/docs/ascii/misc/fortunes/"
"*The directory to look in for local fortune cookies files."
(defcustom fortune-dir "~/docs/ascii/misc/fortunes/"
"*The directory to look in for local fortune cookies files."
- :group 'fortune)
-(defcustom fortune-file
- (expand-file-name "usenet" fortune-dir)
+ :group 'fortune
+ :type 'directory)
+
+(defcustom fortune-file (expand-file-name "usenet" fortune-dir)
"*The file in which local fortune cookies will be stored."
"*The file in which local fortune cookies will be stored."
- :group 'fortune)
+ :group 'fortune
+ :type 'file)
+
(defcustom fortune-database-extension ".dat"
"The extension of the corresponding fortune database.
Normally you won't have a reason to change it."
(defcustom fortune-database-extension ".dat"
"The extension of the corresponding fortune database.
Normally you won't have a reason to change it."
- :group 'fortune)
+ :group 'fortune
+ :type 'string)
+
(defcustom fortune-program "fortune"
"Program to select a fortune cookie."
(defcustom fortune-program "fortune"
"Program to select a fortune cookie."
- :group 'fortune)
+ :group 'fortune
+ :type 'file)
+
(defcustom fortune-program-options ""
"Options to pass to the fortune program."
(defcustom fortune-program-options ""
"Options to pass to the fortune program."
- :group 'fortune)
+ :group 'fortune
+ :type 'string)
+
(defcustom fortune-strfile "strfile"
"Program to compute a new fortune database."
(defcustom fortune-strfile "strfile"
"Program to compute a new fortune database."
- :group 'fortune)
+ :group 'fortune
+ :type 'file)
+
(defcustom fortune-strfile-options ""
"Options to pass to the strfile program."
(defcustom fortune-strfile-options ""
"Options to pass to the strfile program."
- :group 'fortune)
+ :group 'fortune
+ :type 'string)
+
(defcustom fortune-quiet-strfile-options "> /dev/null"
"Text added to the command for running `strfile'.
By default it discards the output produced by `strfile'.
Set this to \"\" if you would like to see the output."
(defcustom fortune-quiet-strfile-options "> /dev/null"
"Text added to the command for running `strfile'.
By default it discards the output produced by `strfile'.
Set this to \"\" if you would like to see the output."
- :group 'fortune)
+ :group 'fortune
+ :type 'string)
(defcustom fortune-always-compile t
"*Non-nil means automatically compile fortune files.
If nil, you must invoke `fortune-compile' manually to do that."
(defcustom fortune-always-compile t
"*Non-nil means automatically compile fortune files.
If nil, you must invoke `fortune-compile' manually to do that."
- :group 'fortune)
+ :group 'fortune
+ :type 'boolean)
+
(defcustom fortune-author-line-prefix " -- "
"Prefix to put before the author name of a fortunate."
(defcustom fortune-author-line-prefix " -- "
"Prefix to put before the author name of a fortunate."
- :group 'fortune-signature)
+ :group 'fortune-signature
+ :type 'string)
+
(defcustom fortune-fill-column fill-column
"Fill column for fortune files."
(defcustom fortune-fill-column fill-column
"Fill column for fortune files."
- :group 'fortune-signature)
+ :group 'fortune-signature
+ :type 'integer)
+
(defcustom fortune-from-mail "private e-mail"
"String to use to characterize that the fortune comes from an e-mail.
No need to add an `in'."
:type 'string
:group 'fortune-signature)
(defcustom fortune-from-mail "private e-mail"
"String to use to characterize that the fortune comes from an e-mail.
No need to add an `in'."
:type 'string
:group 'fortune-signature)
+
(defcustom fortune-sigstart ""
"*Some text to insert before the fortune cookie, in a mail signature."
(defcustom fortune-sigstart ""
"*Some text to insert before the fortune cookie, in a mail signature."
- :group 'fortune-signature)
+ :group 'fortune-signature
+ :type 'string)
+
(defcustom fortune-sigend ""
"*Some text to insert after the fortune cookie, in a mail signature."
(defcustom fortune-sigend ""
"*Some text to insert after the fortune cookie, in a mail signature."
- :group 'fortune-signature)
+ :group 'fortune-signature
+ :type 'string)
;; not customizable settings
;; not customizable settings