Superbil

#!/usr/bin/env sh

##
# This is script with usefull tips taken from:
#   https://github.com/mathiasbynens/dotfiles/blob/master/.osx
#
# install it:
#   curl -sL https://raw.github.com/gist/2108403/hack.sh | sh
#

Superbil

開源之道

Original transcript: http://allisonrandal.com/2012/04/15/open-source-enlightenment/

這幾年來，我慢慢覺得，我們參與開源社群，就像是在一條道路上並肩而行：這不僅讓我們成為更好的程式設計者，也讓我們通過與人合作，而成為更好的人。

您可以將它想成一條修行之道，讓身而為人的我們能夠不斷成長。接下來，我想談談我對開源世界的個人觀點，希望能與您分享。

首先，人是一切開源專案的核心。程式碼是很重要，但最核心的永遠是人。

Superbil

# Use jdb to debug Android application

# Run ddms and select application to forward port.
ddms

# Execute jdb and attach to the listening application
# ddms show 8600 / 8700
jdb -attach localhost:8600

# Or in windows, need to specify connector explicitly

Superbil

;;; org-html5presentation.el --- HTML5 Presentation export for Org-mode

;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010
;;   Free Software Foundation, Inc.

;; Author: Carsten Dominik <carsten at orgmode dot org>
;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://orgmode.org
;; Version: 7.5
;;

Superbil

#!/bin/sh

##
# This is a script with usefull tips taken from:
#   https://github.com/mathiasbynens/dotfiles/blob/master/.osx
#
# Run in interactive mode with:
#   $ sh -c "$(curl -sL https://raw.github.com/gist/2108403/hack.sh)"
#
# or run it without prompt questions:

Superbil

(require-package 'dired+)

(defun dired-show-only (regexp)
   (interactive "sFiles to show (regexp): ")
   (dired-mark-files-regexp regexp)
   (dired-toggle-marks)
   (dired-do-kill-lines))

(eval-after-load 'dired+
  '(progn

Superbil

from :http://www.entropy.ch/blog/Developer/2010/04/15/Git-diff-for-Localizable-strings-Files.html

First, add this to the project’s .git/info/attributes file:

*.strings diff=localizablestrings

Note

Unfortunately you do have to add it to every project, there doesn’t seem to be a global attributes configuration file

Second, add this to your ~/.gitconfig file:

Superbil

#!/usr/bin/env perl

use 5.014;

use WWW::Mechanize;
use List::MoreUtils qw(uniq);


my $url = "http://search.itunes.apple.com/WebObjects/MZSearch.woa/wa/search?media=iTunesU&submit=media&term=e%20207";

Superbil

{-# LINE 30 "parser.ltx" #-}
{-#  LANGUAGE KindSignatures, GADTs  #-}
import Data.List (inits, tails)
import Data.Char (ord)
import Control.Monad (mplus)
{-# LINE 56 "parser.ltx" #-}
data Grammar :: *   where
  Empty   :: Grammar
  Unit    :: Grammar
  Single  :: Char -> Grammar

Superbil

//
//                       _oo0oo_
//                      o8888888o
//                      88" . "88
//                      (| -_- |)
//                      0\  =  /0
//                    ___/`---'\___
//                  .' \\|     |// '.
//                 / \\|||  :  |||// \
//                / _||||| -:- |||||- \