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

Add circe settings

Browse source
This commit is contained in:
Tom Willemse 2015-09-28 23:10:28 +02:00
parent 5f94872d37
commit 2ac78884b0
1 changed files with 60 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -982,8 +982,64 @@ from myaethon2.core.decorators import (
(format "%s %s" (s-pad-left oni:circe-longest-nick " " nick) (format "%s %s" (s-pad-left oni:circe-longest-nick " " nick)
(plist-get keywords :body)))) (plist-get keywords :body))))
(defun oni:circe-action-prompt (&rest keywords)
(format "%s %s %s" (s-pad-left oni:circe-longest-nick " " "*")
(plist-get keywords :nick)
(plist-get keywords :body)))
(defun oni:circe-server-prompt (&rest keywords)
(format "%s %s" (s-pad-left oni:circe-longest-nick " " "***")
(plist-get keywords :body)))
(defun oni:circe-server-join-in-channel (&rest keywords)
(format "%s Join: %s (%s) joined %s"
(s-pad-left oni:circe-longest-nick " " "***")
(plist-get keywords :nick)
(plist-get keywords :userinfo)
(plist-get keywords :channel)))
(defun oni:circe-server-join (&rest keywords)
(format "%s %s joined the channel"
(s-pad-left oni:circe-longest-nick " " "***")
(plist-get keywords :nick)))
(defun oni:circe-server-quit (&rest keywords)
(format "%s %s quit IRC: %s"
(s-pad-left oni:circe-longest-nick " " "***")
(plist-get keywords :nick)
(plist-get keywords :reason)))
(defun oni:circe-server-quit-channel (&rest keywords)
(format "%s %s left %s: %s"
(s-pad-left oni:circe-longest-nick " " "***")
(plist-get keywords :nick)
(plist-get keywords :channel)
(plist-get keywords :reason)))
(defun oni:circe-server-part (&rest keywords)
(format "%s %s parted %s: %s"
(s-pad-left oni:circe-longest-nick " " "***")
(plist-get keywords :nick)
(plist-get keywords :channel)
(plist-get keywords :reason)))
(defun oni:circe-server-nick-change (&rest keywords)
(format "%s %s is now known as %s"
(s-pad-left oni:circe-longest-nick " " "***")
(plist-get keywords :old-nick)
(plist-get keywords :new-nick)))
(setq circe-format-self-say #'oni:circe-prompt) (setq circe-format-self-say #'oni:circe-prompt)
(setq circe-format-say #'oni:circe-prompt) (setq circe-format-say #'oni:circe-prompt)
(setq circe-format-self-action #'oni:circe-action-prompt)
(setq circe-format-action #'oni:circe-action-prompt)
(setq circe-format-server-message #'oni:circe-server-prompt)
(setq circe-format-server-join-in-channel #'oni:circe-server-join-in-channel)
(setq circe-format-server-join #'oni:circe-server-join)
(setq circe-format-server-quit #'oni:circe-server-quit)
(setq circe-format-server-quit-channel #'oni:circe-server-quit-channel)
(setq circe-format-server-part #'oni:circe-server-part)
(setq circe-format-server-nick-change #'oni:circe-server-nick-change)
(setq circe-network-options (setq circe-network-options
`(("Freenode" `(("Freenode"
:nick "ryuslash" :nick "ryuslash"
@ -1241,6 +1297,10 @@ from myaethon2.core.decorators import (
(setq time-stamp-active t) (setq time-stamp-active t)
(setq time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S (%u)")) (setq time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S (%u)"))
(stante-after tracking
(add-hook 'tracking-buffer-added-hook 'oni:update-mowedline-irclist)
(add-hook 'tracking-buffer-removed-hook 'oni:update-mowedline-irclist))
(stante-after type-break (stante-after type-break
(setq type-break-good-rest-interval (* 60 10)) (setq type-break-good-rest-interval (* 60 10))
(setq type-break-interval (* 60 50)) (setq type-break-interval (* 60 50))