;ELC ;;; Compiled ;;; in Emacs version 25.3.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303\304\305#\207" [LaTeX-dialect require tex TeX-add-style-hook "dinbrief" #[nil "\300\301\302\"\210\303\304\305\"\210\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333&\207" [add-hook LaTeX-document-style-hook LaTeX-dinbrief-style LaTeX-add-environments ("letter" LaTeX-dinbrief-env-recipient) "dinquote" TeX-add-symbols ("address" "Absender: ") ("postremark" "Postvermerk: ") ("date" "Datum: ") ("subject" "Betreff: ") ("handling" "Behandlungsvermerk: ") ("cc" "Verteiler: ") ("place" "Heutiger Ort: ") "makelabels" "nowindowrules" "windowrules" "nowindowtics" "windowtics" "disabledraftstandard" "enabledraftstandard" "centeraddress" "normaladdress" ("encl" "Anlagen: ") ("backaddress" "Retouradresse: ") ("signature" "Unterschrift: ") ("opening" "Anrede: ") ("closing" "Schluss: ")] 22]] 4) #@38 Insert text ignoring active markers. (defalias 'LaTeX-dinbrief-insert '(macro . #[(&rest args) "\301\302\303BE\207" [args progn (if (TeX-mark-active) (TeX-deactivate-mark)) insert] 4 (#$ . 1271)])) #@57 Insert some useful packages for writing german letters. (defalias 'LaTeX-dinbrief-style #[nil "\212eb\210\305\306d\307#\203\310\311!\210\312\313!\210\314 \210\315 \203\316 \210\317 \320\n \321\f\261\210\322 \210\315 \2035\316 \210\317 \323\n \324\f\261\210\322 \210\315 \203K\316 \210\317 \325\f\261\210\326\321!\210\326\324!\210\326\325!)\207" [TeX-esc LaTeX-optop LaTeX-optcl TeX-grop TeX-grcl re-search-forward ".begin.document." t beginning-of-line 1 open-line 2 indent-relative-maybe TeX-mark-active TeX-deactivate-mark "usepackage" "latin1,utf8" "inputenc" newline-and-indent "T1" "fontenc" "ngerman" TeX-run-style-hooks] 8 (#$ . 1476)]) #@58 Insert ENVIRONMENT and prompt for recipient and address. (defalias 'LaTeX-dinbrief-env-recipient #[(environment) "\306 \307\310!\311 \307\312\313 \"\307\314!\307\315!\307\316!\307\317!\307\320!\307\321!\307\322!\307\323!\307\324!456789:5\325\230\203\273\326 \203J\327 \210;\330\261\210\331 \210\326 \203[\327 \210;\332\261\210\331 \210\326 \203l\327 \210;\333\261\210\331 \210\326 \203}\327 \210;\334\261\210\331 \210\307\335:\"<\331 \210\261\210\331 \210)\202\374\326 \203\303\327 \210;\330\261\210\331 \210\326 \203\324\327 \210;\332\261\210\331 \210\326 \203\345\327 \210;\333\261\210\331 \210\326 \203\366\327 \210;\334\261\210\331 \210 G\336U\204\326 \203\327 \210;\340= >\261\210\331 \2107G\336U\204;\326 \203,\327 \210;\341=7>\261\210\331 \210\331 \210i?\342@=98G\336U?\205c9G\336U?\205`\343;\211\343R8P>R\"\210\212\344>\345\346#\203\234\347 A\344=\345\346#\203\233iB\350;\211P\351A!\346#\203\232\352 \210Bj\210\202\202)))\326 \203\245\327 \210\353c\210?j\210)6G\336U\204\314\326 \203\275\327 \210;\354=6>\261\210\331 \210\fG\336U\204\364\326 \203\333\327 \210;\355=\261\210\326 \203\353\327 \210\f>\261\210\331 \2104G\336U\204\326 \203\327 \210;\356=4>\261\210\331 \210 G\336U\2040\326 \203\"\327 \210;\357= >\261\210\331 \210G\336U\204M\326 \203?\327 \210;\360=>\261\210\331 \210\326 \203U\327 \210;\361= G\336U\203h;\343P\202i >\353\261\210\362 \210\212\326 \203{\327 \210\353;\363=\nG\336U\203\217;\343P\202\220\n>\353\261\210\362 .\207" [anlage signature closing opening betreff verteil LaTeX-dinbrief-sender TeX-read-string "Empfänger: " LaTeX-dinbrief-recipient "Datum: " LaTeX-dinbrief-today "Postvermerk: " "Fenster (ja/nein): " "Behandlungsvermerk: " "Verteiler: " "Betreff: " "Anrede: " "Schluss: " "Unterschrift: " "Anlagen: " "ja" TeX-mark-active TeX-deactivate-mark "enabledraftstandard" newline-and-indent "centeraddress" "nowindowrules" "windowtics" "Retouradresse: " 0 "backaddress" "signature" "date" LaTeX-insert-environment " " search-backward nil move point-marker search-forward marker-position newline "\n" "postremark" "subject" "handling" "cc" "encl" "opening" indent-relative-maybe "closing" vermerk fenster postremark date address recipient sender TeX-esc retouradr TeX-grop TeX-grcl indentation environment addr-end addr-column] 14 (#$ . 2138)]) #@37 Read and write the senders address. (defalias 'LaTeX-dinbrief-sender #[nil "\306\307\310 \"\306\311!\306\312!\211G\313U?\205\223eb\210\314\315d\316#\203%\317\320!\210\321\320!\210\322 \2031\323 \210 \324\f\n\261\210 G\313U\204[\322 \203G\323 \210\325 \211\261\210\326 \210\322 \203X\323 \210 c\210G\313U\204~\322 \203j\323 \210\325 \327\261\210\326 \210\322 \203{\323 \210c\210\322 \203\206\323 \210 c\210\326 \210\n\330 \330\260+\207" [ort str name TeX-esc TeX-grop TeX-grcl TeX-read-string "Absender: " user-full-name "Meine Strasse: " "Mein Wohnort: " 0 re-search-forward ".end.document." t beginning-of-line 1 previous-line TeX-mark-active TeX-deactivate-mark "address" " " newline-and-indent "par" ", "] 6 (#$ . 4641) nil]) #@40 Read and return the recipient address. (defalias 'LaTeX-dinbrief-recipient #[nil "\303\304!\303\305!\211G\306U\204%G\306U\204! \307\n\211\307\260\202. \202.G\306U?\205.*\207" [ort str TeX-esc TeX-read-string "Wohnhaft in Strasse: " "Aus der Ortschaft: " 0 " "] 7 (#$ . 5398) nil]) #@63 Return a string representing todays date according to flavor. (defalias 'LaTeX-dinbrief-today #[nil "\306 \307\310\311 \"\210 \312\224\312\225O \313\224\313\225O \314\224\314\225O\315\316!\317\f\"\203;\317\f\"A\314 GV\203;\320 P\321\322\n \f %.\207" [month-alist ctime-string place day month year current-time-string (("Jan" . "Januar") ("Feb" . "Februar") ("Mar" . "M\\\"arz") ("Apr" . "April") ("May" . "Mai") ("Jun" . "Juni") ("Jul" . "Juli") ("Aug" . "August") ("Sep" . "September") ("Oct" . "Oktober") ("Nov" . "November") ("Dec" . "Dezember")) string-match "^\\S-+\\s-+\\(\\S-+\\)\\s-+\\(\\S-+\\)\\s-+\\S-+\\s-+\\(\\S-+\\)" 3 1 2 TeX-read-string "Heutiger Ort: " assoc "0" format "%s, den %s. %s %s"] 6 (#$ . 5699) nil])