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 ;; Load private file
;;-------------------------------------------------------------------------------------- ;;--------------------------------------------------------------------------------------
(when (file-exists-p "~/.private.el") (if (file-exists-p "~/.private.el")
(load-file "~/.private.el") (load-file "~/.private.el")
(setq irc-servers nil
irc-username nil
irc-password nil
default-realname nil
)
) )
;;-------------------------------------------------------------------------------------- ;;--------------------------------------------------------------------------------------
;; Configure Circe ;; Configure Circe
;;-------------------------------------------------------------------------------------- ;;--------------------------------------------------------------------------------------
(setq circe-network-options 'irc-servers) (setq circe-network-options irc-servers)
(setq circe-use-cycle-completion t) (setq circe-use-cycle-completion t)
(setq helm-mode-no-completion-in-region-in-modes (setq helm-mode-no-completion-in-region-in-modes
'(circe-channel-mode '(circe-channel-mode
@ -113,7 +118,7 @@
) )
(setq circe-reduce-lurker-spam t) (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) (add-hook 'circe-chat-mode-hook 'my-circe-prompt)
(defun 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 fill-column-indicator flycheck-clojure flycheck-haskell flycheck-rust
flycheck-pos-tip gitignore-mode haskell-mode helm helm-ag helm-projectile flycheck-pos-tip gitignore-mode haskell-mode helm helm-ag helm-projectile
js2-mode less-css-mode magit neotree paredit scss-mode powerline 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") "Packages to make sure are installed")
(defun my-packages-installed-p () (defun my-packages-installed-p ()

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

@ -8,22 +8,22 @@
;; Circe Configuration ;; Circe Configuration
(defvar irc-username "")
(defvar irc-password "")
(defvar irc-servers '( (defvar irc-servers '(
( (
"Freenode" "Freenode"
:nick "Your nick" :nick "Your nick"
:host "ircserver.whatever.com"
:channels ("channel1" "channel2") :channels ("channel1" "channel2")
:nickserv-password irc-password
:port port :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 ;; Email Configuration

Loading…
Cancel
Save