rastandy

#!/bin/bash

# from
# http://bergamini.org/computers/creating-favicon.ico-icon-files-with-imagemagick-convert.html

convert source-WxW.png -resize 256x256 -transparent white favicon-256.png
convert favicon-256.png -resize 16x16 favicon-16.png
convert favicon-256.png -resize 32x32 favicon-32.png
convert favicon-256.png -resize 64x64 favicon-64.png
convert favicon-256.png -resize 128x128 favicon-128.png

rastandy

Usage

Start up the new cljs.main with Node:

clj -Sdeps '{:deps {org.clojurescript {:git/url "https://github.com/clojure/clojurescript" :sha "3f4084efcb5cd92cceb8ca30765144691d8cfd7e"}}}' -m cljs.main -re node

The above works by specifying ClojureScript as a "git dep" and you can ensure that you are running the very latest by replacing the :sha value with the latest commit SHA at https://github.com/clojure/clojurescript.

rastandy

CLJS in AWS Lambda Quick Start

Setup

First, a few dependencies:

1. Leiningen: https://leiningen.org/
2. Node.js & NPM: https://nodejs.org/
3. Serverless: https://serverless.com/
4. An active AWS account: https://aws.amazon.com/

rastandy

'use strict';
exports.handler = (event, context, callback) => {

    // Get request and request headers
    const request = event.Records[0].cf.request;
    const headers = request.headers;

    // Configure authentication
    const authUser = 'user';
    const authPass = 'pass';

rastandy

(ns general.replace
  (:require [clojure.string :as s]
            [clojure.java.io :as io]
            [clojure.pprint :as pp]))

(defn indexes-of [in-str find-str]
  (loop [idx 0
         indexes []]
    (let [found-idx (s/index-of in-str find-str idx)]
      (if found-idx

rastandy

(ns data-portal.client
  (:require [om.next :as om]
            [fulcro.client.core :as uc]
            [data-portal.ui.html5-routing :as routing]
            [data-portal.ui.root :as root]
            [fulcro.client.logging :as log]
            [data-portal.api.core :refer [make-rest-network]]))

(defonce app
  (atom (uc/new-fulcro-client

rastandy

(ns om.next.spec
  (:require [cljs.spec.alpha :as s]))

(s/def ::ident (s/and vector? (s/cat :ident keyword? :value #(not (coll? %)))))
(s/def ::join-key (s/or :prop keyword? :ident ::ident))
(s/def ::join (s/and (s/map-of ::join-key ::query) #(= (count %) 1)))
(s/def ::union (s/and (s/map-of keyword? ::query) #(> (count %) 1)))

(s/def ::param-expr
  (s/cat :query-expr ::query-expr

rastandy

(ns data-portal.specs.bbox
  (:require [clojure.spec.alpha :as s]))

(s/def :geo/latitude (s/and number? #(<= -90 % 90)))
(s/def :geo/longitude (s/and number? #(<= -180 % 360)))

(s/def :geo/north :geo/latitude)
(s/def :geo/south :geo/latitude)
(s/def :geo/east :geo/longitude)
(s/def :geo/west :geo/longitude)

rastandy

static om/IQuery
(query [this] [{:panels {:panelA [:boo], :panelB [:goo], :panelC [:sticky]}}
               {[:panelB 1] [*]}
               {[:current-panel _] [*]}])

rastandy

Building a Maintainable, Agile Architecture for Realtime, Transactional Apps

A maintainable application architecture requires that the UI only contain the rendering logic and execute queries and mutations against the underlying data model on the server. A maintainable architecture must not contain any logic for composing "app state" on the client as that would necessarily embed business logic in the client. App state should be persisted to the database and the client projection of it should be composed in the mid tier, and refreshed as mutations occur on the server (and after network interruption) for a highly