Packages

sprocket

0.1.3
2.1.0 2.0.0 1.0.0 0.4.2 0.4.1 0.4.0 0.3.2 0.3.1 0.3.0 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.10 0.1.9 0.1.8 0.1.7 0.1.6 0.1.5 0.1.4 0.1.3 0.1.2 0.1.1 0.1.0

A library for building live views and real-time server components in Gleam

HexDocs

Current section

Files

Jump to
Readme
26 Versions
8 Dependencies
Dependants
Files
Activity
sprocket src docs@routes.erl
Raw

src/docs@routes.erl 

-module(docs@routes).

-compile([no_auto_import, nowarn_unused_vars]).



-export([router/1, string_body_middleware/1, stack/1]).



-spec not_found() -> gleam@http@response:response(binary()).

not_found() ->

    _pipe = gleam@http@response:new(404),

    _pipe@1 = gleam@http@response:set_body(_pipe, <<"Page not found"/utf8>>),

    gleam@http@response:prepend_header(

        _pipe@1,

        <<"content-type"/utf8>>,

        <<"text/plain"/utf8>>

    ).



-spec router(docs@app_context:app_context()) -> fun((gleam@http@request:request(binary())) -> gleam@http@response:response(binary())).

router(Ctx) ->

    fun(Request) ->

        case {erlang:element(2, Request),

            gleam@http@request:path_segments(Request)} of

            {get, _} ->

                docs@controllers@index:index(Request, Ctx);



            {_, _} ->

                not_found()

        end

    end.



-spec bad_request() -> gleam@http@response:response(binary()).

bad_request() ->

    _pipe = gleam@http@response:new(400),

    _pipe@1 = gleam@http@response:set_body(

        _pipe,

        <<"Bad request. Please try again"/utf8>>

    ),

    gleam@http@response:prepend_header(

        _pipe@1,

        <<"content-type"/utf8>>,

        <<"text/plain"/utf8>>

    ).



-spec string_body_middleware(

    fun((gleam@http@request:request(binary())) -> gleam@http@response:response(binary()))

) -> fun((gleam@http@request:request(bitstring())) -> gleam@http@response:response(gleam@bit_builder:bit_builder())).

string_body_middleware(Service) ->

    fun(Request) ->

        _pipe = case gleam@bit_string:to_string(erlang:element(4, Request)) of

            {ok, Body} ->

                Service(gleam@http@request:set_body(Request, Body));



            {error, _} ->

                bad_request()

        end,

        gleam@http@response:map(_pipe, fun gleam@bit_builder:from_string/1)

    end.



-spec stack(docs@app_context:app_context()) -> fun((gleam@http@request:request(bitstring())) -> gleam@http@response:response(gleam@bit_builder:bit_builder())).

stack(Ctx) ->

    _pipe = router(Ctx),

    _pipe@1 = string_body_middleware(_pipe),

    _pipe@2 = docs@log_requests:middleware(_pipe@1),

    _pipe@3 = docs@static:middleware(_pipe@2),

    gleam@http@service:prepend_response_header(

        _pipe@3,

        <<"made-with"/utf8>>,

        <<"Gleam"/utf8>>

    ).