Skip to content

Instantly share code, notes, and snippets.

View danlentz's full-sized avatar

Dan Lentz danlentz

141 followers · 195 following
View GitHub Profile
@danlentz
danlentz / new-file----README-mkdn.patch
Created March 26, 2009 16:25
From 274c978e89ca355d1d1ff14da727298a0cf74795 Mon Sep 17 00:00:00 2001
From: Dan Lentz <[email protected]>
Date: Wed, 25 Mar 2009 04:50:41 -0400
Subject: [PATCH] new file: README.mkdn
---
0 files changed, 0 insertions(+), 0 deletions(-)
create mode 100644 README.mkdn
diff --git a/README.mkdn b/README.mkdn
@danlentz
danlentz / mac-option-key
Created March 28, 2010 07:59
(setq mac-option-key-is-meta nil)
(setq mac-command-key-is-meta t)
(setq mac-command-modifier 'meta)
(setq mac-option-modifier nil)
@danlentz
danlentz / local.org
Created March 28, 2010 09:24

(defun reglen() “Show region length.” (interactive) (message “Region length=%s” (- (region-end) (region-beginning))))

@danlentz
danlentz / local.org
Created March 28, 2010 09:28

Org-Bindings

 (define-key global-map [(control z) ?l] 'org-store-link)
 (define-key global-map [(control z) (control l)] 'org-insert-link)
 (define-key global-map [(control z) ?a] 'org-agenda)
 (global-set-key [f5]  'org-store-link)
 (global-set-key [(meta f5)]  'org-insert-link)
(eval-after-load 'org-mode (define-key org-mode-map [(control ?c) ?p] 'orgpan-panel))
@danlentz
danlentz / google-chart.lisp
Created March 29, 2010 19:47 — forked from death/google-chart.lisp
;;;; 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
@danlentz
danlentz / comidia.el
Created March 19, 2011 00:52
color-theme-comidia Generated with http://color-theme-select.heroku.com/
;; color-theme-comidia Generated with http://color-theme-select.heroku.com/ on Fri Mar 18 2011 20:51:11 GMT-0400 (EDT)
;; You can edit the theme name or the documentation by hovering over them.
;; Be sure to add your name and email if you want to contribute this theme.
;;
;;
;;
;;
;; Download | Permalink | Gist | Share color-theme-comidia | Contribute
;;
@danlentz
danlentz / gist:912198
Created April 10, 2011 09:54
examples of set-macro-character
(set-macro-character #\⌋ (get-macro-character #\)))
(set-macro-character #\⌊
(lambda (stream char)
(declare (ignore char))
(prog1 `(floor ,(read stream t nil t))
(let ((char (peek-char t stream t nil t)))
(if (char= char #\⌋)
(read-char stream t nil t)
(error 'reader-error :stream stream))))))
@danlentz
danlentz / gist:921763
Created April 15, 2011 14:15
rdf/n3
We couldn’t find that file to show.
@danlentz
danlentz / gistGithubAddPaginationToTop4MyGists.user.js
Created May 22, 2011 03:31 — forked from erikvold/gistGithubAddPaginationToTop4MyGists.user.js
This userscript will add the pagination for the gist.github.com My Gists page.
// ==UserScript==
// @name Add Pagination For My Gists To Top
// @namespace gistGithubAddPaginationToTop4MyGists
// @include /^http:\/\/gist\.github\.com\/mine([?#].*)?$/i
// @include http://gist.github.com/mine*
// @match http://gist.github.com/mine*
// @datecreated 2010-03-21
// @lastupdated 2010-03-21
// @version 0.1
// @author Erik Vergobbi Vold
@danlentz
danlentz / gist:986127
Created May 23, 2011 02:33 — forked from aggieben/gist:68989
(defclass cons-presentation-mixin ()
((car-type :accessor cons-presentation-car-type
:initarg :car-type)
(cdr-type :accessor cons-presentation-cdr-type
:initarg :cdr-type))
(:documentation "A presentation for conses."))
(defclass cons-presentation (presentation cons-presentation-mixin)
()
)