app.jl

using SQLite: DB

using SQLite.DBInterface: close!

@genietools

using Nami

#

const UP = pkgdir(Nami, "public", "upload")

# TODO: Hex
const IP_HE = Dict(
    "Modifier" => "blue-grey",
    "Low" => "yellow",
    "Moderate" => "orange",
    "High" => "red",
)

#

@app begin

    @in up = true

    @in sp = false

    @in se = false

    @in na = ""

    @in da = DB()

    #

    @event ul begin

        up = false

        sp = true

        na = fileuploads["name"]

        close!(da)

        da = DB(mv(fileuploads["path"], joinpath(UP, na); force = true))

    end

    @event fi begin

        sp = false

        se = true

    end

    #

    @in ta = ""

    @out em = false

    @out re = false

    #

    @in va = Dict{Symbol, Union{Int, AbstractString}}()

    @in rs = ""

    @out rd = ""

    @in vr = false

    #

    @out va_ = Dict{Symbol, Union{Int, AbstractString}}[]

    #

    @in sy = ""

    @in ge = false

    #

    @out ch_ = vcat(string.(collect(range(1, 22))), ["X", "Y", "MT"])

    @in ch = ""

    @in st = 0

    @in en = 0

    @in rg = false

    #

    @out IP_HE = IP_HE

    @out im_ = (0, 0, 0, 0)

    #

    @onchange rs, sy, ch, st, en begin

        @info "rs changed" rs

        em = false

        re = false

    end

    @onchange va begin

        @info "va changed" va

        if isempty(va)

            em = true

        else

            rd = va[:ID]

            re = true

        end

    end

    @onbutton vr begin

        va = Nami.get_variant_by_id(da, rs)

    end

    @onchange va_ begin

        im_ = Nami.count_impact(va_)

        if im_ == (0, 0, 0, 0)

            em = true

        else

            re = true

        end

    end

    @onbutton ge begin

        va_ = Nami.get_variant(da, sy)

    end

    @onbutton rg begin

        va_ = Nami.get_variant(da, ch, st, en)

    end

end

#

function view_header()

    quasar(
        :header,
        [
            xelem(
                :div,
                "Window to your genome";
                class = "col-4 text-h6 text-center text-white",
            ),
            xelem(
                :div,
                "Nami";
                class = "col-4 text-center text-white q-mt-lg q-mb-sm",
                style = "font-size: 240%; font-family: fantasy",
            ),
            xelem(
                :div,
                xelem(
                    :div,
                    "Searching {{na}}";
                    class = "text-h6 text-right text-white q-ma-md",
                );
                class = "col-2",
                @showif(:se)
            ),
            quasar(
                :btn;
                outline = true,
                size = "md",
                color = "white",
                label = "Change",
                class = "col-1 justify-end q-ma-md",
                style = "min-width: 80px;",
                @showif(:se),
                @click("up = true; se = false;")
            ),
        ];
        class = "row items-center bg-indigo",
    )

end

function view_tab(na, la)

    quasar(:tab, xelem(:div, la; class = "text-h5 text-black"); name = na)

end

function view_input(ty, la, hi, bi)

    quasar(
        :input;
        type = ty,
        label = la,
        hint = hi,
        outlined = true,
        clearable = true,
        bg__color = "grey-2",
        class = "q-pa-sm",
        @bind(bi)
    )

end

function view_search_button(bu)

    quasar(
        :btn;
        unelevated = true,
        size = "lg",
        color = "indigo",
        label = "Search",
        class = "q-ma-lg",
        @click("$bu = true")
    )

end

function view_no_variant_found()

    xelem(:div, "No variants found"; class = "text-h4 text-black q-pa-xl", @showif(:em))

end

function view_search_title(st)

    xelem(:div, st; class = "text-h4 text-black q-pt-xl q-pb-lg")

end

function view_allele(al, la)

    ai = "$al"

    xelem(
        :div,
        quasar(
            :card,
            [
                xelem(:div, la; class = "text-h6 text-white q-pa-md"),
                xelem(
                    :div,
                    "{{$al}}";
                    class = "text-bold text-white q-pb-md q-ma-sm",
                    style = "inline-size: 144px; overflow-wrap: break-word; overflow:hidden; min-width:0; font-size: 32px",
                ),
            ];
            flat = true,
            bordered = true,
            class = Symbol(
                "($al == 'A' ? 'bg-blue' : $al == 'T' ? 'bg-cyan' : $al == 'G' ? 'bg-teal' : $al == 'C' ? 'bg-green' : 'bg-pink') + ' column flex-center q-ma-lg'",
            ),
        );
    )

end

function view_variant_information(fi, na, va)

    quasar(
        :card,
        quasar(
            :card__section,
            [
                xelem(:div, na; class = "text-h6 text-center text-charcoal"),
                xelem(
                    :img;
                    src = fi,
                    class = "q-ma-sm",
                    style = "height:40px; object-fit: contain;",
                ),
                xelem(:div, va; class = "text-h6 text-indigo q-pt-md"),
            ];
            vertical = true,
            class = "column flex-center",
        );
        flat = true,
        vertical = true,
        class = "flex-center bg-grey-2 q-mt-md q-mb-md",
    )

end

function view_impact(nu, na, co)

    quasar(
        :card,
        [
            xelem(:div, "$na"; class = "text-h6 text-white q-pa-md"),
            xelem(
                :div,
                "{{$nu}}";
                class = "text-bold text-white q-pb-md ",
                style = "font-size: 32px;",
            ),
        ];
        flat = true,
        class = "col bg-$co q-ma-lg",
        style = "max-width:160px; min-width:120px;",
    )

end

function view_impact()

    xelem(
        :div,
        [
            view_impact("im_[0]", "Modifier", IP_HE["Modifier"]),
            view_impact("im_[1]", "Low", IP_HE["Low"]),
            view_impact("im_[2]", "Moderate", IP_HE["Moderate"]),
            view_impact("im_[3]", "High", IP_HE["High"]),
        ];
        class = "row flex-center q-pa-lg",
    )

end

function view_variant_button()

    quasar(
        :scroll__area,
        [
            xelem(
                :div,
                @recur("vi in va_"),
                quasar(
                    :btn;
                    unelevated = true,
                    size = "md",
                    color! = "IP_HE[vi.Impact]",
                    label! = "vi.ID",
                    class = "q-ma-sm",
                    @click("ta = 't1'; va = vi;")
                ),
            ),
        ];
        style = "height: 480px",
    )

end

#

@page "/" path"html/view.html" layout = path"html/layout.html"