mmontone

  const UINavigator = Machine({
  id: 'UI',
  initial: 'running',
  states: {
    running: {
      initial: 'home',
      states: {
        home: {
          entry: ['home'],

mmontone

const UINavigator = Machine({
  id: 'UI',
  initial: 'running',
  states: {
    running: {
      initial: 'home',
      states: {
        home: {
          entry: ['home'],

mmontone

from flask import Flask
from flask import jsonify
from flask import request
from flask_pymongo import PyMongo
from flask.json import JSONEncoder
from bson.objectid import ObjectId
from flask_cors import CORS

class CustomJSONEncoder(JSONEncoder):

mmontone

;; http://250bpm.com/blog:149

(ql:quickload :fmt)
(ql:quickload :access)

(defparameter *data* 
           '(("Afghanistan" . "Kabul")
             ("Brazil" . "Brasilia")
             ("Canada" . "Ottawa")))

mmontone

(defpackage :plump-xpath
  (:use :cl))

(in-package :plump-xpath)

(defstruct plump-attribute
  name val)

(defun plump-node-attributes (node)
  (loop for name being the hash-keys of (plump-dom:attributes node)

mmontone

# clgshell
#
# clgshell is an extension to python-clg (command line generator) for writing shell commands
#
# Usage:
#
# 1. create a commands.py file
# 2. import clgshell from there
# 3. use @cmd decorator for defining shell commands
# 4. reference those commands from YAML python-clg spec:

mmontone

(defpackage html2who
  (:use :cl))

(in-package :html2who)

(defun empty-string-p (string)
  (let ((empty-chars (list #\space #\newline #\return #\tab)))
    (every (lambda (char)
             (member char empty-chars))
           string)))

mmontone

!classDefinition: #TableCellMorph category: #'Morphic-Layouts-Table'!
BorderedRectMorph subclass: #TableCellMorph
	instanceVariableNames: 'hAlignment vAlignment hResizing vResizing padding'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Layouts-Table'!
!TableCellMorph commentStamp: '<historical>' prior: 0!
A table cell. 

It's instances are added as submorphs to a TableLayoutMorph.!

mmontone

(defpackage :who-templates
  (:nicknames :whot)
  (:use :cl)
  (:export
   :deftemplate
   :block
   :include
   :parent
   :render-template
   :render-template-to-string

mmontone

(ql:quickload :cl-base32)
(ql:quickload :hunchentoot)
(ql:quickload :cl-one-time-passwords)
(ql:quickload :cl-qrencode)
(ql:quickload :cl-pass)
(ql:quickload :babel)
(ql:quickload :flexi-streams)
(ql:quickload :cl-who)
(ql:quickload :ironclad)