/**
 * Makes anything it attaches to capable of removing something's ability to produce light until it is destroyed
 *
 * The permanent version of this is [/datum/element/light_eater]
 */
/datum/component/light_eater
	dupe_mode = COMPONENT_DUPE_UNIQUE_PASSARGS
	/// Tracks things this light eater has eaten
	var/list/eaten_lights

/datum/component/light_eater/Initialize(list/_eaten)
	if(!isatom(parent) && !istype(parent, /datum/reagent))
		return COMPONENT_INCOMPATIBLE

	. = ..()
	if(!LAZYLEN(_eaten))
		return

	LAZYINITLIST(eaten_lights)
	var/list/cached_eaten_lights = eaten_lights
	for(var/morsel in _eaten)
		LAZYSET(cached_eaten_lights, morsel, TRUE)
		RegisterSignal(morsel, COMSIG_QDELETING, PROC_REF(deref_eaten_light))

/datum/component/light_eater/Destroy(force)
	for(var/light in eaten_lights)
		var/atom/eaten_light = light
		eaten_light.RemoveElement(/datum/element/light_eaten)
		UnregisterSignal(eaten_light, COMSIG_QDELETING)
	eaten_lights = null
	return ..()

/datum/component/light_eater/RegisterWithParent()
	. = ..()
	RegisterSignal(parent, COMSIG_LIGHT_EATER_DEVOUR, PROC_REF(on_devour))
	parent.AddElement(/datum/element/light_eater)

/datum/component/light_eater/UnregisterFromParent()
	. = ..()
	parent.RemoveElement(/datum/element/light_eater)
	UnregisterSignal(parent, COMSIG_LIGHT_EATER_DEVOUR)

/datum/component/light_eater/InheritComponent(datum/component/C, i_am_original, list/_eaten)
	. = ..()
	if(!LAZYLEN(_eaten))
		return

	LAZYINITLIST(eaten_lights)
	var/list/cached_eaten_lights = eaten_lights
	for(var/morsel in _eaten)
		RegisterSignal(morsel, COMSIG_QDELETING, PROC_REF(deref_eaten_light))
		LAZYSET(cached_eaten_lights, morsel, TRUE)

/// Handles storing references to lights eaten by the light eater.
/datum/component/light_eater/proc/on_devour(datum/source, atom/morsel)
	SIGNAL_HANDLER
	LAZYSET(eaten_lights, morsel, TRUE)
	RegisterSignal(morsel, COMSIG_QDELETING, PROC_REF(deref_eaten_light))
	return NONE

/// Handles dereferencing deleted lights.
/datum/component/light_eater/proc/deref_eaten_light(atom/eaten_light, force)
	SIGNAL_HANDLER
	UnregisterSignal(eaten_light, COMSIG_QDELETING)
	LAZYREMOVE(eaten_lights, eaten_light)
	return NONE