mmontone

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

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

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

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

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

(defpackage :weblocks/forms
  (:use :cl)
  (:import-from #:weblocks/actions
                #:make-action-url
                #:function-or-action->action
                #:get-request-action)
  (:import-from #:weblocks/html
                #:with-html)
  (:import-from #:weblocks/request
                #:get-path)

mmontone

;; Copyright (C) 2021 Mariano Montone

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

mmontone

Quick guide to Helios

Introduction

Helios is an [Amber Smalltalk] IDE.

Usage

• Select action - Use Ctrl+Space to open the actions popup.

mmontone

mmontone

This is an experiment on trying to implement record syntax for Coalton. The Haskell equivalent.

The define-record definition:

(cl:defmacro define-record (name members)
  (cl:flet ((make-member-matcher (member)
              (cl:loop :for m :in members
                 :collect (cl:if (cl:eq (cl:first m) member)
                                 member

mmontone

(ql:quickload '(:cl-who :clog :cl-markdown))
	      
(defpackage :clog-learn
  (:use :cl :clog #:clog-gui)
  (:import-from :cl-who :with-html-output
		:with-html-output-to-string :htm :str :fmt)
  (:export :start))

(in-package :clog-learn)