
(provide (quote zwrite))

(require (quote zsigs))

(zsigs-init)

(defvar zwrite-last-instance nil)

(defvar zwrite-last-recipient nil)

(defvar zwrite-last-class nil)

(defvar zwrite-min-height 15)

(defvar zwrite-hook nil "\
Hooks run when zwrite is entered.")

(defvar zwrite-send-hook nil "\
Hooks run when a zgram is sent.")

(defvar zwrite-path "/usr/athena/bin/" "\
Path to zephyr programs")

(defvar zwrite-last-zgram nil "\
List of class, instance, recipient, body of last *sent* zephyrgram")

(defvar zwrite-recipient-list (list (list (user-login-name))))

(defvar zwrite-instance-list (list (list)))

(defvar zwrite-class-list (list (list)))

(define-abbrev-table (quote zwrite-abbrev-table) (quote nil))

(defun zwrite-triple (class instance recipient &optional generic-buffer-name save-pair) "\
Start a zwrite process to the given triple.  Allow the
user to enter a message.  Run zwrite-hook." (byte-code "ТУ\"…
 ФХ!€Ц
ѓ Ч‚ ШЩ$!Ъ	!€Ы W…- ЬЫ Z!€Э €Юc€‰€Й‰€Я‰
€а‰€бМ!€бР!€бН!€бП!€E‰€‰€в#‰€гд !€ежз\"€ий!€ка	лPмн\"ѓђ о‚‘ прс&
‰€ту\"€фх\"€цч!)‡" [instance b generic-buffer-name class recipient zwrite-min-height local-abbrev-table zwrite-abbrev-table abbrev-mode t major-mode mode-name zwrite-target zwrite-save-pair save-pair zwrite-sig zwrite-process zwrite-path string-equal "" error "Ken you're being lame." generate-new-buffer "*Zwrite*" format "*Zwrite to <%s,%s,%s>*" switch-to-buffer window-height enlarge-window indented-text-mode "*** Zwrite process status: checking for subscribers

" zwrite-mode "Zwrite" make-local-variable zsigs use-local-map make-sparse-keymap local-set-key "" zwrite-send message "Press C-c C-c to send message" start-process "zwrite" equal "*" "-n" "-s" "-c" "-i" set-process-sentinel zwrite-sentinel set-process-filter zwrite-filter run-hooks zwrite-hook] 30))

(defun zwrite-filter (proc str) (byte-code "ЉЗ!q€eb€ИЙ!€`К €Л	`\")€МНО!
\"ѓ& Пc‚W МНР!
\"ѓ4 Сc‚W МНТ!
\"ѓU Уc€…J ФA@\"€ХЦЧ8#‚W 
c)‡" [proc start str zwrite-save-pair zwrite-target zwrite-sig t process-buffer search-forward ": " end-of-line delete-region string-match regexp-quote "Type your message now" "Ready for message." "Not logged in" "*** NO SUBSCRIBERS ***" "Message sent" "zwrite successful" zwrite-add-to-list message "%s: %s" 2] 15))

(defun zwrite-send nil (interactive) (byte-code "Е€ЖЗ!€ИЙК\"!€Љdb€n?… Лc€eb€МН!€l…' МН!€О`d\"П
	\"€Р	C\"‰)€П
С\")€ТУ!…K ФУ\"€Хp!€ЦЧ Д\"‡" [zwrite-target text zwrite-process zwrite-last-zgram t nil run-hooks zwrite-send-hook message format "Sending message to %s" "
" forward-line 1 buffer-substring process-send-string append "" fboundp zlog-add apply bury-buffer switch-to-buffer other-buffer] 16))

(defun zwrite-resend nil (interactive) (byte-code "Б€ѓ ВГ8Д8Е8#€Ж8c‚ ЗИ!‡" [zwrite-last-zgram nil zwrite-triple 0 1 2 3 error "No last zephyrgram"] 5))

(defun zwrite-string-to-triple (msg class inst recip) (byte-code "ЗИЙКБ
ЛPEМН\"ѓ Б‚ CОПРС%#\"Т\"€ТУ\")€ФХ!…9 Х$‡" [p nil zwrite-path recip class inst msg apply start-process append "Zwrite" "zwrite" equal "*" list "-n" "-c" "-i" process-send-string "
" fboundp zlog-add] 12))

(defun zwrite-sentinel (proc str) (byte-code "БВ!!‡" [proc kill-buffer process-buffer] 3))

(defun zwrite-get-option (prompt specified last list) (byte-code "†  ЕЖЗ
#\"И	Й\"ѓ КЛ=‚ 	)†  ‡" [specified input prompt last list completing-read format "%s [%s]: " equal "" 1 0] 5))

(defun zwrite-personal (&optional recip) (interactive) (byte-code "Г€ДЕ	
$‰€ЖЗИГ
B%‡" [zwrite-last-recipient recip zwrite-recipient-list nil zwrite-get-option "Send personal message to" zwrite-triple "message" "personal"] 8))

(defun zwrite-instance (&optional inst) (interactive) (byte-code "Г€ДЕ	
$‰€ЖЗИГ
B%‡" [zwrite-last-instance inst zwrite-instance-list nil zwrite-get-option "Write to instance" zwrite-triple "message" "*"] 8))

(defun zwrite-class (&optional class) (interactive) (byte-code "Г€ДЕ	
$‰€ЖЗ\"€ИЙК!ЛК!OЙМ!ЛМ!OНГ
B%‡" [zwrite-last-class class zwrite-class-list nil zwrite-get-option "Write to class(instance)" string-match "\\(.*\\)(\\(.*\\))" zwrite-triple match-beginning 1 match-end 2 "*"] 13))

(defun zwrite-i-help nil (interactive) (byte-code "А€БВ!‡" [nil zwrite-instance "help"] 2))

(defun zwrite-i-sipb nil (interactive) (byte-code "А€БВ!‡" [nil zwrite-instance "sipb"] 2))

(defun zwrite-punt-instance (instance) (interactive "sInstance to punt: ") (byte-code "Б€ГДPБ
ЕPЖЗИ&‡" [instance nil zwrite-path start-process "punt-instance-" "zctl" "unsub" "message" "*"] 8))

(defun zwrite-punt-all nil (interactive) (byte-code "Б€ВГPБББД%€ЕЖБГPЗИЙК&‡" [zwrite-path nil call-process "zctl" "cancel" start-process "resubscribe-personal" "sub" "message" "personal" "*"] 9))

(defun zwrite-help-rtfm nil (interactive) (byte-code "А€БВГДЕ$‡" [nil zwrite-string-to-triple "rtfm..." "message" "help" "*"] 5))

(defun zwrite-help-tryit nil (interactive) (byte-code "А€БВГДЕ$‡" [nil zwrite-string-to-triple "try it..." "message" "help" "*"] 5))

(defun zwrite-reply-to-sender nil (interactive) (byte-code "Б€БЉГД!q€eb€ЕЖБВ#…! ЗИЙ 8КЙ 8\"‰)€…* Л!)‡" [sender nil t get-buffer "*zwgc*" re-search-forward "From \\(.*\\) on" buffer-substring 2 match-data 3 zwrite-personal] 8))

(defun zwrite-reply-to-instance nil (interactive) (byte-code "Б€БЉВГ!q€eb€ДЕ!… ЖЗИ 8ЙИ 8\"‰)€…( К!)‡" [instance nil get-buffer "*zwgc*" re-search-forward " *\\([^ 
]*\\)" buffer-substring 2 match-data 3 zwrite-instance] 8))

(defun zwrite-reply-to-instance-unless-personal nil (interactive) (byte-code "В€ВЉГД!q€eb€ЕЖ!… ЗИЙ 8КЙ 8\"‰)€…G ЛМ!Н\"ѓ3 О ‚G ЛМ!П\"ѓD РПСТ#‚G У!)‡" [instance t nil get-buffer "*zwgc*" re-search-forward " *\\([^ 
]*\\)" buffer-substring 2 match-data 3 string-equal downcase "personal" zwrite-reply-to-sender "looney" zwrite-triple "reply" "*" zwrite-instance] 14))

(defun zwrite-add-to-list (list name) "\
Make a new entry at the beginning of LIST which contains NAME as
it's car.  Creates a list suitable for use as an alist." (byte-code "Е	\"?… ГB	@	ABЖ	
\"€З	\"€	*‡" [name list new-entry nil new-cell assoc setcar setcdr] 5))