gcr

;; There's a GREAT script at
;; https://github.com/cofi/dotfiles/blob/master/emacs.d/config/cofi-evil.el#L320

(setq evil-normal-state-tag (propertize "N" 'face '())
      evil-emacs-state-tag  (propertize "E" 'face '((:background "#93a1a1")))
      evil-insert-state-tag (propertize "I" 'face '((:background "#93a1a1")))
      evil-motion-state-tag (propertize "M" 'face '())
      evil-visual-state-tag (propertize "V" 'face '())

gcr

(defun geiser-debug--display-retort (what ret &optional res auto-p)
  (let* ((err (geiser-eval--retort-error ret))
         (key (geiser-eval--error-key err))
         (output (geiser-eval--retort-output ret))
         (impl geiser-impl--implementation)
         (module (geiser-eval--get-module))
         (dbg nil)
         (img nil)
         (dir default-directory)
         (buffer (current-buffer))

gcr

gcr

Scribbled planet documentation has broken links.

To see this,

1. Copy info.rkt and test.scrbl to a folder
2. Run raco planet link yourname foldername.plt 1 0 /path/to/here
3. Run raco planet create .
4. Open up planet-docs/index.html
5. Click on the helpfully provided link.

gcr

  File "pyquine.py", line 1
    File "pyquine.py", line 1
    ^
IndentationError: unexpected indent

gcr

background{ b -.8 sat .1 hue 20 }
size { s 16 9 }
startshape pick

rule pick { CIRCLES{} }
rule pick 2 { daze{} }
rule pick { aura{} }
rule pick { pixels{} }
rule pick { crosshatch{} }

gcr

#!/usr/bin/env python2
# -*- coding: utf-8

import subprocess
import random
import time

lines = [
    "Would now be a good time to send the pictures?",
    "How about now?",

gcr

#lang racket

;; Builds lists that look like
;; '(10 c 9 / 8 * 7 + 6 - 5 c 4 * 3 + 2 - 1)
;; where symbols indicate operation, and 'c' indicates concatenating
;; digits, and then combines terms in the list.

;; Remove all the concatenated elements from this list
;; TODO: Is there a better way? racket/match goes right-to-left which
;; is wrong.

gcr

#lang racket

;; Computes the fitness function of chromosome c
(define (fitness c)
  (for/sum ([a (in-string c)]
            [b (in-string "Hello, world!")])
     (if (char=? a b)
         1
         0)))

gcr

#lang racket
(require sgl
         sgl/gl
         sgl/gl-vectors
         slideshow
         racket/gui)

; make a texture!
(define *size* 128)
(define b (instantiate bitmap% (*size* *size*)))