mmontone

(defpackage estimated-time-progress
  (:local-nicknames
   (:pb :cl-progress-bar.progress))
  (:use :cl)
  (:export :with-estimated-time-progress))

(in-package :estimated-time-progress)

(defconstant +seconds-in-one-hour+ 3600)
(defconstant +seconds-in-one-minute+ 60)

mmontone

;; Copyright (c) 2022 Mariano Montone

;; Permission is hereby granted, free of charge, to any person obtaining a copy
;; of this software and associated documentation files (the "Software"), to deal
;; in the Software without restriction, including without limitation the rights
;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
;; copies of the Software, and to permit persons to whom the Software is
;; furnished to do so, subject to the following conditions:

;; The above copyright notice and this permission notice shall be included in all

mmontone

(require 'cider)
(require 's)

;; Browse namespace from info -*- lexical-binding: t -*-
(defun cider-docview-render-info (buffer info)
  "Emit into BUFFER formatted INFO for the Clojure or Java symbol."
  (let* ((ns      (nrepl-dict-get info "ns"))
         (name    (nrepl-dict-get info "name"))
         (added   (nrepl-dict-get info "added"))
         (depr    (nrepl-dict-get info "deprecated"))

mmontone

;; WebSocket and WebRTC based multi-user chat sample with two-way video
;; calling, including use of TURN if applicable or necessary.

;; This file contains the JavaScript code that implements the client-side
;; features for connecting and managing chat and video calls.
;; To read about how this sample works:  http://bit.ly/webrtc-from-chat

;; Any copyright is dedicated to the Public Domain.
;; http://creativecommons.org/publicdomain/zero/1.0/

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)

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

mmontone

Quick guide to Helios

Introduction

Helios is an [Amber Smalltalk] IDE.

Usage

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

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

(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)