dleslie

(defun add-font-lock-keywords (modes new-keywords)
  (mapc (lambda (mode)
          (font-lock-add-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name (remove-if 'numberp new-keywords)) t) "\\)\\>")
                                            (1 font-lock-keyword-face)))))
        modes)
  t)

(defun remove-font-lock-keywords (modes new-keywords)
  (mapc (lambda (mode)
          (font-lock-remove-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name (remove-if 'numberp new-keywords)) t) "\\)\\>")

dleslie

(defun add-font-lock-keywords (modes new-keywords)
  (mapc (lambda (mode)
          (font-lock-add-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name new-keywords) t) "\\)\\>")
                                            (1 font-lock-keyword-face)))))
        modes)
  t)

(defun remove-font-lock-keywords (modes new-keywords)
  (mapc (lambda (mode)
          (font-lock-remove-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name new-keywords) t) "\\)\\>")

dleslie

try
{
    DataModel.SubmitChanges(System.Data.Linq.ConflictMode.ContinueOnConflict);
}
catch (System.Data.Linq.ChangeConflictException)
{
    // Microsoft sucks, good fucking luck figuring out what causes this particular exception.
}

dleslie

#!/bin/bash

for link in `cat list.txt`; do
    fname=`echo $link | awk -F"/" '{print $5}'`
    wget -c --limit-rate=500k $link -qO - | flac -cd - | lame -h - "$fname.mp3"
    sleep 120
done

dleslie

(require 'multi-mode)

(defun scheme-c-mode ()
  "Mode for editing C embedded in Scheme, using multi-mode."
  (interactive)
  (set (make-local-variable 'multi-alist)
       '((scheme-mode)
	 (c-mode . scheme-c-header-region)
	 (c-mode . scheme-c-inline-region)))
  (multi-mode-install-modes))

dleslie

(custom-set-faces
 '(quack-about-face ((t (:inherit font-lock-warning))))
 '(quack-about-title-face ((t (:inherit font-lock-warning :weight bold :height 2.0))))
 '(quack-banner-face ((t (:inherit font-lock-warning-face))))
 '(quack-pltfile-dir-face ((t (:inherit dired-face-directory))))
 '(quack-pltfile-file-face ((t (:inherit dired-face-file ))))
 '(quack-pltfile-prologue-face ((((class color)) (:inherit dired-face-boring))))
 '(quack-pltish-class-defn-face ((((class color) (background dark)) (:inherit font-lock-type-face))))
 '(quack-pltish-colon-keyword-face ((t (:inherit font-lock-keyword-face))))
 '(quack-pltish-comment-face ((((class color) (background dark)) (:inherit font-lock-comment-face))))

dleslie

#!/bin/bash
encfs --idle=10 --anykey --extpass="ssh-askpass Enter your EncFS Password" \
    /home/dleslie/Dropbox/.crypt/ /home/dleslie/Documents/
thunar /home/dleslie/Documents/

dleslie

#!/bin/bash
encfs --idle=10 --anykey --extpass="ssh-askpass Enter your EncFS Password" /home/dleslie/Dropbox/.crypt/ /home/dleslie/Documents/
thunar /home/dleslie/Documents/

dleslie

#!/bin/bash

encfs --idle=10 --anykey --extpass="ssh-askpass Enter your EncFS Password" /home/dleslie/Dropbox/.crypt/ /home/dleslie/Documents/

thunar /home/dleslie/Documents/

dleslie

;; Copyright 2010 Dan Leslie <[email protected]>
;; 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, or at your option any later version.

(require 'gist)
(require 'tumblr)
(require 'http-post-simple)

(defun tumblr-gist-region (begin end &optional private)