Mercurial > emacs
comparison lisp/play/fortune.el @ 38397:6cc3d3a4025c
Add types to defcustoms.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 13 Jul 2001 10:20:15 +0000 |
| parents | 6586c75e5eda |
| children | c6e12c6b1498 |
comparison
equal
deleted
inserted
replaced
| 38396:a8c996679183 | 38397:6cc3d3a4025c |
|---|---|
| 63 ;;; Customizable Settings | 63 ;;; Customizable Settings |
| 64 (defgroup fortune nil | 64 (defgroup fortune nil |
| 65 "Settings for fortune." | 65 "Settings for fortune." |
| 66 :version "21.1" | 66 :version "21.1" |
| 67 :group 'games) | 67 :group 'games) |
| 68 | |
| 68 (defgroup fortune-signature nil | 69 (defgroup fortune-signature nil |
| 69 "Settings for use of fortune for signatures." | 70 "Settings for use of fortune for signatures." |
| 70 :group 'fortune | 71 :group 'fortune |
| 71 :group 'mail) | 72 :group 'mail) |
| 72 | 73 |
| 73 (defcustom fortune-dir "~/docs/ascii/misc/fortunes/" | 74 (defcustom fortune-dir "~/docs/ascii/misc/fortunes/" |
| 74 "*The directory to look in for local fortune cookies files." | 75 "*The directory to look in for local fortune cookies files." |
| 75 :group 'fortune) | 76 :group 'fortune |
| 76 (defcustom fortune-file | 77 :type 'directory) |
| 77 (expand-file-name "usenet" fortune-dir) | 78 |
| 79 (defcustom fortune-file (expand-file-name "usenet" fortune-dir) | |
| 78 "*The file in which local fortune cookies will be stored." | 80 "*The file in which local fortune cookies will be stored." |
| 79 :group 'fortune) | 81 :group 'fortune |
| 82 :type 'file) | |
| 83 | |
| 80 (defcustom fortune-database-extension ".dat" | 84 (defcustom fortune-database-extension ".dat" |
| 81 "The extension of the corresponding fortune database. | 85 "The extension of the corresponding fortune database. |
| 82 Normally you won't have a reason to change it." | 86 Normally you won't have a reason to change it." |
| 83 :group 'fortune) | 87 :group 'fortune |
| 88 :type 'string) | |
| 89 | |
| 84 (defcustom fortune-program "fortune" | 90 (defcustom fortune-program "fortune" |
| 85 "Program to select a fortune cookie." | 91 "Program to select a fortune cookie." |
| 86 :group 'fortune) | 92 :group 'fortune |
| 93 :type 'file) | |
| 94 | |
| 87 (defcustom fortune-program-options "" | 95 (defcustom fortune-program-options "" |
| 88 "Options to pass to the fortune program." | 96 "Options to pass to the fortune program." |
| 89 :group 'fortune) | 97 :group 'fortune |
| 98 :type 'string) | |
| 99 | |
| 90 (defcustom fortune-strfile "strfile" | 100 (defcustom fortune-strfile "strfile" |
| 91 "Program to compute a new fortune database." | 101 "Program to compute a new fortune database." |
| 92 :group 'fortune) | 102 :group 'fortune |
| 103 :type 'file) | |
| 104 | |
| 93 (defcustom fortune-strfile-options "" | 105 (defcustom fortune-strfile-options "" |
| 94 "Options to pass to the strfile program." | 106 "Options to pass to the strfile program." |
| 95 :group 'fortune) | 107 :group 'fortune |
| 108 :type 'string) | |
| 109 | |
| 96 (defcustom fortune-quiet-strfile-options "> /dev/null" | 110 (defcustom fortune-quiet-strfile-options "> /dev/null" |
| 97 "Text added to the command for running `strfile'. | 111 "Text added to the command for running `strfile'. |
| 98 By default it discards the output produced by `strfile'. | 112 By default it discards the output produced by `strfile'. |
| 99 Set this to \"\" if you would like to see the output." | 113 Set this to \"\" if you would like to see the output." |
| 100 :group 'fortune) | 114 :group 'fortune |
| 115 :type 'string) | |
| 101 | 116 |
| 102 (defcustom fortune-always-compile t | 117 (defcustom fortune-always-compile t |
| 103 "*Non-nil means automatically compile fortune files. | 118 "*Non-nil means automatically compile fortune files. |
| 104 If nil, you must invoke `fortune-compile' manually to do that." | 119 If nil, you must invoke `fortune-compile' manually to do that." |
| 105 :group 'fortune) | 120 :group 'fortune |
| 121 :type 'boolean) | |
| 122 | |
| 106 (defcustom fortune-author-line-prefix " -- " | 123 (defcustom fortune-author-line-prefix " -- " |
| 107 "Prefix to put before the author name of a fortunate." | 124 "Prefix to put before the author name of a fortunate." |
| 108 :group 'fortune-signature) | 125 :group 'fortune-signature |
| 126 :type 'string) | |
| 127 | |
| 109 (defcustom fortune-fill-column fill-column | 128 (defcustom fortune-fill-column fill-column |
| 110 "Fill column for fortune files." | 129 "Fill column for fortune files." |
| 111 :group 'fortune-signature) | 130 :group 'fortune-signature |
| 131 :type 'integer) | |
| 132 | |
| 112 (defcustom fortune-from-mail "private e-mail" | 133 (defcustom fortune-from-mail "private e-mail" |
| 113 "String to use to characterize that the fortune comes from an e-mail. | 134 "String to use to characterize that the fortune comes from an e-mail. |
| 114 No need to add an `in'." | 135 No need to add an `in'." |
| 115 :type 'string | 136 :type 'string |
| 116 :group 'fortune-signature) | 137 :group 'fortune-signature) |
| 138 | |
| 117 (defcustom fortune-sigstart "" | 139 (defcustom fortune-sigstart "" |
| 118 "*Some text to insert before the fortune cookie, in a mail signature." | 140 "*Some text to insert before the fortune cookie, in a mail signature." |
| 119 :group 'fortune-signature) | 141 :group 'fortune-signature |
| 142 :type 'string) | |
| 143 | |
| 120 (defcustom fortune-sigend "" | 144 (defcustom fortune-sigend "" |
| 121 "*Some text to insert after the fortune cookie, in a mail signature." | 145 "*Some text to insert after the fortune cookie, in a mail signature." |
| 122 :group 'fortune-signature) | 146 :group 'fortune-signature |
| 147 :type 'string) | |
| 123 | 148 |
| 124 | 149 |
| 125 ;; not customizable settings | 150 ;; not customizable settings |
| 126 (defvar fortune-buffer-name "*fortune*") | 151 (defvar fortune-buffer-name "*fortune*") |
| 127 (defconst fortune-end-sep "\n%\n") | 152 (defconst fortune-end-sep "\n%\n") |