;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\304\305\306#\207" [TeX-dialect require tex latex TeX-add-style-hook "dinbrief" #[0 "\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) #@55 Insert text ignoring active markers. (fn &rest ARGS) (defalias 'LaTeX-dinbrief-insert '(macro . #[128 "\300\301\302BE\207" [progn (if mark-active (deactivate-mark)) insert] 5 (#$ . 941)])) #@57 Insert some useful packages for writing german letters. (defalias 'LaTeX-dinbrief-style #[0 "\306\307!\203\n\307\202 \310\212eb\210\311\312d\313#\203\314\315!\210\316\317!\210\211 \210\203)\320 \210 \321\n\322 \f\323 \261\210\324 \210\203>\320 \210 \321\n\325 \f\326 \261\210\211 \210\203S\320 \210 \321\f\327 \261\210)\330\323\326\327#\207" [mark-active TeX-esc LaTeX-optop LaTeX-optcl TeX-grop TeX-grcl fboundp indent-relative-first-indent-point indent-relative-maybe re-search-forward ".begin.document." t beginning-of-line 1 open-line 2 deactivate-mark "usepackage" "latin1,utf8" "inputenc" newline-and-indent "T1" "fontenc" "ngerman" TeX-run-style-hooks] 9 (#$ . 1138)]) #@76 Insert ENVIRONMENT and prompt for recipient and address. (fn ENVIRONMENT) (defalias 'LaTeX-dinbrief-env-recipient #[257 "\304 \305\306!\307 \305\310\311 \"\305\312!\305\313!\305\314!\305\315!\305\316!\305\317!\305\320!\305\321!\305\322!\323\324!\2031\324\2022\325\326\230\203\241\203@\327 \210 \330\261\210\331 \210\203O\327 \210 \332\261\210\331 \210\203^\327 \210 \333\261\210\331 \210\203m\327 \210 \334\261\210\331 \210\305\335\"\331 \210\211G\336U\204\235\203\213\327 \210\203\222\327 \210 \337\n \261\210\331 \210\210\202\332\203\250\327 \210 \330\261\210\331 \210\203\267\327 \210 \332\261\210\331 \210\203\306\327 \210 \333\261\210\331 \210\203\325\327 \210 \334\261\210\331 \210G\336U\204\366\203\353\327 \210 \340\n \261\210\331 \210\nG\336U\204\203\327 \210 \341\n \261\210\331 \210\331 \210i\342\nG\336U?\2055G\336U?\2052\343 \211\343RP R\"\210\212\344 \345\346#\203d\347 \344\n\345\346#\203ci\350 \211P\351!\346#\203b\352 \210\211j\210\202M\210\210)\203l\327 \210\353c\210\211j\266 G\336U\204\216\203\202\327 \210 \354\n\f \261\210\331 \210G\336U\204\261\203\234\327 \210 \355\n\261\210\203\251\327 \210 \261\210\331 \210G\336U\204\314\203\300\327 \210 \356\n\n \261\210\331 \210G\336U\204\347\203\333\327 \210 \357\n \261\210\331 \210G\336U\204\203\365\327 \210 \360\n \261\210\331 \210\203\327 \210 \361\nG\336U\203 \343P\202 \353\261\210\211 \210\212\203*\327 \210\353 \362\nG\336U\203< \343P\202> \353\261\210\211 )\207" [mark-active TeX-esc TeX-grop TeX-grcl 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: " fboundp indent-relative-first-indent-point indent-relative-maybe "ja" 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" "closing"] 24 (#$ . 1833)]) #@37 Read and write the senders address. (defalias 'LaTeX-dinbrief-sender #[0 "\304\305\306 \"\304\307!\304\310!G\311U?\205\211eb\210\312\313d\314#\203\"\315\316!\210\317y\210\203,\320 \210 \321\n\261\210G\311U\204T\203A\320 \210\322 \211\261\210\323 \210\203Q\320 \210c\210\211G\311U\204u\203b\320 \210\322 \324\261\210\323 \210\203r\320 \210\211c\210\203|\320 \210 c\210\323 \210\325\325\260\207" [mark-active 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 -1 deactivate-mark "address" " " newline-and-indent "par" ", "] 8 (#$ . 4117) nil]) #@40 Read and return the recipient address. (defalias 'LaTeX-dinbrief-recipient #[0 "\301\302!\301\303!G\304U\204\211G\304U\204\305\211\305\260\207\207\211G\304U?\205(\211\207" [TeX-esc TeX-read-string "Wohnhaft in Strasse: " "Aus der Ortschaft: " 0 " "] 8 (#$ . 4807) nil]) #@63 Return a string representing todays date according to flavor. (defalias 'LaTeX-dinbrief-today #[0 "\300 \301\302\303\"\210\304\224\304\225O\305\224\305\225O\306\224\306\225O\307\310!\311\"\2039\311\"A\262\306GV\2039\312P\262\313\314%\207" [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"] 12 (#$ . 5096) nil])