Skip to content

Instantly share code, notes, and snippets.

There are a lot of people who are living with emacs around the world.
Sometimes, it is very fun to see how they use emacs and even very helpful to learn from it.
Screencasts show how people actually work with emacs.
You can pick up valuable usage patterns, just by looking over someones shoulder.
== What is screencast ? ==
Screencast is a kind of "video screen capture" with/without voiceover.
== Tips in creating emacs screencast ==
dfdsfsf
require 'rexml/document'
require 'net/https'
require 'rexchange/dav_search_request'
require 'rexchange/message'
require 'rexchange/contact'
require 'rexchange/appointment'
require 'rexchange/note'
require 'rexchange/task'
require 'uri'
bs_by_a_id(A_id) ->
find(qlc:q([ B || B=#b{f_id=F_id} <- mnesia:table(b), F_id == A_id])).
as_with_bs() ->
find(
qlc:q([ {A,bs_by_a_id(A#a.id)} || A <- mnesia:table(a)])
).
top_as_with_some_bs(Limit) ->
top(
%% @author author <daniel.kwiecinski@lambder.com>
%% @copyright Daniel Kwiecinski.
%% @doc Static webmachine resource.
-module(static_resource).
-export([init/1, allowed_methods/2,
content_types_provided/2, resource_exists/2, last_modified/2, provide_content/2]).
-include_lib("webmachine/include/webmachine.hrl").
-include_lib("kernel/include/file.hrl").
class BasicGraph
include_package 'clojure.lang'
attr_reader :nodes, :edges
def self.empty
BasicGraph.new(PersistentHashMap::EMPTY, PersistentHashMap::EMPTY)
end
module Java::ClojureLang::IPersistentMap
def keys
keySet()
end
def has_key?(key)
containsKey(key)
end
def include?(key)
containsKey(key)
end
# that's SpiderMonkey
sudo apt-get install libmozjs-dev
sudo apt-get install libcurl4-openssl-dev
wget ftp://mirror.public-internet.co.uk/pub/apache/couchdb/0.9.0/apache-couchdb-0.9.0.tar.gz
tar -xzvf apache-couchdb-0.9.0.tar.gz
cd apache-couchdb-0.9.0/
./configure
make
-module(google_scrapper).
-compile(export_all).
-define(GOOGLE_URL, "http://www.google.co.uk/search?hl=en&btnG=Search&meta=&q=").
start() -> inets:start().
fetch_google_results(Q) ->
% In case of redirect lets erlang take care of this for us
% copied from Mochiweb's mochiweb_uitl.erl
-module(url_encoder).
-export([encode/1]).
-define(PERCENT, 37). % $\%
-define(FULLSTOP, 46). % $\.
-define(IS_HEX(C), ((C >= $0 andalso C =< $9) orelse
(C >= $a andalso C =< $f) orelse
(C >= $A andalso C =< $F))).
-define(QS_SAFE(C), ((C >= $a andalso C =< $z) orelse