Skip to content

Instantly share code, notes, and snippets.

View xiomacs-theme.el
(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"))))
View cl-frame.lisp
;;; cl-frame.lisp --- open emacs-style frames with structured graphics.
;; _ __
;; ___| | / _|_ __ __ _ _ __ ___ ___
;; / __| |_____| |_| '__/ _` | '_ ` _ \ / _ \
;; | (__| |_____| _| | | (_| | | | | | | __/
;; \___|_| |_| |_| \__,_|_| |_| |_|\___|
;;
;; Copyright (C) 2006 David O'Toole
;;
;; Author: David O'Toole <dto@gnu.org>
View gist:76f3ff48654e87378a22
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
View cypress-devcast-highlight-links-2b
View cypress-devcast-highlight-links
@dto
dto / gist:0774ee86e716756b3c3f
Created Jun 22, 2014
xiomacs color theme for emacs 24
View gist:0774ee86e716756b3c3f
(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"))))
View dance.lisp
;;; dance.lisp --- rhythm tools for USB dance pads
;; Copyright (C) 2009, 2010 David O'Toole
;; Author: David O'Toole <dto@ioforms.org>
;; 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
dto / xiomacs-theme.el
Created Jul 18, 2013
Xiomacs color theme
View xiomacs-theme.el
(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
dto / rlx.el
Created Nov 19, 2012
RLX, early elisp prototype of Blocky
View rlx.el
;;; rlx.el --- RLX development tools for GNU Emacs
;; Copyright (C) 2006, 2007, 2008 David O'Toole
;; Author: David O'Toole <dto@gnu.org>
;; 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
View gist:741804
;;; 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))
You can’t perform that action at this time.