dleslie

(do <maybe> 
    (if #t 
        'Nothing 
        '(Just First))
    '(Just Second))
; Returns: Nothing

((do <state> 
     (x <- (/m! gets (lambda (s) (+ s 1))))
     (return x))

dleslie

(use allegro lolevel)

(require-library allegro)
(import (prefix allegro al:))

(use allegro-glext allegro-c-util)

(define (abort x)
  (display x)
  (newline)

dleslie

(assoc 'window-id (frame-parameters (selected-frame)))

dleslie

I loved season 19 of South Park. It ended about as well as I could have hoped.

For those wondering: no, the overall theme of this season was /not/ that
fighting for social justice is wrong. On the contrary, it affirmed that seeking
to improve society is a laudable goal. Where it drew a line was where it was
reasonable; the point at which one's belief in their own righteousness has
allowed them to overlook their own faults and poor behaviour.

IMHO, what South Park primarily attempted to convey is that something to be
concerned about is the manner in which media and advertising wields our concerns

dleslie

(define-syntax lazy-wrap
  (syntax-rules ()
    ((_ val)
     (lazy-seq (cons val (lazy-seq '()))))))

dleslie

(set! video-conf:clear-color (al:make-color-rgb 0 40 70))

(define credits-scene
  (scene 
   (let* ((screen-padding 50) (credit-text "A game by Dan Leslie")
          (label-width 200) (label-height 20)
          (label-left (+ screen-padding (random (- video-conf:width label-width (* 2 screen-padding)))))
          (label-top (+ screen-padding (random (- video-conf:height label-height (* 2 screen-padding)))))
          (rect (make-rectangle label-left label-top label-width label-height))
          (label (make-label rect credit-text padding-left: 5 padding-right: 5 

dleslie

(test-group "records"
            ;; Define a record type with setters for each field
            (define-record test (setter bit) (setter byte) (setter nibble) (setter bytes))
            ;; Define a 'bits' conversion function
            (define test-bits
              (make-bits
               (bit test-bit)         ;  1 bit
               (byte test-byte)       ;  8 bits
               (nibble test-nibble)   ;  4 bits
               (bytes 2 test-bytes))) ; 16 bits

dleslie

#PgUp
"xvkbd -xsendev -text "\[Prior]""
    m:0x8 + c:111
    Alt + Up 

#PgDown
"xvkbd -xsendev -text "\[Next]""
    m:0x8 + c:116
    Alt + Down 

dleslie

What I saw in the Xerox PARC technology was the caveman interface, 
you point and you grunt. A massive winding down, regressing away 
from language, in order to address the technological nervousness 
of the user. Users wanted to be infantilized, to return to a 
pre-linguistic condition in the using of computers, and the Xerox 
PARC technology`s primary advantage was that it allowed users to 
address computers in a pre-linguistic way. This was to my mind a 
terribly socially retrograde thing to do, and I have not changed 
my mind about that.

dleslie

(require 'paredit)
(require 'auto-complete)
(require 'auto-complete-etags)
(require 'yasnippet-bundle)
(require 'scheme)

;; Some utilities of mine
(defun add-font-lock-keywords (modes new-keywords)
  (mapc (lambda (mode)
          (font-lock-add-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name (remove-if 'numberp new-keywords)) t) "\\)\\>")