gustavo-depaula

(ns clj-current-music-lyrics.core
  (:require [clj-http.client :as client]
            [clojure.data.json :as json])
  (:gen-class))

(def apikey "Bearer YOUR_API_KEY")

(defn -main
  "main fn"
  [& args]

gustavo-depaula

;;; Stack structure definition

(define nil '())
(define (stack . items)
  (apply list items))

(define (push stack item)
  (cons item stack))

(define (pop stack)

gustavo-depaula

(define (square x) (* x x))
;; (define (square      x)        (*      x         x))
;;    |       |         |          |      |         |
;;    To    square  something,  multiply  it  by  itself.

gustavo-depaula

  // Available variables:
  // - Machine
  // - interpret
  // - assign
  // - send
  // - sendParent
  // - spawn
  // - raise
  // - actions

gustavo-depaula

  // Available variables:
  // - Machine
  // - interpret
  // - assign
  // - send
  // - sendParent
  // - spawn
  // - raise
  // - actions

gustavo-depaula

const signatureMachine = Machine({
  id: 'signature',
  initial: 'init',
  context: {
    signature: null,
    isExpectedRecipient: null
  },
  states: {
    init: {
      on: {

gustavo-depaula

const signatureMachine = Machine({
  id: 'signature',
  initial: 'init',
  context: {
    signature: null,
    isExpectedRecipient: null
  },
  states: {
    init: {
      on: {

gustavo-depaula

const SSTATES = {
  loadingStep: 'loadingStep',
  successStep: 'successStep',
  offlineStep: 'offlineStep',
  redirectStep: 'redirectStep'
};

const AACTIONS = {
  REDIRECT: 'REDIRECT'
};

gustavo-depaula

const protocolMachine = Machine(
  {
    id: 'protocol',
    initial: 'signature',
    context: {
      // machine refs
      signatureMachineRef: null,
      recipientMachineRef: null,
      packageSyncMachineRef: null,

gustavo-depaula

// Available variables:
// - Machine
// - interpret
// - assign
// - send
// - sendParent
// - spawn
// - raise
// - actions
// - XState (all XState exports)