;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:38 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/play/fortune.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`fortune.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\302\313\310\301\310\314&\207" [custom-declare-group fortune nil "Settings for fortune." :link (emacs-commentary-link "fortune.el") :version "21.1" :group games fortune-signature "Settings for use of fortune for signatures." mail] 10) #@60 *The directory to look in for local fortune cookies files. (custom-declare-variable 'fortune-dir '"~/docs/ascii/misc/fortunes/" '(#$ . -923) :type 'directory :group 'fortune) #@58 *The file in which local fortune cookies will be stored. (custom-declare-variable 'fortune-file '(expand-file-name "usenet" fortune-dir) '(#$ . -1104) :type 'file :group 'fortune) #@101 The extension of the corresponding fortune database. Normally you won't have a reason to change it. (custom-declare-variable 'fortune-database-extension '".dat" '(#$ . 1291) :type 'string :group 'fortune) #@37 Program to select a fortune cookie. (custom-declare-variable 'fortune-program '"fortune" '(#$ . 1502) :type 'string :group 'fortune) #@52 Options to pass to the fortune program (a string). (custom-declare-variable 'fortune-program-options '"" '(#$ . 1641) :type 'string :group 'fortune) #@44 Program to compute a new fortune database. (custom-declare-variable 'fortune-strfile '"strfile" '(#$ . 1796) :type 'string :group 'fortune) #@52 Options to pass to the strfile program (a string). (custom-declare-variable 'fortune-strfile-options '"" '(#$ . 1942) :type 'string :group 'fortune) #@159 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. (custom-declare-variable 'fortune-quiet-strfile-options '"> /dev/null" '(#$ . 2098) :type 'string :group 'fortune) #@116 *Non-nil means automatically compile fortune files. If nil, you must invoke `fortune-compile' manually to do that. (custom-declare-variable 'fortune-always-compile 't '(#$ . -2378) :type 'boolean :group 'fortune) #@54 Prefix to put before the author name of a fortunate. (custom-declare-variable 'fortune-author-line-prefix '" -- " '(#$ . 2597) :type 'string :group 'fortune-signature) #@32 Fill column for fortune files. (custom-declare-variable 'fortune-fill-column 'fill-column '(#$ . 2788) :type 'integer :group 'fortune-signature) #@94 String to use to characterize that the fortune comes from an e-mail. No need to add an `in'. (custom-declare-variable 'fortune-from-mail '"private e-mail" '(#$ . 2939) :type 'string :group 'fortune-signature) #@70 *Some text to insert before the fortune cookie, in a mail signature. (custom-declare-variable 'fortune-sigstart '"" '(#$ . -3154) :type 'string :group 'fortune-signature) #@69 *Some text to insert after the fortune cookie, in a mail signature. (custom-declare-variable 'fortune-sigend '"" '(#$ . -3331) :type 'string :group 'fortune-signature) (byte-code "\301B\303\301!\204\f\304\302B\305\301\207" [current-load-list fortune-buffer-name fortune-end-sep boundp "*fortune*" "\n%\n"] 2) #@108 Appends STRING to the fortune FILE. If INTERACTIVE is non-nil, don't compile the fortune file afterwards. (defalias 'fortune-append #[(string &optional interactive file) "\306\307\206 !!\310!\203\311\312\"\210\n\203 \313!\210\202$\314!\210\315!\211q\210db\210\f\316\317 \210\261\210\n?\205M\320 \210\205M\321!)\207" [file fortune-file interactive fortune-buffer fortune-fill-column fill-column expand-file-name substitute-in-file-name file-directory-p error "Cannot append fortune to directory %s" find-file-other-frame find-file-noselect get-file-buffer "^%" turn-on-auto-fill save-buffer fortune-compile auto-fill-inhibit-regexp string fortune-end-sep fortune-always-compile] 4 (#$ . 3654)]) #@32 Asks the user for a file-name. (defalias 'fortune-ask-file #[nil "\301\302\303\304\211\305%!\207" [fortune-dir expand-file-name read-file-name "Fortune file to use: " nil ""] 7 (#$ . 4382)]) #@157 Add STRING to a fortune file FILE. Interactively, if called with a prefix argument, read the file name to use. Otherwise use the value of `fortune-file'. (defalias 'fortune-add-fortune #[(string file) "\302\303 #\207" [string file fortune-append t] 4 (#$ . 4581) (list (read-string "Fortune: ") (if current-prefix-arg (fortune-ask-file)))]) #@183 Append the current region to a local fortune-like data file. Interactively, if called with a prefix argument, read the file name to use. Otherwise use the value of `fortune-file'. (defalias 'fortune-from-region #[(beg end file) " {\306\211\211\212eb\210\307\310d\311#\211\203 \312\224\n{\202\"\313)\212eb\210\307\314d\311#\211\2039\312\224\n{\202U\315=\204N\316=\204N\317=\203S\202T\320)\321 \321\322\f\323 \260\324 \311#,\207" [beg end help-point newsgroup author string nil search-forward-regexp "^From: \\(.*\\)$" t 1 "An unknown author" "^Newsgroups: \\(.*\\)$" gnus-article-mode vm-mode rmail-mode "unknown" "\"" "\n" " in " fortune-append major-mode fortune-from-mail fortune-author-line-prefix file] 9 (#$ . 4932) (list (region-beginning) (region-end) (if current-prefix-arg (fortune-ask-file)))]) #@165 Compile fortune file. If called with a prefix asks for the FILE to compile, otherwise uses the value of `fortune-file'. This currently cannot handle directories. (defalias 'fortune-compile #[(&optional file) "\306\307!!\306\307 \nP!!\310 !\2033\310 !\2057\311 \"\2057\312\313 \"\210\314\f \315 \260!\2027\316\317 \"*\207" [file fortune-file fortune-database-extension fortune-dat fortune-strfile fortune-strfile-options expand-file-name substitute-in-file-name file-exists-p file-newer-than-file-p message "Compiling new fortune database %s" shell-command " " error "Can't compile fortune file %s" fortune-quiet-strfile-options] 6 (#$ . 5779) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) #@318 Create signature from output of the fortune program. If called with a prefix asks for the FILE to choose the fortune from, otherwise uses the value of `fortune-file'. If you want to have fortune choose from a set of files in a directory, call interactively with prefix and choose the directory as the fortune-file. (defalias 'fortune-to-signature #[(&optional file) "\212\306t\"\210 q\210\307  \n\fQ\211\n\310\311!\205 \211 +\207" [file fortune-buffer-name fortune fortune-sigstart fortune-sigend signature fortune-in-buffer buffer-string boundp message-signature mail-signature] 4 (#$ . 6507) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) #@178 Put a fortune cookie in the *fortune* buffer. When INTERACTIVE is nil, don't display it. Optional argument FILE, when supplied, specifies the file to choose the fortune from. (defalias 'fortune-in-buffer #[(interactive &optional file) "\306!\206 \307!\310\311 \206\n!!\212\fq\210\312\313!\210\314 \210 \203'\315 !\210\316\317\f\317 P%+\207" [fortune-buffer-name file fortune-file fort-file fortune-buffer fortune-always-compile get-buffer generate-new-buffer expand-file-name substitute-in-file-name toggle-read-only 0 erase-buffer fortune-compile call-process nil fortune-program fortune-program-options] 7 (#$ . 7182)]) #@291 Display a fortune cookie. If called with a prefix asks for the FILE to choose the fortune from, otherwise uses the value of `fortune-file'. If you want to have fortune choose from a set of files in a directory, call interactively with prefix and choose the directory as the fortune-file. (defalias 'fortune #[(&optional file) "\302\303\"\210\304\305 !!\210\306\307!\207" [file fortune-buffer-name fortune-in-buffer t switch-to-buffer get-buffer toggle-read-only 1] 3 (#$ . 7825) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) (provide 'fortune)