Dmitrii 'Mamut' Dimandt dmitriid

The problem concerns the following: How to properly isolate components in lists, and work with events from those components?

Problem description:

retrieve a list of objects (called events) from the server
create and display a list of these events
each event display has a "Sign up" button. When clicking this button we should produce a reaction to the corresponding event

Given the code below:

The HTTP request is for some reason performed twice (should happen only once, on startup).

Running

> ies -S mix
elixir> Slax.Monitor start

##mix.exs

The answer: it should've been .merge in button's model, not .combineLatest. Obviously

Intended behaviour:

click the button
while the request is sent, display 'Loading...'
when the response is received, display original button
there are random color changes when the button is clicked (just to see that everything works)

-module(lc).

-export([lc/0]).

lc() ->
 [{X, Y} || X <- lists:seq(1, 5), Y <- lists:seq(1, 5), X rem 2 == 0, Y rem 2 == 1 ].

core:

	// @mariuslundgard
	// The component
	import {pluckSwitch} from './stream-helpers'

	function main (sources) {
	const sinks$ = NodeComponent({...sources})
	// etc.

	return {
	DOM: pluckSwitch('DOM', sinks$),

	# Plugins
	#
	# Плагину достаточно выставить наружу command, принимающую context
	#
	# Где context — это
	# %{ :scope => :jabber, # или там :slack или там :icq
	# :from => ...,
	# :to => ...,
	# :room => ...
	# }

	///////////
	// main.js
	///////////
	import Rx from 'rx';
	import {h} from '@cycle/dom';

	const main = (sources) => {

	const HELLO_URL = 'https://something/api/v2/or-other/26';
	const request$ = Rx.Observable.just(HELLO_URL);

	A jtjgets(J jt,Cp){A y;B b;Cv;I j,k,m,n;UC*s;
	*jt->adbreak=0;
	if(b=1==p)p=""; / 1 means literal input */
	if(jt->dcs){
	++jt->dcs->dcn; j=jt->dcs->dci;
	y=jt->dcs->dcy; n=AN(y); s=UAV(y);
	RZ(j<n);
	jt->dcs->dcj=k=j;
	jt->dcs->dci=j=advl(j,n,s);
	m=j-k; if(m&&32>s[k+m-1])--m; if(m&&32>s[k+m-1])--m;

	get_status_url_prop() ->
	?FORALL( {Username, Lower}
	, gen_username()
	, <<"profiles/", Lower/binary ,"/data/status.json">> == util_content:get_status_url(Username)
	).

	gen_username() ->
	?LET( Username
	, list(char())
	, begin