       (newline-and-indent)
       (insert (format log-entry-format class-name function-name)))))
 
-(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
-                         ("marmalade" . "http://marmalade-repo.org/packages/")
-                         ("melpa" . "http://melpa.milkbox.net/packages/")))
 
 (defun load-env-tags()
   (interactive)

 ;; disable the damn splash-screen
(setq inhibit-splash-screen t)

(setq scheme-program-name "guile")
 ;; (setq scheme-program-name "kawa")
(setq fill-column 79)
(setq-default indent-tabs-mode nil)


  (interactive)
  (hipchat-join "tpg_ro_bento"))

(defun show-or-hide-shell ()
  (interactive)
  (if (and
