Skip to content

Instantly share code, notes, and snippets.

View *scratch*
(setq *github-auth-info* '("laynor"))
(require 'xml-rpc)
(defvar lisppaste-nick "chandler")
View *scratch*
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.
View enotify-mode-line.el
(defun enotify-mode-line-set (message message-face)
(let ((map (make-sparse-keymap)))
(define-key map [mouse-2] (lambda () (interactive)
(message "mlosucci")))
(setq enotify-msg message)
(setq enotify-mode-line-string
(list enotify-mode-line-prefix
`(:eval
(propertize
enotify-msg
View *ruby*
def crasto x, y=nil, &block
block.call()
puts [x,y]
end
View *ruby*
crasto (1,2) { puts "asdf" }
SyntaxError: (irb):7: syntax error, unexpected ',', expecting ')'
crasto (1,2) { puts "asdf" }
^
from /home/ale/.rvm/rubies/ruby-1.9.2-p290/bin/irb:16:in `<main>'
View elisp-sexp.rb
def f1
catch(:foo) do
puts 1
throw :foo
puts 2
end
puts 3
end
def fungo2
begin
View elisp-sexp.rb
def f1
catch(:foo) do
puts 1
throw :foo
puts 2
end
puts 3
end
def fungo2
begin
View elisp-sexp.rb
def f1
catch(:foo) do
puts 1
throw :foo
puts 2
end
puts 3
end
def fungo2
begin
View *scratch*
ale: ~/.rvm/src/ruby-1.9.2-p290/lib (master)$ ri module_function
Nothing known about .module_function
View stumpwm.lisp
(defun stumpwm-internal-loop ()
"The internal loop that waits for events and handles them."
(loop
(run-hook *internal-loop-hook*)
(handler-bind
((xlib:lookup-error (lambda (c)
(if (lookup-error-recoverable-p)
(recover-from-lookup-error)
(error c))))
(warning #'muffle-warning)