dto’s gists

dto / xiomacs-theme.el

Created April 1, 2017 02:06

	(deftheme xiomacs "Remix of the default emacs color theme.")

	(apply 'custom-theme-set-faces
	'(xiomacs
	(default ((t (:stipple nil :background "white" :foreground "gray10" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal ))))
	(indent-guide-face ((t (:foreground "tan"))))
	(bg:erc-color-face0 ((t (:background "White"))))
	(bg:erc-color-face1 ((t (:background "black"))))
	(bg:erc-color-face10 ((t (:background "lightblue1"))))
	(bg:erc-color-face11 ((t (:background "cyan"))))

dto / cl-frame.lisp

Created March 25, 2017 21:45

	;;; cl-frame.lisp --- open emacs-style frames with structured graphics.
	;; _ __
	;; ___\| \| / _\|_ __ __ _ _ __ ___ ___
	;; / __\| \|_____\| \|_\| '__/ _` \| '_ ` _ \ / _ \
	;; \| (__\| \|_____\| _\| \| \| (_\| \| \| \| \| \| \| __/
	;; \___\|_\| \|_\| \|_\| \__,_\|_\| \|_\| \|_\|\___\|
	;;
	;; Copyright (C) 2006 David O'Toole
	;;
	;; Author: David O'Toole <[email protected]>

dto / gist:76f3ff48654e87378a22

Created December 22, 2015 03:01

	industry anecdote https://www.youtube.com/watch?v=aqB0K7CNwdE&feature=youtu.be&t=14m24s
	snow backgrounds, story about my town https://www.youtube.com/watch?v=aqB0K7CNwdE&feature=youtu.be&t=6m
	creepy creature and cemetery https://www.youtube.com/watch?v=hL_wzPa4Vsc&feature=youtu.be&t=2m16s
	too much stuff! and Cryptghast combat https://www.youtube.com/watch?v=hL_wzPa4Vsc&feature=youtu.be&t=10m58s
	final battle (spoilers!) https://www.youtube.com/watch?v=hL_wzPa4Vsc&feature=youtu.be&t=21m49s
	animation influences https://youtu.be/syp8oAyhDV8?t=21m1s

dto / cypress-devcast-highlight-links-2b

Created December 22, 2015 02:59

	industry anecdote https://www.youtube.com/watch?v=aqB0K7CNwdE&feature=youtu.be&t=14m24s
	snow backgrounds, story about my town https://www.youtube.com/watch?v=aqB0K7CNwdE&feature=youtu.be&t=6m
	creepy creature and cemetery https://www.youtube.com/watch?v=hL_wzPa4Vsc&feature=youtu.be&t=2m16s
	too much stuff! and Cryptghast combat https://www.youtube.com/watch?v=hL_wzPa4Vsc&feature=youtu.be&t=10m58s
	final battle (spoilers!) https://www.youtube.com/watch?v=hL_wzPa4Vsc&feature=youtu.be&t=21m49s

dto / cypress-devcast-highlight-links

Created December 22, 2015 02:57

	industry anecdote https://www.youtube.com/watch?v=aqB0K7CNwdE&feature=youtu.be&t=14m24s
	snow backgrounds, story about my town https://www.youtube.com/watch?v=aqB0K7CNwdE&feature=youtu.be&t=6m
	creepy creature and cemetery https://www.youtube.com/watch?v=hL_wzPa4Vsc&feature=youtu.be&t=2m16s
	too much stuff! and Cryptghast combat https://www.youtube.com/watch?v=hL_wzPa4Vsc
	final battle https://www.youtube.com/watch?v=hL_wzPa4Vsc

dto / gist:0774ee86e716756b3c3f

Created June 22, 2014 05:53

xiomacs color theme for emacs 24

	(deftheme xiomacs "Remix of the default emacs color theme.")

	(apply 'custom-theme-set-faces
	'(xiomacs
	(default ((t (:stipple nil :background "cornsilk" :foreground "gray10" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal ))))
	(bg:erc-color-face0 ((t (:background "White"))))
	(bg:erc-color-face1 ((t (:background "black"))))
	(bg:erc-color-face10 ((t (:background "lightblue1"))))
	(bg:erc-color-face11 ((t (:background "cyan"))))
	(bg:erc-color-face12 ((t (:background "blue"))))

dto / dance.lisp

Created May 29, 2014 18:01

	;;; dance.lisp --- rhythm tools for USB dance pads

	;; Copyright (C) 2009, 2010 David O'Toole

	;; Author: David O'Toole <[email protected]>
	;; Keywords: games

	;; 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

dto / xiomacs-theme.el

Created July 18, 2013 04:49

Xiomacs color theme

	(deftheme xiomacs "Remix of the default emacs color theme.")

	(apply 'custom-theme-set-faces
	'(xiomacs
	(default ((t (:stipple nil :background "cornsilk" :foreground "gray10" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal ))))
	(bg:erc-color-face0 ((t (:background "White"))))
	(bg:erc-color-face1 ((t (:background "black"))))
	(bg:erc-color-face10 ((t (:background "lightblue1"))))
	(bg:erc-color-face11 ((t (:background "cyan"))))
	(bg:erc-color-face12 ((t (:background "blue"))))

dto / rlx.el

Created November 19, 2012 18:48

RLX, early elisp prototype of Blocky

	;;; rlx.el --- RLX development tools for GNU Emacs

	;; Copyright (C) 2006, 2007, 2008 David O'Toole

	;; Author: David O'Toole <[email protected]>
	;; Keywords: multimedia, games
	;; Version: 0.81

	;; This file is free software; you can redistribute it and/or modify
	;; it under the terms of the GNU General Public License as published by

dto / gist:741804

Created December 15, 2010 09:25 — forked from stassats/gist:741780

	;;; Usage (percentage (analyze-systems '(a b c d))) => 42.23

	(eval-when (:compile-toplevel :load-toplevel :execute)
	(when (asdf:find-system :named-readtables nil)
	(asdf:load-system :named-readtables)))

	(defun analyze-form (form)
	(typecase form
	(symbol
	(when (eql (symbol-package form) (find-package 'cl))

dto dto