mmontone

(defun read-separator (str)
 (let
  ((*readtable* (copy-readtable *readtable* nil)))
  (set-macro-character #\, (lambda (stream char)
                            (declare (ignore char) (ignore stream))
                            'break))
  (read str nil)))

(set-macro-character #\{
 (lambda (str char)

mmontone

;; Implementation of syntax for symbols to be able to use spaces instead of '-' in them.
;; The default enclosing chars are '<' and '>'.

;; Example:
;; (defclass <My Class> (<Standard Object>)
;;     ((<My Slot> :accessor <My Slot>
;;                 :initarg :my-slot)))
;;
;; (<with slots> (<My slot>)
;;                (<make instance> '<My class> :my-slot "Value")

mmontone

#!/bin/sh

set -e

# get <url> <destination>
get() {
    url=$1
    destination=$2
    echo "Downloading ${url}..."
    curl --no-progress-bar --retry 10  -o "$destination" -L "$url"

mmontone

(defun make-dfun-varname (fname)
  (intern (format nil "*DFUN-~A*" fname)))

(defmacro dflet (fbindings &body body)
  `(let
       ,(loop for fbinding in fbindings
           collect
             (destructuring-bind (fname args &body body) fbinding
               (let ((dfun-varname (make-dfun-varname fname)))
                 `(,dfun-varname (cons (lambda ,args

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)

mmontone

(defpackage :who-templates
  (:nicknames :whot)
  (:use :cl)
  (:export
   :deftemplate
   :block
   :include
   :parent
   :render-template
   :render-template-to-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 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

# 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 :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)