
(provide (quote zsigs))

(defvar zsigs-inited nil)

(defvar zsigs-load-buffer-name "*zsigs-load*")

(defvar zsigs-file-name "~/.zsigs")

(defvar zsigs-userlist nil)

(defvar zsigs-sigslist nil)

(defvar zsigs-default-sig "You don't look for love, it's gonna for you.")

(defmacro zsigs-load-buffer nil (byte-code "À‡" [(get-buffer-create zsigs-load-buffer-name)] 1))

(defun zsigs-init nil (interactive) (byte-code "ÃˆÄ!ˆÂ‰‡" [zsigs-file-name zsigs-inited t nil zsigs-load-file] 3))

(defun zsigs-load-file (filename) (interactive "fSigs file: ") (byte-code "ÂˆŠÃ!qˆÄ	!ˆÅÃ!!ˆÆÃ!!)‡" [zsigs-load-buffer-name zsigs-file-name nil get-buffer-create insert-file zsigs-process-buffer kill-buffer] 7))

(defun zsigs-process-buffer (buffer) (byte-code "eˆÃÄ	!!ÃÄ	!!ÅÆ\"ˆÅÇ
\"*‡" [userlist zsigs-load-buffer-name sigslist read get-buffer-create mapcar zsigs-add-userentry zsigs-add-sigentry] 8))

(defun zsigs-add-userentry (entry) (byte-code "Ã	@
\"?ƒ Ä
Ä	Å\"C\"‰‚  ÆÄ	AÇ\"\")‡" [found entry zsigs-userlist assoc append (0) setcdr (0)] 8))

(defun zsigs-add-sigentry (entry) (byte-code "Ã	@
\"?ƒ Ä
	C\"‰‚ Å	A\")‡" [found entry zsigs-sigslist assoc append setcdr] 5))

(defun zsigs (class instance recipient) (byte-code "Æ	
#… ÇÈ8ÉÊ8!#?ƒ ‚  *‡" [userentry class instance recipient sig zsigs-default-sig zsigs-find-entry funcall 1 zsigs-assemble-sigslist 2] 7))

(defun zsigs-assemble-sigslist (l) (byte-code "Â!ƒ ÃÄ	\"8‚ ÅÆÇ\"!‡" [l zsigs-sigslist atom 1 assoc zsigs-flatten mapcar zsigs-assemble-sigslist] 6))

(defun zsigs-find-entry (class instance recipient) (byte-code "ÆÇ	
#\"†; ÆÇ	ÅÅ#\"†; ÆÇ	
Å#\"†; ÆÇÅ
Å#\"†; ÆÇÅÅ#\"†; ÆÈ\")‡" [found class instance recipient zsigs-userlist nil assoc zsigs-build-user-string ""] 13))

(defun zsigs-build-user-string (class instance recipient) (byte-code "ÃÄ	Ä
%‡" [class instance recipient concat ":"] 6))

(defun zsigs-random (user sigs-list) (byte-code "ÂÃ 	G\"ÄWƒ [‚ 	8)‡" [index sigs-list mod random 0] 4))

(defun zsigs-multirandom (user sigs-list) (byte-code "Á!ˆÂ‡" [sigs-list zsigs-flatten "foo"] 2))

(defun zsigs-sequence (user sigs-list) (byte-code "Ä	88Å	AAAÆTG\"\"ˆ
*‡" [num user sig sigs-list 3 setcar mod] 5))

(defun zsigs-flatten (l) (byte-code "?ƒ	 Á‚ Ã!ƒ C‚ ÄÅ@!ÅA!\"‡" [l nil t atom append zsigs-flatten] 6))