| (require 'mine-jabber) | |
| ;; Username & nickname fields from https://banno.hipchat.com/account/xmpp | |
| (setq hipchat-username "") | |
| (setq hipchat-nickname "") | |
| (setq hipchat-password "") | |
| (setq hipchat-autojoin-rooms | |
| '("aggregation" "assets" "banno_talk" "banno_cms" "data_services" "emacs" "grip" "kernel" "southen" "troll_talk" "webdev" "design_talk")) |
| Kafka's Theme | |
| Final Fantasy Vi | |
| composed by Nobuo Uematsu | |
| Tabbed by The Ripper With help from hslesperance (original link: http://www.gametabs.net/final-fantasy-vi/kefkas-theme-1) | |
| Drop D | |
| Q Q Q Q Q Q Q E E Q Q Q Q | |
| E||----------------------|--0---------1----0-----|--0-------------------| | |
| B||-------0----1----3----|-------1------------3--|-------1----0----3----| | |
| G||--2-------------------|-----------------------|----------------------| |
| 16:04 <rubbish> java.lang.BrainStackOverflowException: Grip 1.3 | |
| 16:04 <rubbish> at cerebal.cortex (CerebalCortex.java:923) | |
| 16:04 <rubbish> at ventral.stream (Procssing.java:6) | |
| 16:04 <rubbish> at visual.perception (Perception.java:2094) | |
| 16:04 <rubbish> at eyes.face (Eyes.java:1240) | |
| 16:04 <rubbish> at 5.senses (Senses.java:231) |
| (setq echo-area-silenced-patterns '("Desktop saved" | |
| "Auto saving" | |
| "No changes need to be saved" | |
| "You can run the command")) | |
| (defadvice message (before ignorable-message activate compile) | |
| "Do not echo any messages matching a pattern in `echo-area-silenced-patterns`." | |
| (let ((current-echo (current-message)) | |
| (incoming-echo (apply 'format (cons format-string args)))) | |
| (when (member-if '(lambda (pattern) (search pattern incoming-echo)) echo-area-silenced-patterns) |
| (custom-set-faces | |
| '(rcirc-my-nick ((t (:foreground "#00ffff")))) | |
| '(rcirc-other-nick ((t (:foreground "#90ee90")))) | |
| '(rcirc-server ((t (:foreground "#a2b5cd")))) | |
| '(rcirc-server-prefix ((t (:foreground "#00bfff")))) | |
| '(rcirc-timestamp ((t (:foreground "#7d7d7d")))) | |
| '(rcirc-nick-in-message ((t (:foreground "#00ffff")))) | |
| '(rcirc-prompt ((t (:foreground "#00bfff"))))) |
| (defun mine-set-font-size (size) | |
| (interactive "sSize: ") | |
| (let ((font (concat "Monaco " size))) | |
| (set-frame-parameter (selected-frame) 'font font) | |
| (add-to-list 'default-frame-alist (cons 'font font)))) |
| (defun ssh-copy-id (username host) | |
| (interactive "sUsername: \nsHost: ") | |
| (shell-command (format "ssh-copy-id %s@%s" username host))) |
| ;; Create non-existent directories containing a new file before saving | |
| (add-hook 'before-save-hook | |
| (lambda () | |
| (when buffer-file-name | |
| (let ((dir (file-name-directory buffer-file-name))) | |
| (when (and (not (file-exists-p dir)) | |
| (y-or-n-p (format "Directory %s does not exist. Create it?" dir))) | |
| (make-directory dir t)))))) |
| import XMonad | |
| import XMonad.Util.Run | |
| import XMonad.Util.EZConfig | |
| import XMonad.Actions.CycleWS | |
| import XMonad.Actions.SpawnOn | |
| import Data.Monoid | |
| --import qualified Data.Map as M | |
| --import Control.Monad | |
| --import Control.Comonad | |
| --import System.Environment |