ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Stop using ERC, use circe instead

Browse source
This commit is contained in:
Tom Willemse 2015-09-03 15:56:18 +02:00
parent 443bada7b1
commit 805b2a8e92
2 changed files with 26 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
emacs/.emacs.d/Cask
View file

@ -14,6 +14,7 @@
(depends-on "buttercup")
(depends-on "c-eldoc")
(depends-on "cedit")
(depends-on "circe")
(depends-on "clojure-mode")
(depends-on "closure-template-html-mode")
(depends-on "coffee-mode")

38
emacs/.emacs.d/init.el
View file

@ -948,6 +948,31 @@ from myaethon2.core.decorators import (
(topmost-intro-cont first c-lineup-topmost-intro-cont
c-lineup-gnu-DEFUN-intro-cont))))
(stante-after circe
(defvar oni:circe-longest-nick 0)
(make-variable-buffer-local 'oni:circe-longest-nick)
(defun oni:circe-prompt (&rest keywords)
(let* ((nick (plist-get keywords :nick))
(l (length nick)))
(when (> l oni:circe-longest-nick)
(setq oni:circe-longest-nick l)
(setq-local lui-fill-type (make-string (+ l 3) ?\ )))
(format "%s %s" (s-pad-left oni:circe-longest-nick " " nick)
(plist-get keywords :body))))
(setq circe-format-self-say #'oni:circe-prompt)
(setq circe-format-say #'oni:circe-prompt)
(setq circe-network-options
`(("Freenode"
:nick "ryuslash"
:channels ("#emacs" "#mowedline" "#ninthfloor"))))
(setq lui-time-stamp-position 'right-margin)
(setq lui-time-stamp-format "%H:%M")
(setq lui-fill-type 'variable)
(add-hook 'lui-mode-hook (lambda () (setq right-margin-width 5)))
(add-hook 'circe-channel-mode-hook (lambda () (setq mode-line-format ""))))
(stante-after compile
(setq compilation-scroll-output t))
@ -1010,19 +1035,6 @@ from myaethon2.core.decorators import (
(add-to-list 'emms-player-list 'emms-player-mpd)
(setq emms-player-mpd-music-directory "/mnt/music/mp3"))
(stante-after erc
(setq erc-hide-list '("PART"))
(setq erc-nick "ryuslash"))
(stante-after erc-join
(setq erc-autojoin-channels-alist
'(("freenode.net" "#ninthfloor" "#emacs" "#dispass" "#mowedline"))))
(stante-after erc-stamp
(setq erc-insert-timestamp-function 'erc-insert-timestamp-left)
(setq erc-timestamp-format "[%H:%M] ")
(setq erc-timestamp-only-if-changed-flag nil))
(stante-after esh-mode
(add-to-list 'eshell-output-filter-functions #'oni:eshell-handle-url)
(add-to-list 'eshell-output-filter-functions #'eshell-truncate-buffer))