mayoff

(* To the extent possible under law, Rob Mayoff has waived all copyright and related or neighboring rights to “AppleScript to make Google Chrome open/reload a URL”. This work is published from: United States. https://creativecommons.org/publicdomain/zero/1.0/ *)
tell application "Google Chrome"
	activate
	set theUrl to "http://tycho.usno.navy.mil/cgi-bin/timer.pl"
	
	if (count every window) = 0 then
		make new window
	end if
	
	set found to false

cdown

urlencode() {
    # urlencode <string>

    old_lc_collate=$LC_COLLATE
    LC_COLLATE=C

    local length="${#1}"
    for (( i = 0; i < length; i++ )); do
        local c="${1:$i:1}"
        case $c in

mayoff

(defun mayoff:open-url-in-chrome (url)
  "Open URL in Google Chrome.  I use AppleScript to do several things:
  1. I tell Chrome to come to the front. If Chrome wasn't launched, this will also launch it.
  2. If Chrome has no windows open, I tell it to create one.
  3. If Chrome has a tab showing URL, I tell it to reload the tab, make that tab the active tab in its window, and bring its window to the front.
  4. If Chrome has no tab showing URL, I tell Chrome to make a new tab (in the front window) showing URL."
  (when (symbolp url)
    ; User passed a symbol instead of a string.  Use the symbol name.
    (setq url (symbol-name url)))
  (do-applescript (format "

nathanmarz

;; Determine if any of the causes of the exception was of the specified type
(defn exception-cause? [klass ^Throwable t]
  (->> (iterate #(.getCause ^Throwable %) t)
       (take-while identity)
       (some (partial instance? klass))
       boolean))

textarcana

#!/usr/bin/env bash

# Use this one-liner to produce a JSON literal from the Git log:

git log \
    --pretty=format:'{%n  "commit": "%H",%n  "author": "%aN <%aE>",%n  "date": "%ad",%n  "message": "%f"%n},' \
    $@ | \
    perl -pe 'BEGIN{print "["}; END{print "]\n"}' | \
    perl -pe 's/},]/}]/'

hiredman

(ns srepl.core
  (:use [clojure.main :only [repl]]
        [clojure.pprint :only [pprint with-pprint-dispatch code-dispatch]])
  (:import (jline.console ConsoleReader)
           (jline.console.completer Completer))
  (:gen-class))

(defmulti super-dispatch class)

(defmethod super-dispatch :default [thing]

kototama

(defun clojure-correct-ns
  ()
  "Returns the namespace name that the file should have."
 (let* ((nsname ())
        (dirs (reverse (split-string (buffer-file-name) "/")))
        (aftersrc nil))
   (dolist (dir dirs)
     (when (not aftersrc)
       (if (or (string= dir "src") (string= dir "test"))
           (setq aftersrc t)

provegard

#!/usr/bin/python

# Test program for using Avahi in Python. Publishes a dummy service.

import sys
import avahi
import dbus
from twisted.internet import reactor

# Service details

sritchie

package forma.tap;

import backtype.hadoop.pail.PailStructure;
import cascading.kryo.KryoFactory;
import cascalog.hadoop.ClojureKryoSerialization;
import com.esotericsoftware.kryo.ObjectBuffer;

import java.util.Collections;
import java.util.List;

ssp

How to extract a single file with its history from a git repository

These steps show two less common interactions with git to extract a single file which is inside a subfolder from a git repository. These steps essentially reduce the repository to just the desired files and should performed on a copy of the original repository (1.).

First the repository is reduced to just the subfolder containing the files in question using git filter-branch --subdirectory-filter (2.) which is a useful step by itself if just a subfolder needs to be extracted. This step moves the desired files to the top level of the repository.

Finally all remaining files are listed using git ls, the files to keep are removed from that using grep -v and the resulting list is passed to git rm which is invoked by git filter-branch --index-filter (3.). A bit convoluted but it does the trick.

1. copy the repository to extract the file from and go to the desired branch