Add roast color edit widget

src/roastcoloredit.w

@@ -0,0 +1,128 @@
+@* Data entry for degree of roast data.
+
+\noindent Widgets for entering roast color data change appearance depending on
+the current configuration. It should always be possible to enter data manually,
+but if communications with the hardware producing these measurements is
+possible, there will also be a button available to run the samples directly
+from \pn{}.
+
+@<Class declarations@>=
+class RoastColorEdit : public QWidget@/
+{@/
+    @[Q_OBJECT@]@;
+    @[Q_PROPERTY(QString value READ value WRITE setValue)@]@;
+    public:@/
+        RoastColorEdit();
+        QString value();
+    @[public slots@]:@/
+        void setValue(const QString &color);
+    @[private slots@]:@/
+        void readColor();
+        void measureFinished();
+        void readFinished();
+    private:
+        QLineEdit *edit;
+        QNetworkReply *networkReply;
+};
+
+@ The constructor fills the widget with a |QLineEdit| or with that and a
+|QPushButton|, connecting the clicked signal as appropriate.
+
+@<RoastColorEdit implementation@>=
+RoastColorEdit::RoastColorEdit() : edit(new QLineEdit)
+{
+    QHBoxLayout *layout = new QHBoxLayout;
+    layout->setContentsMargins(0, 0, 0, 0);
+    layout->addWidget(edit);
+    QSettings settings;
+    if(settings.value("settings/color/javalytics/enable", false).toBool())
+    {
+        QPushButton *button = new QPushButton(tr("Measure"));
+        layout->addWidget(button);
+        connect(button, SIGNAL(clicked()), this, SLOT(readColor()));
+    }
+    setLayout(layout);
+}
+
+@ When the Measure button is clicked, two network operations are taken. First,
+an HTTP POST request is sent to request running a new sample.
+
+@<RoastColorEdit implementation@>=
+void RoastColorEdit::readColor()
+{
+    QSettings settings;
+    QUrl postData;
+    postData.addQueryItem("calscale", settings.value("settings/color/javalytics/scale", 1).toString());
+    postData.addQueryItem("webcontrol", "20");
+    QNetworkRequest request(QUrl("http://" + settings.value("settings/color/javalytics/address", "192.168.1.10").toString() + "/index.zhtml"));
+    request.setHeader(QNetworkRequest::ContentTypeHeader, "application/x-www-form-urlencoded");
+    networkReply = AppInstance->network->post(request, postData.encodedQuery());
+    connect(networkReply, SIGNAL(finished()), this, SLOT(measureFinished()));
+}
+
+@ When the device has responded to the POST request, it creates an HTTP GET
+request to obtain the latest data.
+
+@<RoastColorEdit implementation@>=
+void RoastColorEdit::measureFinished()
+{
+    QSettings settings;
+    networkReply->deleteLater();
+    networkReply = AppInstance->network->get(QNetworkRequest(QUrl("http://" + settings.value("settings/color/javalytics/address", "192.168.1.10").toString() + "/data.csv")));
+    connect(networkReply, SIGNAL(finished()), this, SLOT(readFinished()));
+}
+
+@ The GET request returns all of the data stored on the device as a CSV file,
+but for this control we only care about getting the most recent measurement, so
+the last line of the response is extracted. When split on commas the fields
+contain the following:
+
+\halign{\hfil # & # \hfil \cr
+Field Number & Description \cr
+0 & Date (MM/DD/YYYY) \cr
+1 & Time (hh:mm:ss AP) \cr
+2 & Result (the value of interest) \cr
+3 & Scale \cr
+4 & Custom field 1 \cr
+5 & Custom field 2 \cr
+6 & Custom field 3 \cr
+7 & Custom field 4 \cr
+8 & Batch number \cr
+9 & Samples averaged \cr}
+
+@<RoastColorEdit implementation@>=
+void RoastColorEdit::readFinished()
+{
+    QByteArray response = networkReply->readAll();
+    networkReply->deleteLater();
+    networkReply = 0;
+    edit->setText(response.split('\n').last().split(',').at(2));
+}
+
+@ Two methods provide access to the |QLineEdit|.
+
+@<RoastColorEdit implementation@>=
+void RoastColorEdit::setValue(const QString &color)
+{
+    edit->setText(color);
+}
+
+QString RoastColorEdit::value()
+{
+    return edit->text();
+}
+
+@ This control can be added to a box layout.
+
+@<Additional box layout elements@>=
+else if(currentElement.tagName() == "roastcoloredit")
+{
+    QBoxLayout *layout = qobject_cast<QBoxLayout *>(layoutStack->top());
+    RoastColorEdit *edit = new RoastColorEdit;
+    layout->addWidget(edit);
+}
+
+@ The implementation goes into typica.cpp.
+
+@<Class implementations@>=
+@<RoastColorEdit implementation@>

src/typica.w

@@ -20330,6 +20330,8 @@ app.registerDeviceConfigurationWidget("translation", TranslationConfWidget::stat
 
 @i user.w
 
+@i roastcoloredit.w
+
 @** Local changes.
 
 \noindent This is the end of \pn{} as distributed by its author. It is expected