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/},]/}]/'

kiwanami

;; for Emacs 23.4 ruby-mode

(eval-after-load "ruby-mode"
  '(progn
     (defun ruby-imenu-create-index-in-block (prefix beg end)
       (let ((index-alist '()) (case-fold-search nil)
             name next pos decl sing)
         (goto-char beg)
         (while (re-search-forward "^\\s *\\(\\(class\\s +\\|\\(class\\s *<<\\s *\\)\\|module\\s +\\)\\([^\(<\n ]+\\)\\|\\(def\\|alias\\|get\\|post\\|describe\\|context\\)\\s +\\([^\(\n]+\\)\\)" end t)
           (setq sing (match-beginning 3))

yoshinari-nomura

(when (and (>= emacs-major-version 24)
           (eq window-system 'ns))
  ;; フォントセットを作る
  (let* ((fontset-name "myfonts") ; フォントセットの名前
         (size 14) ; ASCIIフォントのサイズ [9/10/12/14/15/17/19/20/...]
         (asciifont "Menlo") ; ASCIIフォント
         (jpfont "Hiragino Maru Gothic ProN") ; 日本語フォント
         (font (format "%s-%d:weight=normal:slant=normal" asciifont size))
         (fontspec (font-spec :family asciifont))
         (jp-fontspec (font-spec :family jpfont)) 

textarcana

# Enable syntax-highlighting in less.
# Last tested on CentOS 6.3.
#
# First, add these two lines to ~/.bashrc
#     export LESSOPEN="| /usr/bin/src-hilite-lesspipe.sh %s"
#     export LESS=" -R "

sudo yum -y install boost boost-devel ctags

wget http://springdale.math.ias.edu/data/puias/unsupported/6/x86_64/source-highlight-3.1.6-3.puias6.x86_64.rpm

dergachev

OS X Screencast to animated GIF

This gist shows how to create a GIF screencast using only free OS X tools: QuickTime, ffmpeg, and gifsicle.

Instructions

To capture the video (filesize: 19MB), using the free "QuickTime Player" application:

gb-swatanabe

UbuntuでTimeMachineサーバを建てる

※ちょっと古い

参考

• http://www003.upp.so-net.ne.jp/hat/netatalk/2.2.andsamba.html
• http://pwntr.com/2012/03/03/easy-mac-os-x-lion-10-7-time-machine-backup-using-an-ubuntu-linux-server-11-10-12-04-lts-and-up/
• http://www.xdracco.net/time-machine-backup-volume-on-ubuntu-server/

bobbygrace

Hello, visitors! If you want an updated version of this styleguide in repo form with tons of real-life examples… check out Trellisheets! https://github.com/trello/trellisheets

---

Trello CSS Guide

“I perfectly understand our CSS. I never have any issues with cascading rules. I never have to use !important or inline styles. Even though somebody else wrote this bit of CSS, I know exactly how it works and how to extend it. Fixes are easy! I have a hard time breaking our CSS. I know exactly where to put new CSS. We use all of our CSS and it’s pretty small overall. When I delete a template, I know the exact corresponding CSS file and I can delete it all at once. Nothing gets left behind.”

You often hear updog saying stuff like this. Who’s updog? Not much, who is up with you?

daviderestivo

(defun galactic-emacs-eshell-prompt ()
  "Customize eshell prompt.

This function requires `all-the-icons' package to be installed
(https://github.com/domtronn/all-the-icons.el)."
  (if (display-graphic-p)
      (setq galactic-emacs-header-bg "#282C34")
    ;; The background used when Emacs runs in a terminal
    (setq galactic-emacs-header-bg "black"))
  ;; In order to set the eshell prompt correctly we need to

agumonkey

;;; DEFCMD.EL : no more interactive string specs

(setq lexical-binding t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MODULE

(defun interactive-arg-map (l)
  (if (evenp (length l))
      (let* ((ps (-partition 2 l))
	     (params (mapcar #'car ps))

pavloo

(defun copy-current-line-position-to-clipboard (p)
    "Copy current line in file to clipboard as '</path/to/file>:<line-number>'"
    (interactive "sAbsolute path y/n?: ")
    (let ((path-with-line-number) (file-name (buffer-file-name)))
      (when (and (not (string= p "y")) (projectile-project-root))
        (setq file-name (file-relative-name buffer-file-name (projectile-project-root)))
        )
      (setq path-with-line-number (concat file-name ":" (number-to-string (line-number-at-pos))))
      (x-select-text path-with-line-number)
      (message (concat path-with-line-number " copied to clipboard"))))