ChanViewer: Start working on a simple read-only 4Chan viewer

Since they are nice enough to provide a JSON API over HTTP, this makes
for a perfect way to exercise our networking code a bit. :^)

Applications/ChanViewer/Makefile

@@ -0,0 +1,9 @@
+include ../../Makefile.common
+
+OBJS = \
+    ThreadCatalogModel.o \
+    main.o
+
+APP = ChanViewer
+
+include ../Makefile.common

Applications/ChanViewer/ThreadCatalogModel.cpp

@@ -0,0 +1,110 @@
+#include "ThreadCatalogModel.h"
+#include <AK/JsonArray.h>
+#include <AK/JsonObject.h>
+#include <AK/JsonValue.h>
+#include <LibCore/CHttpRequest.h>
+#include <LibCore/CNetworkJob.h>
+#include <LibCore/CNetworkResponse.h>
+#include <stdio.h>
+
+ThreadCatalogModel::ThreadCatalogModel()
+{
+    update();
+}
+
+ThreadCatalogModel::~ThreadCatalogModel()
+{
+}
+
+void ThreadCatalogModel::update()
+{
+    CHttpRequest request;
+    request.set_hostname("a.4cdn.org");
+    request.set_path("/g/catalog.json");
+
+    auto* job = request.schedule();
+
+    job->on_finish = [job, this](bool success) {
+        auto* response = job->response();
+        dbg() << "job finished! success=" << success << ", response=" << response;
+        dbg() << "payload size: " << response->payload().size();
+
+        auto json = JsonValue::from_string(response->payload());
+
+        if (json.is_array()) {
+            JsonArray new_catalog;
+
+            for (auto& page : json.as_array().values()) {
+                if (!page.is_object())
+                    continue;
+                auto threads_value = page.as_object().get("threads");
+                if (!threads_value.is_array())
+                    continue;
+                for (auto& thread : threads_value.as_array().values()) {
+                    new_catalog.append(thread);
+                }
+            }
+
+            m_catalog = move(new_catalog);
+        }
+
+        did_update();
+    };
+}
+
+int ThreadCatalogModel::row_count(const GModelIndex&) const
+{
+    return m_catalog.size();
+}
+
+String ThreadCatalogModel::column_name(int column) const
+{
+    switch (column) {
+    case Column::ThreadNumber:
+        return "#";
+    case Column::Text:
+        return "Text";
+    case Column::ReplyCount:
+        return "Replies";
+    case Column::ImageCount:
+        return "Images";
+    default:
+        ASSERT_NOT_REACHED();
+    }
+}
+
+GModel::ColumnMetadata ThreadCatalogModel::column_metadata(int column) const
+{
+    switch (column) {
+    case Column::ThreadNumber:
+        return { 70, TextAlignment::CenterRight };
+    case Column::Text:
+        return { 200, TextAlignment::CenterLeft };
+    case Column::ReplyCount:
+        return { 45, TextAlignment::CenterRight };
+    case Column::ImageCount:
+        return { 40, TextAlignment::CenterRight };
+    default:
+        ASSERT_NOT_REACHED();
+    }
+}
+
+GVariant ThreadCatalogModel::data(const GModelIndex& index, Role role) const
+{
+    auto& thread = m_catalog.at(index.row()).as_object();
+    if (role == Role::Display) {
+        switch (index.column()) {
+        case Column::ThreadNumber:
+            return thread.get("no").to_u32();
+        case Column::Text:
+            return thread.get("com").to_string();
+        case Column::ReplyCount:
+            return thread.get("replies").to_u32();
+        case Column::ImageCount:
+            return thread.get("images").to_u32();
+        default:
+            ASSERT_NOT_REACHED();
+        }
+    }
+    return {};
+}

Applications/ChanViewer/ThreadCatalogModel.h

@@ -0,0 +1,30 @@
+#pragma once
+
+#include <AK/JsonArray.h>
+#include <LibGUI/GModel.h>
+
+class ThreadCatalogModel final : public GModel {
+public:
+    enum Column {
+        ThreadNumber,
+        Text,
+        ReplyCount,
+        ImageCount,
+        __Count,
+    };
+
+    static NonnullRefPtr<ThreadCatalogModel> create() { return adopt(*new ThreadCatalogModel); }
+    virtual ~ThreadCatalogModel() override;
+
+    virtual int row_count(const GModelIndex& = GModelIndex()) const override;
+    virtual int column_count(const GModelIndex& = GModelIndex()) const override { return Column::__Count; }
+    virtual String column_name(int) const override;
+    virtual ColumnMetadata column_metadata(int) const override;
+    virtual GVariant data(const GModelIndex&, Role = Role::Display) const override;
+    virtual void update() override;
+
+private:
+    ThreadCatalogModel();
+
+    JsonArray m_catalog;
+};

Applications/ChanViewer/main.cpp

@@ -0,0 +1,25 @@
+#include "ThreadCatalogModel.h"
+#include <LibGUI/GApplication.h>
+#include <LibGUI/GBoxLayout.h>
+#include <LibGUI/GTableView.h>
+#include <LibGUI/GWindow.h>
+
+int main(int argc, char** argv)
+{
+    GApplication app(argc, argv);
+
+    auto* window = new GWindow;
+    window->set_title("ChanViewer");
+    window->set_rect(100, 100, 640, 480);
+
+    auto* widget = new GWidget;
+    window->set_main_widget(widget);
+    widget->set_layout(make<GBoxLayout>(Orientation::Vertical));
+
+    auto* catalog_view = new GTableView(widget);
+    catalog_view->set_model(ThreadCatalogModel::create());
+
+    window->show();
+
+    return app.exec();
+}

Kernel/build-root-filesystem.sh

@@ -83,6 +83,7 @@ cp ../Applications/PaintBrush/PaintBrush mnt/bin/PaintBrush
 cp ../Applications/QuickShow/QuickShow mnt/bin/QuickShow
 cp ../Applications/Piano/Piano mnt/bin/Piano
 cp ../Applications/SystemDialog/SystemDialog mnt/bin/SystemDialog
+cp ../Applications/ChanViewer/ChanViewer mnt/bin/ChanViewer
 cp ../Demos/HelloWorld/HelloWorld mnt/bin/HelloWorld
 cp ../Demos/HelloWorld2/HelloWorld2 mnt/bin/HelloWorld2
 cp ../Demos/RetroFetch/RetroFetch mnt/bin/RetroFetch
@@ -116,6 +117,7 @@ ln -s PaintBrush mnt/bin/pb
 ln -s QuickShow mnt/bin/qs
 ln -s Piano mnt/bin/pi
 ln -s SystemDialog mnt/bin/sd
+ln -s ChanViewer mnt/bin/cv
 echo "done"
 
 # Run local sync script, if it exists

Kernel/makeall.sh

@@ -43,6 +43,7 @@ build_targets="$build_targets ../Applications/PaintBrush"
 build_targets="$build_targets ../Applications/QuickShow"
 build_targets="$build_targets ../Applications/Piano"
 build_targets="$build_targets ../Applications/SystemDialog"
+build_targets="$build_targets ../Applications/ChanViewer"
 build_targets="$build_targets ../DevTools/VisualBuilder"
 build_targets="$build_targets ../Games/Minesweeper"
 build_targets="$build_targets ../Games/Snake"