mrmurphy

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Html.App exposing (beginnerProgram)


type alias Model =
    { showSelect : Bool
    , selectVal : Maybe String

mrmurphy

Theme:

• UI Theme : https://atom.io/themes/atom-material-ui
• Color Scheme : https://atom.io/themes/one-light-syntax

Plugins:

• Format : https://atom.io/packages/elm-format
• Elm Language : https://atom.io/packages/language-elm
• Elmjutsu : https://atom.io/packages/elmjutsu

mrmurphy

module Model.Lenses exposing (..)

-- other imports omitted
import Monocle.Optional as MO
import RemoteData


entryInList : String -> MO.Optional (List Entry) Entry
entryInList id =
    { getOption = List.Extra.find (\entry -> entry.id == id)

mrmurphy

dayone.me

• Log in to dayone.me
• Log in to dayone.me with apple auth
• Forgot password?
• Create account
• Link Apple ID
• Unlink Apple ID
• Change Password
• Change Email Address
• Add email address (apple only accounts)

mrmurphy

Verifying my Blockstack ID is secured with the address 18Fj9tXaLucYW57miX6oteLJaN8AHcgDkq https://explorer.blockstack.org/address/18Fj9tXaLucYW57miX6oteLJaN8AHcgDkq

mrmurphy

type queryBuilder;

type t = (. string) => queryBuilder;

type querySql('options) = {
  .
  "method": string,
  "options": 'options,
  "bindings": array(string),
  "sql": string,

mrmurphy

/* Prom is a library that provides
<$> (map)
and 
>>= (bind, or flatMap)
for promises.
*/
open Prom;

/*
 A Handler is a more functional and type-safe way of dealing with composable "middleware" in the express chain.

mrmurphy

const ynab = require("ynab");
const SQL = require("sql-template-strings");
const sqlite = require("sqlite");

let personalAccessToken = process.env.YNAB_ACCESS_TOKEN;
let client = new ynab.API(personalAccessToken);

async function go() {
  const db = await sqlite.open("./transactions.sqlite");

mrmurphy

type pomWithError('data, 'err) = Js.Promise.t(Result.t('data, 'err));
type pom('data) = pomWithError('data, unit);

module JsPromise = {
  let make = () => {
    let resolver = ref(ignore);
    let p =
      Js.Promise.make((~resolve, ~reject as _) =>
        resolver := (a => resolve(. a))
      );

mrmurphy

open Pom;

type middleware('context, 'result) =
  (Express.Request.t, Express.Response.t, 'context) =>
  pomWithError('result, Express.complete);

type handler('context) =
  (Express.Request.t, Express.Response.t, 'context) => pom(Express.complete);

let _onError500 =