;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\302\313\310\301\310\314&\210\315\316\317\320\321\322\310\301&\210\315\323\324\325\321\326\310\301&\210\315\327\330\331\321\332\310\301&\210\315\333\334\335\321\332\310\301&\210\315\336\302\337\321\340\306\341\310\301& \210\315\342\343\344\321\332\310\301&\210\315\345\346\347\321\332\310\301&\210\315\350\351\352\321\332\310\301&\210\315\353\354\355\321\356\310\301&\210\315\357\360\361\321\332\310\312&\210\315\362\363\364\321\365\310\312&\210\315\366\367\370\321\332\310\312&\210\315\371\346\372\321\332\310\312&\210\315\373\346\374\321\332\310\312&\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 custom-declare-variable fortune-dir "~/docs/ascii/misc/fortunes/" "The directory to look in for local fortune cookies files." :type directory fortune-file (expand-file-name "usenet" fortune-dir) "The file in which local fortune cookies will be stored." file fortune-database-extension ".dat" "The extension of the corresponding fortune database.\nNormally you won't have a reason to change it." string fortune-program "fortune" "Program to select a fortune cookie." fortune-program-options "List of options to pass to the fortune program." (choice (repeat (string :tag "Option")) (string :tag "Obsolete string of options")) "23.1" fortune-strfile "strfile" "Program to compute a new fortune database." fortune-strfile-options "" "Options to pass to the strfile program (a string)." fortune-quiet-strfile-options "> /dev/null" "Text added to the command for running `strfile'.\nBy default it discards the output produced by `strfile'.\nSet this to \"\" if you would like to see the output." fortune-always-compile t "Non-nil means automatically compile fortune files.\nIf nil, you must invoke `fortune-compile' manually to do that." boolean fortune-author-line-prefix " -- " "Prefix to put before the author name of a fortunate." fortune-fill-column fill-column "Fill column for fortune files." integer fortune-from-mail "private e-mail" "String to use to characterize that the fortune comes from an e-mail.\nNo need to add an `in'." fortune-sigstart "Some text to insert before the fortune cookie, in a mail signature." fortune-sigend "Some text to insert after the fortune cookie, in a mail signature."] 10) (defvar fortune-buffer-name "*fortune*") (defconst fortune-end-sep "\n%\n") #@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 (#$ . 2948)]) #@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 (#$ . 3676)]) #@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 (#$ . 3875) (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 \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] 8 (#$ . 4226) (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\f!\206\311\312\f\"\313 !\2039\314 \"\205=\315\316 \"\210\317 \320 \260!\202=\311\321 \"+\207" [file fortune-file fortune-database-extension fortune-dat fortune-strfile strfile expand-file-name substitute-in-file-name executable-find error "Can't find strfile program %s" file-exists-p file-newer-than-file-p message "Compiling new fortune database %s" shell-command " " "Can't compile fortune file %s" fortune-strfile-options fortune-quiet-strfile-options] 6 (#$ . 5071) (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\306\307\"\210 q\210\310  \n\fQ\211 \311\312!\205 \211\n+\207" [file fortune-buffer-name fortune fortune-sigstart fortune-sigend signature fortune-in-buffer t buffer-string boundp message-signature mail-signature] 4 (#$ . 5869) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) #@158 Put a fortune cookie in the *fortune* buffer. INTERACTIVE is ignored. 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!!r\fq\210\312\313 \210\203&\314 !\210\315\316\317\f\317\320;\203;\321!\202= C\"&,\207" [fortune-buffer-name file fortune-file fort-file fortune-buffer inhibit-read-only get-buffer generate-new-buffer expand-file-name substitute-in-file-name t erase-buffer fortune-compile apply call-process nil append split-string fortune-always-compile fortune-program fortune-program-options] 9 (#$ . 6549)]) #@180 Display a fortune cookie to the mini-buffer. If called with a prefix, it has the same behavior as `fortune'. Optional FILE is a fortune file from which a cookie will be selected. (defalias 'fortune-message #[(&optional file) "\303\304!rq\210\305\216p\306\307\n\"\210n\203\310\311!\210\312\313\314 \",\207" [#1=#:temp-buffer fortune-buffer-name file generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] fortune-in-buffer t delete-char -1 message "%s" buffer-string] 3 (#$ . 7223) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) #@290 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) "\303\304\"\210\305\306 !!\210\304\211\207" [file fortune-buffer-name buffer-read-only fortune-in-buffer t switch-to-buffer get-buffer] 3 (#$ . 7820) (list (if current-prefix-arg (fortune-ask-file) fortune-file))]) (provide 'fortune)