?

Log in

No account? Create an account
Overloading the Machine -- Day [entries|friends|calendar]
johnsu01

[ website | wjsullivan.net ]
[ userinfo | livejournal userinfo ]
[ calendar | livejournal calendar ]

Intolerable Cruelty [13 Mar 2004|12:03pm]
I noticed in the pre-Oscar newspaper coverage that Intolerable Cruelty was on a few critics' lists as the movie that should have been nominated for various categories, but wasn't.
Read more...Collapse )
post comment

[13 Mar 2004|06:19pm]
I've been trying to learn Emacs Lisp. Here's my first-sort of successful project. It sets up a hook in ERC to mail Instant Messages from my desktop to my mobile phone.

No, I'm not an IM junkie at all.  Just thought of this idea and decided to see if I could do it.

Suggestions on the code appreciated. I'm sure there is a superior way to mail things other than using the shell-command business.
----

(defun send-to-phone ()
 "Sends each #bitlbee message to my mobile phone in an email."
   (with-current-buffer "#bitlbee"
      (setq recent-message (buffer-substring-no-properties (point-min) (point-max)))
      (shell-command (concat "echo " (shell-quote-argument
            recent-message) "|" "mail -s bitlbeemessage myphone@vmobl.com"))))


(with-current-buffer "#bitlbee"
     (add-hook 'erc-insert-post-hook 'send-to-phone nil t))
post comment

navigation
[ viewing | March 13th, 2004 ]
[ go | previous day|next day ]