Twitteando con GNU Emacs sobre Windows

Para Windows bajamos desde el Sitio Oficial de Emacs la versión para W32. Vamos a esta dirección para bajar la extensión de Twitter denominada TwIt

Establecemos las variables de entorno del sistema que utilizara GNU Emacs y el archivo init para cargar TwIt.

Archivo .emacs
=============

;; Cargando TwIt

(add-to-list 'load-path "~/.emacs.d/twit") ; Save directory

;; Define M-x commands

(autoload 'twit-show-recent-tweets "twit" "" t) ; most recent direct tweets (!)
(autoload 'twit-show-at-tweets "twit" "" t) ; directed to you
(autoload 'twit-show-friends "twit" "" t) ; your friends
(autoload 'twit-show-followers "twit" "" t) ; your followers

(autoload 'twit-follow-recent-tweets "twit" "" t) ; at idle, check at background

(autoload 'twit-post "twit" "" t)
(autoload 'twit-post-region "twit" "" t)
(autoload 'twit-post-buffer "twit" "" t)
(autoload 'twit-direct "twit" "" t) ; tweet to person

(autoload 'twit-add-favorite "twit" "" t) ; Add to favourite: (*) star
(autoload 'twit-remove-favorite "twit" "" t)

(autoload 'twit-add-friend "twit" "" t) ; follow a friend
(autoload 'twit-remove-friend "twit" "" t) ; emove a frienda

;; Customize twit-multi-accounts in order to use these: ((user . pass) ...)
(autoload 'twit-switch-account "twit" "" t)
(autoload 'twit-direct-with-account "twit" "" t)
(autoload 'twit-post-with-account "twit" "" t)

(autoload 'twit-show-direct-tweets-with-account "twit" "" t)
(autoload 'twit-show-at-tweets-with-account "twit" "" t)

;; Personalizando TwIt

(setq twit-user "usuario")
(setq twit-pass "password")

;; Key bindings examples
;; Requires that autoloads above have been added to ~/.emacs

(global-set-key "\C-cTT" 'twit-follow-recent-tweets) ; (s)how (T)weets
(global-set-key "\C-cTst" 'twit-follow-recent-tweets) ; (s)how (t)weets
(global-set-key "\C-cTsa" 'twit-show-at-tweets) ; (s)how (a)t
(global-set-key "\C-cTsf" 'twit-show-at-tweets) ; (s)how (f)riends
(global-set-key "\C-cTsl" 'twit-show-at-tweets) ; (s)how fo(l)lowers

(global-set-key "\C-cTpp" 'twit-post) ; (p)ost
(global-set-key "\C-cTpr" 'twit-post-region) ; (p)post (r)egion
(global-set-key "\C-cTpb" 'twit-post-buffer) ; (p)post (b)uffer
(global-set-key "\C-cTpr" 'twit-direct) ; (p)post (d)irect
(global-set-key "\C-cTfa" 'twit-add-favorite) ; (f)avorite (a)dd
(global-set-key "\C-cTfr" 'twit-remove-favorite) ; (f)avorite (r)emove

;; FIN TwIt

Para que Emacs cargue la configuración del archivo init (.emacs) debemos establecer la variable de entorno HOME en nuestro sistema. Para ello vamos a las Propiedades de MiPC en Opciones avanzadas y establecemos la variable con el su valor, por ejemplo:

HOME=c:\Documents and Settings\usuario\

Nota: En caso de necesitar establecer la variable http_proxy para conexiones mediante proxy establecemos también su valor, ejemplo:

http_proxy=http://127.0.0.1:3128/

Con esto tendremos listo nuestro editor de texto para intercambiar con una de las redes sociales mas populares.

Espero que les sea de utilidad y felices Twits...

Referencias:
==========
http://www.emacswiki.org/emacs/TwIt
http://www.gnu.org/software/emacs/windows/Installing-Emacs.html

Cómo borrar directorios .svn recursivamente

Para eliminar directorios de manera recursiva en Windows podemos utilizar la siguiente línea de comando:

for /f "tokens=*" %d in ('dir *.svn /ad/b/s') do rd /s/q "%d"

Eliminar todos los directorios .svn en GNU/Linux:

rm -rf `find -type d -name .svn`