Packages
nitro
6.11.9
11.4.16
11.4.15
11.4.14
9.9.7
9.9.6
8.2.4
8.2.3
8.2.2
8.2.1
8.2.0
7.12.1
7.10.0
7.9.3
7.9.2
7.9.1
7.9.0
7.8.3
7.8.2
7.8.0
7.7.1
7.7.0
7.6.2
7.6.1
7.6.0
7.5.0
7.4.2
7.4.1
7.4.0
7.2.1
7.2.0
7.1.1
7.1.0
6.12.0
6.11.11
6.11.10
6.11.9
6.11.8
6.11.7
6.11.6
6.11.4
6.11.2
6.11.1
6.10.9
6.10.8
6.10.7
6.10.6
6.10.5
6.10.4
6.10.3
6.10.2
6.10.1
6.9.1
6.6.1
6.5.0
6.4.4
6.4.3
6.4.2
6.4.1
6.4.0
5.12.4
5.12.3
5.12.2
5.12.1
5.12.0
5.11.1
5.11.0
5.9.2
5.9.1
5.8.5
5.8.4
5.8.3
5.8.1
5.8.0
5.6.1
5.5.1
5.4.3
5.4.2
5.4.1
5.3.1
5.3.0
5.2.1
5.1.7
5.1.6
5.1.5
5.1.4
5.1.3
5.1.2
5.1.1
4.12.11
4.12.10
4.12.9
4.12.8
4.12.7
4.12.6
4.12.5
4.12.4
4.12.3
4.12.2
4.12.1
4.12.0
4.11.13
4.11.12
4.11.11
4.11.10
4.11.9
4.11.8
4.11.7
4.11.6
4.11.5
4.11.4
4.11.3
4.11.2
4.11.1
4.11.0
4.10.9
4.10.8
4.10.7
4.10.6
4.10.5
4.10.4
4.10.3
4.10.2
4.10.1
4.10.0
4.7.7
4.7.4
4.7.3
4.7.2
4.7.1
4.7.0
4.4.1
4.4.0
1.4.0
NITRO Nitrogen Web Framework
Current section
Files
Jump to
Current section
Files
lib/comboSearch.ex
defmodule NITRO.Combo.Search do
require NITRO
require Record
Record.defrecord(:state, uid: [], pid: [], chunks: 0, value: [], reader: [], opts: [], feed: [])
def start(uid, value, field, feed, opts) do
Supervisor.start_link([], strategy: :one_for_one, name: NITRO.Combo.Search)
state = state(uid: uid, pid: self(), value: value, reader: :erlang.apply(:kvs, :reader, [feed]), opts: opts, feed: feed)
stop(uid, field)
pi =
NITRO.pi(
module: NITRO.Combo.Search,
table: :async,
sup: NITRO.Combo.Search,
state: state,
name: "#{uid}#{field}",
timeout: :brutal_kill,
restart: :temporary
)
case :nitro_pi.start(pi) do
{pid,_} -> send(pid, {:filterComboValues, :init, value})
x -> x
end
end
def stop(uid, field) do
case :nitro_pi.pid(:async, "#{uid}#{field}") do
[] -> :ok
pid ->
:erlang.exit(pid, :kill)
try do :nitro_pi.stop(:async, "#{uid}#{field}") catch _,_ -> :skip end
end
end
def comboScroll(NITRO.comboScroll(uid: uid, dom: field)) do
case :nitro_pi.pid(:async, "#{uid}#{field}") do
[] -> []
pid -> send(pid, {:filterComboValues, :append, []})
end
end
def keyUp(NITRO.comboKey(uid: uid, value: value, dom: field, feed: feed, delegate: module)) do
opts = [index: NITRO.Combo.index(module), field: field, delegate: module]
comboContainer = :nitro.atom([:comboContainer, :nitro.to_list(field)])
:nitro.display(:nitro.atom([:comboContainer, field]), :block)
:nitro.clear(comboContainer)
:nitro.wire("comboCloseFormById('#{:nitro.atom([:nitro.to_list(field), 'form'])}');")
:nitro.wire("comboLookupChange('#{field}');")
:nitro.wire(NITRO.bind(target: :nitro.to_binary(comboContainer), type: :scroll, postback: onscroll(uid, field, module)))
start(uid, value, field, feed, opts)
end
def onscroll(uid, field, delegate), do:
:erlang.iolist_to_binary([
"if (event.target && (event.target.scrollTop + event.target.offsetHeight + 10 >= event.target.scrollHeight)) {",
"ws.send(enc(tuple(atom('direct'),
tuple(atom('comboScroll'),",
"bin('#{uid}'),",
"bin('#{field}'),",
"atom('#{delegate}'))",
")));",
"}"
])
def proc(:init, NITRO.pi() = pi), do: {:ok, pi}
def proc({:filterComboValues, cmd, value0}, NITRO.pi(state: state(chunks: chunks) = st) = pi) do
state(uid: uid, feed: feed, reader: r, value: prev, pid: pid, opts: opts) = st
m = Keyword.get(opts, :delegate, [])
field = Keyword.get(opts, :field, [])
value = case cmd do :append -> prev; _ -> :string.lowercase(:unicode.characters_to_list(value0, :unicode)) end
r1 = :erlang.apply(:kvs, :take, [:erlang.apply(:kvs, :setfield, [r, :args, 10])])
case :erlang.apply(:kvs, :field, [r1, :args]) do
[] ->
send(pid, {:direct, NITRO.comboInsert(dom: field, delegate: m, chunks: chunks, status: :finished)})
{:stop, :normal, NITRO.pi(pi, state: state(st, reader: :erlang.apply(:kvs, :setfield, [r1, :args, []])))}
rows ->
filtered =
case value do
'all' -> rows
_ ->
:lists.filter(fn x -> :lists.any(&filter(value, x, &1), Keyword.get(opts, :index, [])) end, rows)
end
newChunks = chunks + length(filtered)
send(pid, {:direct, NITRO.comboInsert(dom: field, delegate: m, chunks: newChunks, feed: feed, rows: filtered)})
chunks < 100 and
case :nitro_pi.pid(:async, "#{uid}#{field}") do [] -> []; pid -> send(pid, {:filterComboValues, cmd, value0}) end
{:noreply, NITRO.pi(pi, state: state(st, value: value, chunks: newChunks, reader: :erlang.apply(:kvs, :setfield, [r1, :args, []])))}
end
end
def proc(_, pi), do: {:noreply, pi}
defp filter(val, obj, i) do
fld =
if is_function(i) do
i.(obj)
else
fldVal = :erlang.apply(:kvs, :field, [obj, i])
if fldVal == elem(obj, 0), do: :nitro.to_list(fldVal), else: fldVal
end |> NITRO.Combo.to_list()
fld != elem(obj, 0) and :string.rstr(:string.lowercase(:nitro.to_list(fld)), val) > 0
end
end