qbit/pr-status-pl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make reload actually work

Browse Source
This commit is contained in:
Aaron Bieber 2024-04-25 10:26:38 -06:00
parent a65335bf31
commit 3930d1f978
No known key found for this signature in database
2 changed files with 63 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

101
pr-status.pl
View File

@ -5618,7 +5618,7 @@ var $elm$core$Task$perform = F2(
}); });
var $elm$browser$Browser$document = _Browser_document; var $elm$browser$Browser$document = _Browser_document;
var $author$project$Main$GotSearches = function (a) { var $author$project$Main$GotSearches = function (a) {
return {$: 3, a: a}; return {$: 4, a: a};
}; };
var $elm$json$Json$Decode$decodeString = _Json_runOnString; var $elm$json$Json$Decode$decodeString = _Json_runOnString;
var $elm$http$Http$BadStatus_ = F2( var $elm$http$Http$BadStatus_ = F2(
@ -6410,7 +6410,7 @@ var $elm$http$Http$get = function (r) {
var $elm$json$Json$Decode$list = _Json_decodeList; var $elm$json$Json$Decode$list = _Json_decodeList;
var $author$project$Main$Search = F2( var $author$project$Main$Search = F2(
function (pull_request, title) { function (pull_request, title) {
return {B: pull_request, L: title}; return {w: pull_request, L: title};
}); });
var $elm$json$Json$Decode$field = _Json_decodeField; var $elm$json$Json$Decode$field = _Json_decodeField;
var $elm$json$Json$Decode$int = _Json_decodeInt; var $elm$json$Json$Decode$int = _Json_decodeInt;
@ -6430,10 +6430,10 @@ var $author$project$Main$NoOp = 0;
var $author$project$Main$Open = 1; var $author$project$Main$Open = 1;
var $author$project$Main$initialModel = { var $author$project$Main$initialModel = {
aR: _List_Nil, aR: _List_Nil,
y: '', z: '',
af: {aO: 0, aM: 0.0}, af: {aO: 0, aM: 0.0},
m: false, m: false,
B: 0, w: 0,
a_: '', a_: '',
aG: _List_Nil, aG: _List_Nil,
a2: 1, a2: 1,
@ -6446,7 +6446,7 @@ var $author$project$Main$init = function (_v0) {
var $elm$core$Platform$Sub$batch = _Platform_batch; var $elm$core$Platform$Sub$batch = _Platform_batch;
var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil); var $elm$core$Platform$Sub$none = $elm$core$Platform$Sub$batch(_List_Nil);
var $author$project$Main$GCResult = function (a) { var $author$project$Main$GCResult = function (a) {
return {$: 2, a: a}; return {$: 3, a: a};
}; };
var $author$project$Main$WorkStatus = F2( var $author$project$Main$WorkStatus = F2(
function (action, updateTime) { function (action, updateTime) {
@ -6483,7 +6483,7 @@ var $author$project$Main$getGC = $elm$http$Http$get(
a5: '/gc' a5: '/gc'
}); });
var $author$project$Main$GotResult = function (a) { var $author$project$Main$GotResult = function (a) {
return {$: 1, a: a}; return {$: 2, a: a};
}; };
var $elm$json$Json$Decode$map7 = _Json_map7; var $elm$json$Json$Decode$map7 = _Json_map7;
var $author$project$Main$Complete = 0; var $author$project$Main$Complete = 0;
@ -6504,7 +6504,7 @@ var $author$project$Main$resultDecoder = A8(
$elm$json$Json$Decode$map7, $elm$json$Json$Decode$map7,
F7( F7(
function (pull_request, release, status, title, branches, searches, error) { function (pull_request, release, status, title, branches, searches, error) {
return {aR: branches, y: error, af: $author$project$Main$initialModel.af, m: false, B: pull_request, a_: release, aG: searches, a2: status, L: title, as: $author$project$Main$initialModel.as}; return {aR: branches, z: error, af: $author$project$Main$initialModel.af, m: false, w: pull_request, a_: release, aG: searches, a2: status, L: title, as: $author$project$Main$initialModel.as};
}), }),
A2($elm$json$Json$Decode$field, 'pull_request', $elm$json$Json$Decode$int), A2($elm$json$Json$Decode$field, 'pull_request', $elm$json$Json$Decode$int),
A2($elm$json$Json$Decode$field, 'release', $elm$json$Json$Decode$string), A2($elm$json$Json$Decode$field, 'release', $elm$json$Json$Decode$string),
@ -6519,15 +6519,15 @@ var $author$project$Main$resultDecoder = A8(
'searches', 'searches',
$elm$json$Json$Decode$list($author$project$Main$searchDecoder)), $elm$json$Json$Decode$list($author$project$Main$searchDecoder)),
A2($elm$json$Json$Decode$field, 'error', $elm$json$Json$Decode$string)); A2($elm$json$Json$Decode$field, 'error', $elm$json$Json$Decode$string));
var $author$project$Main$getResult = function (model) { var $author$project$Main$getResult = function (pr) {
return $elm$http$Http$get( return $elm$http$Http$get(
{ {
aT: A2($elm$http$Http$expectJson, $author$project$Main$GotResult, $author$project$Main$resultDecoder), aT: A2($elm$http$Http$expectJson, $author$project$Main$GotResult, $author$project$Main$resultDecoder),
a5: '/' + $elm$core$String$fromInt(model.B) a5: '/' + $elm$core$String$fromInt(pr)
}); });
}; };
var $author$project$Main$UpdateResult = function (a) { var $author$project$Main$UpdateResult = function (a) {
return {$: 4, a: a}; return {$: 5, a: a};
}; };
var $author$project$Main$getUpdate = $elm$http$Http$get( var $author$project$Main$getUpdate = $elm$http$Http$get(
{ {
@ -6562,15 +6562,15 @@ var $author$project$Main$update = F2(
case 0: case 0:
return _Utils_Tuple2( return _Utils_Tuple2(
$author$project$Main$loadingModel, $author$project$Main$loadingModel,
$author$project$Main$getResult(model)); $author$project$Main$getResult(model.w));
case 1: case 2:
if (msg.a.$ === 1) { if (msg.a.$ === 1) {
var err = msg.a.a; var err = msg.a.a;
return _Utils_Tuple2( return _Utils_Tuple2(
_Utils_update( _Utils_update(
model, model,
{ {
y: 'Error: ' + $author$project$Main$httpErr(err), z: 'Error: ' + $author$project$Main$httpErr(err),
m: false m: false
}), }),
$elm$core$Platform$Cmd$none); $elm$core$Platform$Cmd$none);
@ -6578,14 +6578,14 @@ var $author$project$Main$update = F2(
var pr = msg.a.a; var pr = msg.a.a;
return _Utils_Tuple2(pr, $elm$core$Platform$Cmd$none); return _Utils_Tuple2(pr, $elm$core$Platform$Cmd$none);
} }
case 3: case 4:
if (msg.a.$ === 1) { if (msg.a.$ === 1) {
var err = msg.a.a; var err = msg.a.a;
return _Utils_Tuple2( return _Utils_Tuple2(
_Utils_update( _Utils_update(
model, model,
{ {
y: 'Error: ' + $author$project$Main$httpErr(err), z: 'Error: ' + $author$project$Main$httpErr(err),
m: false m: false
}), }),
$elm$core$Platform$Cmd$none); $elm$core$Platform$Cmd$none);
@ -6597,14 +6597,14 @@ var $author$project$Main$update = F2(
{aG: searches}), {aG: searches}),
$elm$core$Platform$Cmd$none); $elm$core$Platform$Cmd$none);
} }
case 2: case 3:
if (msg.a.$ === 1) { if (msg.a.$ === 1) {
var err = msg.a.a; var err = msg.a.a;
return _Utils_Tuple2( return _Utils_Tuple2(
_Utils_update( _Utils_update(
model, model,
{ {
y: 'Error: ' + $author$project$Main$httpErr(err), z: 'Error: ' + $author$project$Main$httpErr(err),
m: false m: false
}), }),
$elm$core$Platform$Cmd$none); $elm$core$Platform$Cmd$none);
@ -6616,14 +6616,14 @@ var $author$project$Main$update = F2(
{af: resp, m: false}), {af: resp, m: false}),
$elm$core$Platform$Cmd$none); $elm$core$Platform$Cmd$none);
} }
case 4: case 5:
if (msg.a.$ === 1) { if (msg.a.$ === 1) {
var err = msg.a.a; var err = msg.a.a;
return _Utils_Tuple2( return _Utils_Tuple2(
_Utils_update( _Utils_update(
model, model,
{ {
y: 'Error: ' + $author$project$Main$httpErr(err), z: 'Error: ' + $author$project$Main$httpErr(err),
m: false m: false
}), }),
$elm$core$Platform$Cmd$none); $elm$core$Platform$Cmd$none);
@ -6635,13 +6635,13 @@ var $author$project$Main$update = F2(
{m: false, as: resp}), {m: false, as: resp}),
$elm$core$Platform$Cmd$none); $elm$core$Platform$Cmd$none);
} }
case 5: case 6:
var pr = msg.a; var pr = msg.a;
return _Utils_Tuple2( return _Utils_Tuple2(
_Utils_update( _Utils_update(
model, model,
{ {
B: function () { w: function () {
var _v1 = $elm$core$String$toInt(pr); var _v1 = $elm$core$String$toInt(pr);
if (!_v1.$) { if (!_v1.$) {
var a = _v1.a; var a = _v1.a;
@ -6652,18 +6652,23 @@ var $author$project$Main$update = F2(
}() }()
}), }),
$elm$core$Platform$Cmd$none); $elm$core$Platform$Cmd$none);
case 7: case 1:
var pr = msg.a;
return _Utils_Tuple2(
$author$project$Main$loadingModel,
$author$project$Main$getResult(pr));
case 8:
return _Utils_Tuple2($author$project$Main$loadingModel, $author$project$Main$getGC); return _Utils_Tuple2($author$project$Main$loadingModel, $author$project$Main$getGC);
default: default:
return _Utils_Tuple2($author$project$Main$loadingModel, $author$project$Main$getUpdate); return _Utils_Tuple2($author$project$Main$loadingModel, $author$project$Main$getUpdate);
} }
}); });
var $author$project$Main$CollectGarbage = {$: 7}; var $author$project$Main$CollectGarbage = {$: 8};
var $author$project$Main$RunSearch = {$: 0}; var $author$project$Main$RunSearch = {$: 0};
var $author$project$Main$SetPR = function (a) { var $author$project$Main$SetPR = function (a) {
return {$: 5, a: a}; return {$: 6, a: a};
}; };
var $author$project$Main$UpdateBackend = {$: 6}; var $author$project$Main$UpdateBackend = {$: 7};
var $rtfeldman$elm_css$VirtualDom$Styled$Node = F3( var $rtfeldman$elm_css$VirtualDom$Styled$Node = F3(
function (a, b, c) { function (a, b, c) {
return {$: 0, a: a, b: b, c: c}; return {$: 0, a: a, b: b, c: c};
@ -8473,7 +8478,7 @@ var $rtfeldman$elm_css$Css$Internal$lengthConverter = F3(
aj: 0, aj: 0,
Q: 0, Q: 0,
R: 0, R: 0,
z: 0, A: 0,
ak: 0, ak: 0,
J: numericValue, J: numericValue,
ap: 0, ap: 0,
@ -8502,7 +8507,7 @@ var $rtfeldman$elm_css$Css$rgb = F3(
return { return {
av: 1, av: 1,
ax: b, ax: b,
x: 0, y: 0,
aA: g, aA: g,
aF: r, aF: r,
C: A2( C: A2(
@ -9339,7 +9344,7 @@ var $author$project$Main$viewResult = function (data) {
if (_v0 === '') { if (_v0 === '') {
return $rtfeldman$elm_css$Html$Styled$text(''); return $rtfeldman$elm_css$Html$Styled$text('');
} else { } else {
var prStr = $elm$core$String$fromInt(data.B); var prStr = $elm$core$String$fromInt(data.w);
return A2( return A2(
$rtfeldman$elm_css$Html$Styled$table, $rtfeldman$elm_css$Html$Styled$table,
_List_Nil, _List_Nil,
@ -9396,14 +9401,29 @@ var $author$project$Main$viewResult = function (data) {
])); ]));
} }
}; };
var $author$project$Main$SearchPR = function (a) {
return {$: 1, a: a};
};
var $rtfeldman$elm_css$Html$Styled$ol = $rtfeldman$elm_css$Html$Styled$node('ol'); var $rtfeldman$elm_css$Html$Styled$ol = $rtfeldman$elm_css$Html$Styled$node('ol');
var $author$project$Main$viewSearch = function (search) { var $author$project$Main$viewSearch = function (search) {
var prStr = $elm$core$String$fromInt(search.B); var prStr = $elm$core$String$fromInt(search.w);
return A2( return A2(
$rtfeldman$elm_css$Html$Styled$ol, $rtfeldman$elm_css$Html$Styled$ol,
_List_Nil, _List_Nil,
_List_fromArray( _List_fromArray(
[ [
A2(
$rtfeldman$elm_css$Html$Styled$span,
_List_fromArray(
[
A2($rtfeldman$elm_css$Html$Styled$Attributes$style, 'cursor', 'pointer'),
$rtfeldman$elm_css$Html$Styled$Events$onClick(
$author$project$Main$SearchPR(search.w))
]),
_List_fromArray(
[
$rtfeldman$elm_css$Html$Styled$text('⟳')
])),
$rtfeldman$elm_css$Html$Styled$text(prStr), $rtfeldman$elm_css$Html$Styled$text(prStr),
$rtfeldman$elm_css$Html$Styled$text(': ' + search.L), $rtfeldman$elm_css$Html$Styled$text(': ' + search.L),
A2( A2(
@ -9442,23 +9462,6 @@ var $author$project$Main$viewSearch = function (search) {
[ [
$rtfeldman$elm_css$Html$Styled$text('json') $rtfeldman$elm_css$Html$Styled$text('json')
])) ]))
])),
A2(
$rtfeldman$elm_css$Html$Styled$li,
_List_Nil,
_List_fromArray(
[
A2(
$rtfeldman$elm_css$Html$Styled$a,
_List_fromArray(
[
$rtfeldman$elm_css$Html$Styled$Events$onClick(
$author$project$Main$SetPR(prStr))
]),
_List_fromArray(
[
$rtfeldman$elm_css$Html$Styled$text('Refresh')
]))
])) ]))
])) ]))
])); ]));
@ -9470,7 +9473,7 @@ var $author$project$Main$viewSearches = function (searches) {
A2($elm$core$List$map, $author$project$Main$viewSearch, searches)); A2($elm$core$List$map, $author$project$Main$viewSearch, searches));
}; };
var $author$project$Main$viewValidation = function (model) { var $author$project$Main$viewValidation = function (model) {
var _v0 = model.B; var _v0 = model.w;
if (!_v0) { if (!_v0) {
return true; return true;
} else { } else {
@ -9556,7 +9559,7 @@ var $author$project$Main$view = function (model) {
])) ]))
])), ])),
function () { function () {
var _v0 = model.y; var _v0 = model.z;
if (_v0 === '') { if (_v0 === '') {
return $rtfeldman$elm_css$Html$Styled$text(''); return $rtfeldman$elm_css$Html$Styled$text('');
} else { } else {
@ -9568,7 +9571,7 @@ var $author$project$Main$view = function (model) {
]), ]),
_List_fromArray( _List_fromArray(
[ [
$rtfeldman$elm_css$Html$Styled$text(model.y) $rtfeldman$elm_css$Html$Styled$text(model.z)
])); ]));
} }
}(), }(),

18
src/Main.elm
View File

@ -4,7 +4,7 @@ import Browser exposing (Document)
import Css exposing (..) import Css exposing (..)
import Css.Animations exposing (keyframes) import Css.Animations exposing (keyframes)
import Html.Styled exposing (..) import Html.Styled exposing (..)
import Html.Styled.Attributes exposing (css, href, placeholder, style) import Html.Styled.Attributes exposing (class, css, href, placeholder, style)
import Html.Styled.Events exposing (onClick, onInput) import Html.Styled.Events exposing (onClick, onInput)
import Http exposing (..) import Http exposing (..)
import Json.Decode as Decode exposing (Decoder, field, list, map2, map7, string) import Json.Decode as Decode exposing (Decoder, field, list, map2, map7, string)
@ -23,6 +23,7 @@ type WorkAction
type Msg type Msg
= RunSearch = RunSearch
| SearchPR Int
| GotResult (Result Http.Error Model) | GotResult (Result Http.Error Model)
| GCResult (Result Http.Error WorkStatus) | GCResult (Result Http.Error WorkStatus)
| GotSearches (Result Http.Error Searches) | GotSearches (Result Http.Error Searches)
@ -104,7 +105,7 @@ update : Msg -> Model -> ( Model, Cmd Msg )
update msg model = update msg model =
case msg of case msg of
RunSearch -> RunSearch ->
( loadingModel, getResult model ) ( loadingModel, getResult model.pull_request )
GotResult (Err err) -> GotResult (Err err) ->
( { model | error = "Error: " ++ httpErr err, loading = False }, Cmd.none ) ( { model | error = "Error: " ++ httpErr err, loading = False }, Cmd.none )
@ -143,6 +144,9 @@ update msg model =
, Cmd.none , Cmd.none
) )
SearchPR pr ->
( loadingModel, getResult pr )
CollectGarbage -> CollectGarbage ->
( loadingModel, getGC ) ( loadingModel, getGC )
@ -265,12 +269,12 @@ viewSearch search =
String.fromInt search.pull_request String.fromInt search.pull_request
in in
ol [] ol []
[ text prStr [ span [ style "cursor" "pointer", onClick (SearchPR search.pull_request) ] [ text "⟳" ]
, text prStr
, text (": " ++ search.title) , text (": " ++ search.title)
, ul [] , ul []
[ li [] [ a [ href ("https://github.com/NixOS/nixpkgs/pull/" ++ prStr) ] [ text "nixpkgs" ] ] [ li [] [ a [ href ("https://github.com/NixOS/nixpkgs/pull/" ++ prStr) ] [ text "nixpkgs" ] ]
, li [] [ a [ href ("/" ++ prStr) ] [ text "json" ] ] , li [] [ a [ href ("/" ++ prStr) ] [ text "json" ] ]
, li [] [ a [ onClick (SetPR prStr) ] [ text "Refresh" ] ]
] ]
] ]
@ -365,10 +369,10 @@ makeRow title data =
] ]
getResult : Model -> Cmd Msg getResult : Int -> Cmd Msg
getResult model = getResult pr =
Http.get Http.get
{ url = "/" ++ String.fromInt model.pull_request { url = "/" ++ String.fromInt pr
, expect = Http.expectJson GotResult resultDecoder , expect = Http.expectJson GotResult resultDecoder
} }