Skip to content

Instantly share code, notes, and snippets.

View sshirokov's full-sized avatar
💭
I am a 🐈

Slava Shirokov sshirokov

💭
I am a 🐈
View GitHub Profile
@sshirokov
sshirokov / erc-multiserver.el
Created October 26, 2009 22:54
A few helpers to help me connect to multiple IRC servers.
(defvar erc-all-connectors ())
(setq erc-all-connectors (list
(defun erc-twitter ()
"Connect to localhost's ticrd for Twitter"
(interactive)
(erc :server "localhost"
:port 6668
:nick "sshirokov"
:password "yeah_right"))
;; -*-Mode: emacs-lisp-*-
(setq browse-url-browser-function 'browse-url-generic
browse-url-generic-program "chromium-browser")
;; Gist loader
(let ((default-directory "~/.emacs.d/elisp/gists/"))
(normal-top-level-add-subdirs-to-load-path)
load-path)
;; Load gists
(load "chromium") ;; http://gist.github.com/223188
@sshirokov
sshirokov / ri-ruby.el.patch
Created October 31, 2009 20:32
Let's not hardcode machine specific paths 'k?
diff ~/tmp/ri-ruby.el ~/.emacs.d/elisp/ri-ruby.el
81a82,83
> (defun ri-get-ruby-script () (expand-file-name ri-ruby-script))
>
88c90
< ri-ruby-program ri-ruby-script))
---
> ri-ruby-program (ri-get-ruby-script)))
@sshirokov
sshirokov / rinari-advice.el
Created November 1, 2009 00:10
Rinari uses inf- rather than inferior-ruby-
(defadvice rinari-console (after rinari-console-prompt-fix first (&rest ignore) activate)
"Change the prompt"
(let ((pattern "^>> ")
(inferior-ruby-first-prompt-pattern nil)
(inferior-ruby-prompt-pattern nil))
(with-current-buffer "*ruby*"
(set (make-local-variable 'inferior-ruby-first-prompt-pattern) pattern)
(set (make-local-variable 'inferior-ruby-prompt-pattern) pattern))))
deb http://ppa.launchpad.net/chromium-daily/ppa/ubuntu karmic main
deb-src http://ppa.launchpad.net/chromium-daily/ppa/ubuntu karmic main
@sshirokov
sshirokov / gemit.rb
Created November 25, 2009 10:10
Install gems from a gem list dump
gem_cmd = ENV["GEM_CMD"] || 'sudo gem'
STDIN.map { |l| l.strip }.each { |l|
gem, versions = l.split(' ', 2)
versions = versions.gsub(/[\(\)]/, '').split(', ')
versions.each { |version|
cmd = "#{gem_cmd} install #{gem} -v #{version}"
puts cmd if ENV["PRETEND"] or ENV["ECHO"]
system cmd unless ENV["PRETEND"]
[alias]
grep-property = "!f() { git grep --cached -E \"[a-z0-9]+\\.$1\\.{0,1} *(<<|=){0,1}[ \\n;]{1,}\"; };f"
(setf swank:*communication-style* :sigio) ;; :spawn takes a crap when loading lispbuilders-sdl from SLIME
function __trace_prefix(prefix, args) {
if(window.console === undefined) return undefined;
else return window.console.log.apply(window.console, $.merge([prefix], args));
}
function debug_log() { return __trace_prefix("DEBUG:", arguments); }