This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defadvice url-cookie-host-can-set-p (after reddit-cookie-fix activate) | |
(when (and (string= (ad-get-arg 0) "www.reddit.com") | |
(string= (ad-get-arg 1) "reddit.com")) | |
(setq ad-return-value t))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defclass random-world (world) | |
((initial-random-state :initarg :initial-random-state :accessor initial-random-state)) | |
(:default-initargs :initial-random-state (make-random-state t))) | |
(defmethod shared-initialize :after ((world random-world) slot-names &rest initargs &key) | |
(declare (ignore slot-names initargs)) | |
(let ((*random-state* (make-random-state (initial-random-state world)))) | |
;; Add random objects to the world | |
)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defpackage #:pack | |
(:use #:cl #:alexandria) | |
(:export | |
#:pack | |
#:pack-into | |
#:unpack | |
#:calc-size | |
#:compile-struct-string | |
#:pack* | |
#:unpack* |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; A simple Google Chart wrapper for Common Lisp | |
;;; | |
;;; API reference: http://code.google.com/apis/chart/ | |
;;; | |
;;; WARNING: Incomplete and buggy -- still has much to be done, e.g.: | |
;;; | |
;;; * more thorough testing (that won't be hard...) | |
;;; | |
;;; * handle spaces/newlines appropriately |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
commit 9af6a8a4a9b64875ec17a128539f5c5f1ef8f2b9 | |
Author: death <death@nessers.org> | |
Date: Fri Apr 9 21:23:41 2010 +0300 | |
a working solution for the unexpected tags problem | |
The previous version dropped the variables for unexpected | |
tags, but not their values. | |
diff --git a/mingus.el b/mingus.el |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; General | |
(menu-bar-mode 0) | |
(scroll-bar-mode -1) | |
(set-default-font "-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso10646-1") | |
(tool-bar-mode 0) | |
(setq inhibit-splash-screen t) | |
(setq initial-scratch-message nil) | |
(add-to-list 'load-path "~/emacs/") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
From 3c6d41708a3bf34bb6350cab017f935701ac38ef Mon Sep 17 00:00:00 2001 | |
From: death <death@nessers.org> | |
Date: Fri, 26 Aug 2011 02:49:36 +0300 | |
Subject: [PATCH] correctly handle nil song-number when moving point to current song | |
--- | |
mingus.el | 2 +- | |
1 files changed, 1 insertions(+), 1 deletions(-) | |
diff --git a/mingus.el b/mingus.el |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defpackage #:dcpu-16 | |
(:use #:cl) | |
(:export | |
#:make-ram #:ram-read #:ram-write #:ram-size | |
#:execute #:debug | |
#:load-program #:assemble-program | |
#:set #:add #:sub #:mul | |
#:div #:mod #:shl #:shr | |
#:and #:bor #:xor #:ife | |
#:ifn #:ifg #:ifb #:jsr |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; Enamel - Erik Naggum's Markup Language | |
;;; | |
;;; See http://xach.com/naggum/articles/3207626455633924@naggum.net.html | |
;;; | |
(define-condition malformed-enamel (error) ()) | |
(defun parse-enamel (in &key (case :upcase) (strip-newlines t) (distinguish-attributes nil) (package *package*)) | |
(let ((node '())) | |
(labels ((skip-ws () (peek-char t in nil)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defpackage #:subsystem.hack | |
(:use #:cl) | |
(:export #:patch-subsystem) | |
(:import-from #:nibbles | |
#:read-ub16/le #:read-ub32/le #:write-ub16/le)) | |
(in-package #:subsystem.hack) | |
(defun subsystem-position (stream) | |
(file-position stream 0) |
OlderNewer