Free music for everyone

So you know of a specific group, artist, song name, and you never got arround to have the album in your hands. Say you'd like to show it to someone. Feel free to try out the hype machine @ http://hypem.com . This great page looks for mp3 in blogs, and presents it to us in a little playlist player, for our delight.



Since we're at free music, please don't forget the great last.fm, that keeps playing fine tunes I don't know I'm about to love :)

DIY Mousepad

I got myself a MX Revolution laser mouse. It works pretty much perfectly, but I need a decent mousepad, so as I started to look through my options, I saw this:

The Best Gaming Mouse Pad You’ll Ever Make - PaulStamatiou.com



I must give this a try, but I like the number of good comments on the page!

Untitled post on Sun Feb 04 21:18:14 2007

Posting remembered data in emacs

Here's the important piece of code:

<example>
;; Attach this feature to remember:
(defun blogspot-post-when-remember-maybe ()
(when (y-or-n-p "You might as well send this to your blog, if you're online. Go for it? ")
(let ((body (buffer-string)))
(blogspot nil nil body)
nil)))

(add-hook 'remember-handler-functions 'blogspot-post-when-remember-maybe)
</example>

Emacs sending to blogger, made easy

(defvar blogspot-post-username "yourname"
"The first part of the email address: `blogspot-post-username'.`blogspot-post-blog'@blogger.com")

(defvar blogspot-post-blog-list '("blog1" "blog2")
"List with second parts of the email address: `blogspot-post-username'.`blogspot-post-blog'@blogger.com")

(require 'cl)
(defun blogspot (title url &optional text)
"Opens a gnus msg buffer with the active region or the parameters passed in the body.
Configure `blogspot-post-username' and `blogspot-post-blog-list' to set it up."
(interactive "sPost title:
sPost link (tip - an empty string won't create the link): ")
(let* ((blogspot-post-blog (completing-read "Where to? " blogspot-post-blog-list nil nil (car blogspot-post-blog-list)))
(to (concat blogspot-post-username "." blogspot-post-blog "@blogger.com"))
(subject (cond ((and title url (not (string= url "")))
(concat "<a href= \""
url
"\">"
title
"</a>"))
(title title)
(t "")))
(body (or text "")))
(let ((gnus-posting-styles
(mapcan (lambda (x)
(list (remove-if (lambda (y) (and (listp y)
(string= (car y) "Face")))
x)))
gnus-posting-styles)))
(gnus-msg-mail to subject))
(save-excursion
(when body
(raise-frame)
(insert body)))
(message "Edit the buffer and press \\C-c \\C-c to post it to %s." blogspot-post-blog)))

(defun blogspot-region (beg end title url)
"Call `blogspot-text' and inserts the active region as the post's body."
(interactive "r
sPost title:
sPost link: ")
(blogspot title url (buffer-substring-no-properties beg end)))

--
Edgar Gonçalves - http://www.esw.inesc-id.pt/~eemg

Software Engineering Group @ INESC-ID
IST/Technical University of Lisbon