hughjfchen

#!/usr/bin/env stack
-- stack --resolver lts-8.16 script

-- for https://www.reddit.com/r/haskell/comments/6emo9g/trying_to_get_the_basic_example_in_cloudhaskell/
{-# LANGUAGE LambdaCase, RecordWildCards #-}
import System.Environment (getArgs)
import Control.Distributed.Process
import Control.Distributed.Process.Node (initRemoteTable)

import Control.Distributed.Process.Backend.SimpleLocalnet

hughjfchen

{-# LANGUAGE TypeOperators #-}
module Main
(main
) where

import Protolude hiding (async, local)

import Data.String
import Data.Aeson
import Transient.Internals

hughjfchen

<div class="ui sidebar vertical left menu overlay visible" style="-webkit-transition-duration: 0.1s; overflow: visible !important;">
  <div class="item logo">
    <img src="img/logo.png" /><img src="img/thumblogo.png" style="display: none" />
  </div>
  <div class="ui accordion">
    <a class="title item">Dashboard  <i class="dropdown icon"></i>
                </a>
    <div class="content">
      <a class="item" href="dashboard.html">Dashboard
                    </a>

hughjfchen

(ns mqtt-insertion.core
  (:require [clojure.core.async :refer :all])
  (:import (org.eclipse.paho.client.mqttv3
            MqttCallback
            MqttAsyncClient
            MqttConnectOptions
            MqttDeliveryToken
            MqttException
            MqttMessage
            MqttTopic

hughjfchen

;; event fired function
;; snippet: {:on-click #(dispatch [:edit-checklist checklist])}

(defn checklist-table [dt-id data-sub-vector]
  (.log js/console "to-display within checklist-table")
  [rdt/datatable
   dt-id
   data-sub-vector
   [{::rdt/column-key   [:title]
     ::rdt/column-label "标题"}