
(require (quote event))

(require (quote epoch-util))

(require (quote mini-cl))

(provide (quote selection))

(provide (quote convert-selection))

(defvar epoch::selection-alist nil "\
*Alist of selection atoms and data for selections owned by epoch.")

(defvar epoch::convert-selection-alist nil "\
*An alist in which each pair consists of target atom and function
used to convert the selection.  The functions have no arguments and should
return a string or nil")

(defun add-selection-target (target function) "\
Add a TARGET atom and an associated conversion FUNCTION to the
epoch::convert-selection-alist" (byte-code "ГД\"‰€	
DB‰‡" [epoch::convert-selection-alist target function delete-if (lambda (x) (byte-code "В	@\"‡" [target x equal] 3))] 3))

(defun convert-to-target (target) "\
Calls a conversion function based on TARGET." (byte-code "АБВЏ‡" [err (byte-code "ДЕ	
\"!Ж!ѓ ЗЋИ!)‚ Г)‡" [func target epoch::convert-selection-alist nil cadr assoc functionp ((byte-code "А‡" [nil] 1)) funcall] 5) ((error (byte-code "А‡" [nil] 1)))] 3))

(setq epoch::convert-selection-hook (quote convert-to-target))

(defvar selection::functions nil "\
List of selection/selection-clear handler")

(defun install-selection (selection) (byte-code "	Е!ѓ ‚' ;ѓ$ Б9ѓ Ж!‰‚! Ж!‚' ЗИ!)€Й	\"?…8 	ДBB‰‡" [PrOpErTy selection t selection::functions nil resourcep intern-atom error "Invalid property argument" assoc] 7))

(defun remove-selection (selection) (byte-code "	Д!ѓ ‚' ;ѓ$ Б9ѓ Е!‰‚! Е!‚' ЖЗ!)€ИЙ\"‰‡" [PrOpErTy selection t selection::functions resourcep intern-atom error "Invalid property argument" delete-if (lambda (x) (byte-code "В	@\"‡" [selection x equal] 3))] 7))

(defun push-selection (selection handler) (byte-code "	Ж!ѓ ‚' ;ѓ$ Б9ѓ З!‰‚! З!‚' ИЙ!)€К	\":ѓ= ЛAB\"‚D 	DB‰)‡" [PrOpErTy selection t elist selection::functions handler resourcep intern-atom error "Invalid property argument" assoc setcdr] 9))

(defun pop-selection (selection) (byte-code "	Ж!ѓ ‚' ;ѓ$ Б9ѓ З!‰‚! З!‚' ИЙ!)€К	\":?ѓ8 Е‚B Л!МН!\"€)‡" [PrOpErTy selection t elist selection::functions nil resourcep intern-atom error "Invalid property argument" assoc cadr setcdr cddr] 11))

(defun ignore-selection (selection) (byte-code "	Г!ѓ ‚' ;ѓ$ Б9ѓ Д!‰‚! Д!‚' ЕЖ!)€З	В\"‡" [PrOpErTy selection t resourcep intern-atom error "Invalid property argument" push-selection] 7))

(defun resume-selection (selection) (byte-code "	Е!ѓ ‚' ;ѓ$ Б9ѓ Ж!‰‚! Ж!‚' ЗИ!)€Й	!…4 К!?ѓ< Д‚@ Л	\")‡" [PrOpErTy selection t h nil resourcep intern-atom error "Invalid property argument" pop-selection functionp push-selection] 9))

(defun selection::handler (type value scr) (byte-code "	КЛ\"!М!ѓ НЋО	$)‚' ПР	\"‰	+‡" [selection::atom value selection::event-handler epoch::event-handler callback selection::functions type scr nil epoch::selection-alist cadr assoc functionp ((byte-code "??ѓ
 Б‚ Д
!€‰‡" [epoch::event-handler nil selection::atom selection::event-handler ignore-selection] 3)) funcall delete-if (lambda (x) (byte-code "В	@\"‡" [value x equal] 3))] 8))

(defun mouse-clear (type value screen) (byte-code "ВГ\"‰€Д	!… Е	!€Ж ‡" [epoch::selection-alist drag-zone delete-if (lambda (x) (byte-code "В	@\"‡" [value x equal] 3)) zonep delete-zone redisplay-screen] 5))

(install-event (quote selection-clear))

(push-event (quote selection-clear) (quote selection::handler))