+(package-initialize)
(show-paren-mode 1)
;; y-or-n instead of yes-or-no
(defalias 'yes-or-no-p 'y-or-n-p)
;; If there is more than one, they won't work right.
'(initial-frame-alist (quote ((fullscreen . maximized))))
'(send-mail-function (quote smtpmail-send-it)))
+
;; Who use the bar to scroll?
(when (display-graphic-p)
(progn
(erc-autojoin-mode t)
(setq erc-autojoin-channels-alist
- '((".*\\.freenode.net" "#tahoe-lafs" "#snowdrift" "#haskell" "#haskell-beginners")
- (".*\\.oftc.net" "#LeastAuthority")
- ;;(".*\\.mozilla.org" "#rust-beginners")
- ))
+ '((".*\\.freenode.net" "#tahoe-lafs") ;; "#plan9chan" "#cat-v")
+ (".*\\.oftc.net" "#LeastAuthority" "#debian-in")))
;; check channels
(erc-track-mode t)
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
;; haskell mode
-(require 'haskell-interactive-mode)
(require 'haskell-process)
+(require 'haskell-interactive-mode)
(add-hook 'haskell-mode-hook 'interactive-haskell-mode)
(custom-set-variables
;; addressbook
(require 'notmuch-address)
(setq notmuch-address-command "/usr/bin/notmuch-addrlookup")
-(notmuch-address-message-insinuate)
+;;(notmuch-address-message-insinuate)
(require 'smtpmail)
(setq message-send-mail-function 'smtpmail-send-it)
;(desktop-save-mode 1)
+;; which function?
+(which-func-mode 1)
+(add-to-list 'which-func-modes '(c-mode c++-mode rust-mode haskell-mode))