;ELC
;;; Compiled by zaurus@localhost.localdomain on Fri Sep 24 08:39:04 2010
;;; from file /home/zaurus/elisp/prayer.el
;;; in Emacs version 21.2.1
;;; with bytecomp version 2.85
;;; 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 "`prayer.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\301\207" [prayer-dir expand-file-name "~/cave/green/prayers/"] 2)
#@22 View morning prayers
(defalias 'morning-prayers #[nil "\300\301!\207" [prayer-view ("cross.la" "our-father.la" "angelus.la" "st-francis" "holy-spirit" "memorare" "anima-christi" "dr-richardson" "lorica" "glory-be.la")] 2 (#$ . 691) nil])
#@124 View Beginning Prayers (Raymond L. Richmond. 'Learning to Pray.' <http://chastitysf.guidetopsychology.com/howtopray.htm>.)
(defalias 'beginning-prayers #[nil "\300\301!\207" [prayer-view ("cross" "cross.la" "our-father" "our-father.la" "hail-mary" "hail-mary.la" "glory-be" "glory-be.la" "st-francis" "holy-spirit" "memorare" "anima-christi" "dr-richardson")] 2 (#$ . 936) nil])
#@33 Insert separator text in buffer
(defalias 'prayer-sep #[nil "\300c\207" ["++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n"] 1 (#$ . 1321)])
#@40 Concatenate and view prayer text files
(defalias 'prayer-view #[(text-list) "\305\306!\210\307	\n@\310Q!\210\nA\311\211\2031\f@db\210\312 \210db\210\307	\310Q!\210\fA\211\204*eb\210\313\314\")\207" [buf prayer-dir text-list fn #1=#:--dolist-temp--29719 "*Prayers*" switch-to-buffer insert-file-contents ".txt" nil prayer-sep view-buffer kill-buffer] 5 (#$ . 1482)])