Browse Source

Get circe working with emacs

master
Taylor Bockman 9 years ago
parent
commit
b381baa25a
  1. 11
      dotfiles/emacs.d/init.el
  2. 2
      dotfiles/emacs.d/package.el
  3. 12
      dotfiles/emacs.d/sample-private.el

11
dotfiles/emacs.d/init.el

@ -95,15 +95,20 @@
;; Load private file
;;--------------------------------------------------------------------------------------
(when (file-exists-p "~/.private.el")
(if (file-exists-p "~/.private.el")
(load-file "~/.private.el")
(setq irc-servers nil
irc-username nil
irc-password nil
default-realname nil
)
)
;;--------------------------------------------------------------------------------------
;; Configure Circe
;;--------------------------------------------------------------------------------------
(setq circe-network-options 'irc-servers)
(setq circe-network-options irc-servers)
(setq circe-use-cycle-completion t)
(setq helm-mode-no-completion-in-region-in-modes
'(circe-channel-mode
@ -113,7 +118,7 @@
)
(setq circe-reduce-lurker-spam t)
(circe-set-display-handler "JOIN" (lambda (&rest ignored) nil)) ;; Hide JOIN spam
;; (circe-set-display-handler "JOIN" (lambda (&rest ignored) nil)) ;; Hide JOIN spam
(add-hook 'circe-chat-mode-hook 'my-circe-prompt)
(defun my-circe-prompt ()

2
dotfiles/emacs.d/package.el

@ -4,7 +4,7 @@
fill-column-indicator flycheck-clojure flycheck-haskell flycheck-rust
flycheck-pos-tip gitignore-mode haskell-mode helm helm-ag helm-projectile
js2-mode less-css-mode magit neotree paredit scss-mode powerline projectile
rust-mode color-theme-solarized wrap-region rainbow-delimiters)
rust-mode color-theme-solarized wrap-region stylus-mode rainbow-delimiters)
"Packages to make sure are installed")
(defun my-packages-installed-p ()

12
dotfiles/emacs.d/sample-private.el

@ -8,22 +8,22 @@
;; Circe Configuration
(defvar irc-username "")
(defvar irc-password "")
(defvar irc-servers '(
(
"Freenode"
:nick "Your nick"
:host "ircserver.whatever.com"
:channels ("channel1" "channel2")
:nickserv-password irc-password
:port port
:tls t
:realname "Your name"
:use-tls t
:nickserv-nick "auth nick"
:nickserv-password "auth password"
)
)
)
(defvar default-real-name "Real Name")
;; Email Configuration

Loading…
Cancel
Save