jwinder

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAaQAAAGkCAIAAADxLsZiAAAHqUlEQVR42u3VUQ0AIQxEwVrBf3CCnApARL+anc1TANxcnXcVWAfP7WdWjgB2sBPsBDvYCXaCHewEO8EOdoKdYAc7wU6wg51gJ9jBTrAT7GAn2Al2sIOdYAc7wU6wg51gJ9jBTrAT7GAn2Al2sBPsBDvYCXaCHewEO8EOdoKdYAc72Al2sBPsBDvYCXaCHewEO8EOdoKdYAc7wU6wg51gJ9jBTrAT7GAn2Al2sIOdYAc7wU6wg51gJ9jBTrAT7GAn2Al2sBPsBDvYCXaCHewEO8EOdoKdYOcBwE6wg51gJ9jBTrAT7GAn2Al2sBPsBDvYCXaCHewEO8EOdoKdYAc7wU6wE+wEO9gJdoId7AQ7wQ52gp1gBzvBTrCDnWAn2MFOsBPsYCfYCXawE+xgBzvBTrCDnWAn2MFOsBPsYCfYCXawE+wEO9gJdoId7AQ7wQ52gp1gBzvBDnawE+wEO9gJdoId7AQ7wQ52gp1gBzvBTrCDnWAn2MFOsBPsYCfYCXawE+xgBzvBTrCDnWAn2MFOsBPsYCfYCXawE+wEO9gJdoId7AQ7wQ52gp1gBzvBDnawE+wEO9gJdoId7LQKuzYfPOgtYLCDHewMdgY72BnsDHawM9gZ7GBnsDPYwc5gZ7CDncHOYAc7g53BDnYGO4Md7GBnsIOdwc5gBzuDncEOdgY7gx3sDHYGO9gZ7Ax2sDPYGexgZ7Az2MHOYGewgx3sDHawM9gZ7GBnsDPYwc5gZ7CDncHOYAc7g53BDnYGO4Md7Ax2BjvYGewMdrCDncEOdgY7gx3sDHYGO9gZ7Ax2sDPYGexgZ7Az2MHOYGewg53BzmAHO4Odwc7tw85gBzuDncEOdgY7gx3sDHYGO9gZ7Ax2sDPYGexgZ7Az2MHOYGewg53BzmBnsDPYwc5gZ7CDncHOYAc7g53BDnYGO4Md7Ax2BjvYGewMdrAz2B

jwinder

#!/bin/sh
# Usage: github-split org/project directory new-project

REPO=$1
FOLDER=$2
NEW_REPO=$3

function usage() {
    echo ""
    echo "Usage: $0 <repo> <folder> <new_repo>"

jwinder

ZSH_THEME_GIT_PROMPT_DIRTY="%{$FG[202]%} ✘✘✘"
ZSH_THEME_GIT_PROMPT_CLEAN="%{$FG[040]%} ✔"

jwinder

#!/bin/sh

git sweep cleanup
git remote prune origin
git branch --merged | grep -v "\*" | xargs -n 1 git branch -d

jwinder

#!/bin/sh

git merge "$@"
git push origin master
yes | git-cleanup-and-prune

jwinder

package eip

trait Functor[F[_]] {
  def fmap[A, B](f: A => B): F[A] => F[B]
}

trait Pointed[F[_]] {
  def point[A](entity: => A): F[A]
}

jwinder

import XMonad
import XMonad.Util.Run
import XMonad.Util.EZConfig
import XMonad.Actions.CycleWS
import XMonad.Actions.SpawnOn
import Data.Monoid
--import qualified Data.Map as M
--import Control.Monad
--import Control.Comonad
--import System.Environment

jwinder

;; Create non-existent directories containing a new file before saving
(add-hook 'before-save-hook
          (lambda ()
            (when buffer-file-name
              (let ((dir (file-name-directory buffer-file-name)))
                (when (and (not (file-exists-p dir))
                           (y-or-n-p (format "Directory %s does not exist. Create it?" dir)))
                  (make-directory dir t))))))

jwinder

(defun ssh-copy-id (username host)
  (interactive "sUsername: \nsHost: ")
  (shell-command (format "ssh-copy-id %s@%s" username host)))

jwinder

(defun mine-set-font-size (size)
  (interactive "sSize: ")
  (let ((font (concat "Monaco " size)))
    (set-frame-parameter (selected-frame) 'font font)
    (add-to-list 'default-frame-alist (cons 'font font))))