;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@27 Morse code character set.
(defvar morse-code '(("a" . ".-") ("b" . "-...") ("c" . "-.-.") ("d" . "-..") ("e" . ".") ("f" . "..-.") ("g" . "--.") ("h" . "....") ("i" . "..") ("j" . ".---") ("k" . "-.-") ("l" . ".-..") ("m" . "--") ("n" . "-.") ("o" . "---") ("p" . ".--.") ("q" . "--.-") ("r" . ".-.") ("s" . "...") ("t" . "-") ("u" . "..-") ("v" . "...-") ("w" . ".--") ("x" . "-..-") ("y" . "-.--") ("z" . "--..") ("=" . "-...-") ("?" . "..--..") ("/" . "-..-.") ("," . "--..--") ("." . ".-.-.-") (":" . "---...") ("'" . ".----.") ("-" . "-....-") ("(" . "-.--.-") (")" . "-.--.-") ("0" . "-----") ("1" . ".----") ("2" . "..---") ("3" . "...--") ("4" . "....-") ("5" . ".....") ("6" . "-....") ("7" . "--...") ("8" . "---..") ("9" . "----.") ("ä" . ".-.-") ("æ" . ".-.-") ("á" . ".--.-") ("å" . ".--.-") ("ß" . ".../...") ("é" . "..-..") ("ñ" . "--.--") ("ö" . "---.") ("ø" . "---.") ("ü" . "..--") ("@" . ".--.-.")) (#$ . 84))
#@212 NATO phonetic alphabet.
See “International Code of Signals” (INTERCO), United States
Edition, 1969 Edition (Revised 2003) available from National
Geospatial-Intelligence Agency at URL `https://www.nga.mil/'
(defvar nato-alphabet '(("a" . "Alfa") ("b" . "Bravo") ("c" . "Charlie") ("d" . "Delta") ("e" . "Echo") ("f" . "Foxtrot") ("g" . "Golf") ("h" . "Hotel") ("i" . "India") ("j" . "Juliett") ("k" . "Kilo") ("l" . "Lima") ("m" . "Mike") ("n" . "November") ("o" . "Oscar") ("p" . "Papa") ("q" . "Quebec") ("r" . "Romeo") ("s" . "Sierra") ("t" . "Tango") ("u" . "Uniform") ("v" . "Victor") ("w" . "Whiskey") ("x" . "Xray") ("y" . "Yankee") ("z" . "Zulu") ("0" . "Zero") ("1" . "One") ("2" . "Two") ("3" . "Three") ("4" . "Four") ("5" . "Five") ("6" . "Six") ("7" . "Seven") ("8" . "Eight") ("9" . "Niner") ("=" . "Equals") ("?" . "Query") ("/" . "Slash") ("," . "Comma") ("." . "Stop") (":" . "Colon") ("'" . "Apostrophe") ("-" . "Dash") ("(" . "Open") (")" . "Close") ("@" . "At")) (#$ . 1030))
#@65 Convert all text in a given region to morse code.

(fn BEG END)
(defalias 'morse-region #[514 "\211\250\203\n\301
!\262
\212\302\303\211b\210`W\205Q``T{\227\262\304\305!\203.\306\225b\210\302\262\202\307\"\211\262\203H\310\311!\210\312A\"\210\313\262\202\311u\210\302\262\202\266\203)\207" [morse-code copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 insert-before-markers "/"] 8 (#$ . 2036) "*r"])
#@74 Convert morse coded text in region to ordinary ASCII text.

(fn BEG END)
(defalias 'unmorse-region #[514 "\211\250\203\n\301
!\262
\212\302\211\211b\210`W\205e\303\304!\204#\305u\210\202\306\224\306\225{\262\307\"\211\262\204;\306\225b\210\202\310
@\311\230\203S?\211\262\203O\311\202U\312\202U
@\313\"\210\303\314!\203\315\305!\210\202\266\203)\207" [morse-code copy-marker nil looking-at "[-.]+" 1 0 rassoc replace-match "(" ")" t "/" delete-char] 8 (#$ . 2473) "*r"])
#@77 Convert all text in a given region to NATO phonetic alphabet.

(fn BEG END)
(defalias 'nato-region #[514 "\211\250\203\n\301
!\262
\212\302\303\211b\210`W\205Q``T{\227\262\304\305!\203.\306\225b\210\302\262\202\307\"\211\262\203H\310\311!\210\312A\"\210\313\262\202\311u\210\302\262\202\266\203)\207" [nato-alphabet copy-marker "" nil looking-at "\\s-+" 0 assoc delete-char 1 insert-before-markers "-"] 8 (#$ . 2974) "*r"])
#@80 Convert NATO phonetic alphabet in region to ordinary ASCII text.

(fn BEG END)
(defalias 'denato-region #[514 "\211\250\203\n\301
!\262
\212\302\211\211b\210`W\205g\303\304!\204#\305u\210\202\306\224\306\225{\262\307\310!\"\211\262\204=\306\225b\210\202\311
@\312\230\203U?\211\262\203Q\312\202W\313\202W
@\314\"\210\303\315!\203\316\305!\210\202\266\203)\207" [nato-alphabet copy-marker nil looking-at "[a-z]+" 1 0 rassoc capitalize replace-match "(" ")" t "-" delete-char] 8 (#$ . 3425) "*r"])
(provide 'morse)