travisbhartwell

eDupItems' :: [Item] -> [Item] -> IdCountMap -> [Item]
deDupItems' (item:items) keptItems seenMap =
    case delId of
      Nothing -> deDupItems' items keptItems seenMap -- We didn't get an id, so drop it and move on
      Just anId -> deDupItems' items itemsToKeep (Map.insert anId (count + 1) seenMap)
          where
            count = Map.findWithDefault defaultValue anId seenMap
            itemsToKeep = if count > 0 then keptItems else keptItems ++ [item] 
    where
      delId = getDeliciousUrlId item

travisbhartwell

        Sat Jan 24 14:52 2009 Time and Allocation Profiling Report  (Final)

           recent-feed-prof +RTS -p -RTS

        total time  =        0.12 secs   (6 ticks @ 20 ms)
        total alloc =  59,724,464 bytes  (excludes profiling overheads)

COST CENTRE                    MODULE               %time %alloc

CAF                            Main                 100.0  100.0

travisbhartwell

Loading package bytestring-0.9.1.3 ... 

GHCi runtime linker: fatal error: I found a duplicate definition for symbol
   fps_minimum
whilst processing object file
   /home/nafai/.cabal/lib/bytestring-0.9.1.3/ghc-6.8.2/HSbytestring-0.9.1.3.o
This could be caused by:
   * Loading two different object files which export the same symbol
   * Specifying the same object file twice on the GHCi command line
   * An incorrect `package.conf' entry, causing some object to be

travisbhartwell

(defun find-git-repos-internal (dir found-dirs)
  (cond ((file-directory-p dir)
	 (or (char-equal ?/ (aref dir(1- (length dir))))
	     (setq dir (file-name-as-directory dir)))
	 (let ((lst (directory-files dir nil nil t))
	       fullname file)
	   (while lst
	     (setq file (car lst))
	     (setq lst (cdr lst))
	     (setq fullname (concat dir file))

travisbhartwell

# This is startup file for interactive python.
# Text version here
#
# Generated by GVIM :so $VIMRUNTIME/syntax/2html.vim
#

# It is not automatically loaded by python interpreter.
# To instruct the interpreter to load it insert the following commands
# into your .profile (or whatever file is appropriate for your shell):
#

travisbhartwell

  ;; TODO: Clean this up a bit, but at least it works
  ;;       It's actually broken, if two different subtrees of the directory both
  ;;       have repos in their sub-directories, it gets set to nil
  (defun find-git-repos-internal (dir found-dirs)
    (when (file-directory-p dir)
      (or (char-equal ?/ (aref dir(1- (length dir))))
	  (setq dir (file-name-as-directory dir)))
      (let ((lst (directory-files dir nil nil t))
	    fullname file)
	(while lst

travisbhartwell

;;;_ + Magit
(when (require-maybe 'magit)
  ;; TODO: Clean this up a bit, but at least it works
  ;;       It's actually broken, if two different subtrees of the directory both
  ;;       have repos in their sub-directories, it gets set to nil
  (defun find-git-repos-internal (dir found-dirs)
    (when (file-directory-p dir)
      (or (char-equal ?/ (aref dir(1- (length dir))))
	  (setq dir (file-name-as-directory dir)))
      (let ((lst (directory-files dir nil nil t))

travisbhartwell

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  set-buffer(nil)
  (save-current-buffer (set-buffer buf) (erase-buffer))
  (with-current-buffer buf (erase-buffer))
  (let ((buf ...) (inhibit-read-only t)) (with-current-buffer buf (erase-buffer)))
  (cond ((magit-prefix-p ... G76782) (find-file info)) ((magit-prefix-p ... G76782) (find-file ...)) ((magit-prefix-p ... G76782) (let ... ... ...)) ((magit-prefix-p ... G76782) (magit-show-commit info) (pop-to-buffer "*magit-commit*")) ((magit-prefix-p ... G76782) (let ... ...) (magit-diff ...)) ((not G76781) (error "Nothing to %s here." "visit")) (t (error "Can't %s a %s." "visit" ...)))
  (let* ((item ...) (info ...) (G76781 ...) (G76782 ...)) (cond (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (t ...)))
  (magit-section-case (item info "visit") ((untracked file) (find-file info)) ((diff) (find-file ...)) ((hunk) (let ... ... ...)) ((commit) (magit-show-commit info) (pop-to-buffer "*magit-commit*")) ((stash) (let ... .

travisbhartwell

rom __future__ import with_statement

from contextlib import contextmanager

import sys

@contextmanager
def open_with_stderr(filename, mode='r'):
    try:
        f = open(filename, mode)

travisbhartwell

#!/bin/sh

DRYRUN="echo"; $DRYRUN ls -l

DRYRUN=""; $DRYRUN ls -l