emacs/dot-emacs-win

   1 ;; A simple .emacs for my WinXP box.\r
   2 \r
   3 (add-to-list 'load-path "~/elisp")\r
   4 \r
   5 ;; General settings\r
   6 (setq backup-inhibited t)\r
   7 (setq inhibit-startup-message t)\r
   8 \r
   9 ;; Color theme\r
  10 (require 'color-theme)\r
  11 (load "color-theme-cl-frame.el")\r
  12 (color-theme-cl-frame)\r
  13 \r
  14 ;; C-x b flex matching\r
  15 (require 'ido)\r
  16 (ido-mode t)\r
  17 (setq ido-enable-flex-matching t)\r
  18 (global-set-key (kbd "<f11>") 'ido-switch-buffer)\r
  19 \r
  20 ;; ;;;;;;;;;;;;;;;;;;\r
  21 ;; rcirc IRC settings\r
  22 ;; ;;;;;;;;;;;;;;;;;;\r
  23 \r
  24 (load "~/.irc-auth.el")\r
  25 (setq rcirc-authinfo\r
  26       (list\r
  27        (list "freenode" 'nickserv "srid" passwd)\r
  28        (list "bitlbee" 'bitlbee "srid" passwd)))\r
  29 \r
  30 (defun balloon-tip (topic msg)\r
  31   (write-region (format "\n%s: %s" topic msg)\r
  32                 nil "~/.balloon-messages" t))\r
  33   \r
  34 \r
  35 \r
  36 (defun new-msg-message (p s r t2 txt)\r
  37   (message "[%s] %s %s %s %s" p s r t2 txt)\r
  38   (when (and (string-match (rcirc-server-name p) "testing.bitlbee.org")\r
  39              (string-match (format "%s" r) "PRIVMSG"))\r
  40     (balloon-tip s txt)))\r
  41 \r
  42 (defun new-msg-balloon-tip (p s r t txt)\r
  43   (when (and (string-match (rcirc-nick p) txt)\r
  44              (not (string= (rcirc-nick p) s))\r
  45              (not (string= (rcirc-server-name p) s)))\r
  46     (start-process "balloon-tip" nil "~/Code/balloon-tip.py"\r
  47                    (format "'activity in %s'" t)\r
  48                    (format "'%s: %s'" s txt))))\r
  49 ;(add-hook 'rcirc-print-hooks 'new-msg)\r
  50 \r
  51 (defun im ()\r
  52   (interactive)\r
  53   (rcirc-connect "testing.bitlbee.org" 6667\r
  54                  "srid" "srid" "Sridhar Ratna"))\r
  55 \r
  56 ;; wl-mode\r
  57 (add-to-list 'load-path "~/Grad/wl")\r
  58 (autoload 'wl-mode "wl-mode" "wl-mode" t)\r
  59 (add-to-list 'auto-mode-alist '("\\.wl\\'" . wl-mode))\r
  60 \r
  61 (require 'bazaar)\r
  62 \r
  63 (autoload 'javascript-mode "javascript" nil t)\r
  64 (add-to-list 'auto-mode-alist '("\\.js\\'" . javascript-mode))\r
  65 \r
  66 (custom-set-variables\r
  67   ;; custom-set-variables was added by Custom.\r
  68   ;; If you edit it by hand, you could mess it up, so be careful.\r
  69   ;; Your init file should contain only one such instance.\r
  70   ;; If there is more than one, they won't work right.\r
  71  '(rcirc-default-nick "srid")\r
  72  '(rcirc-default-user-name "srid")\r
  73  '(rcirc-fill-flag t)\r
  74  '(rcirc-startup-channels-alist (quote (("^irc.freenode.net$" "#linux-india" "#emacs" "#scheme" "#ruby-lang"))))\r
  75  '(rcirc-track-minor-mode t)\r
  76  '(tool-bar-mode nil))\r
  77 (custom-set-faces\r
  78   ;; custom-set-faces was added by Custom.\r
  79   ;; If you edit it by hand, you could mess it up, so be careful.\r
  80   ;; Your init file should contain only one such instance.\r
  81   ;; If there is more than one, they won't work right.\r
  82  )\r