28 lines
918 B
EmacsLisp
28 lines
918 B
EmacsLisp
(setq circe-network-options
|
|
'(("Libera Chat"
|
|
:tls t
|
|
:tls-keylist (("/home/tate/.config/weechat/libera.pem"
|
|
"/home/tate/.config/weechat/libera.pem"))
|
|
:host "irc.libera.chat"
|
|
:sasl-external t
|
|
:nick "nanach1"
|
|
:channels ("#emacs" "##japanese" "#openbsd" "##")
|
|
)))
|
|
|
|
(setq circe-reduce-lurker-spam t)
|
|
(enable-circe-color-nicks)
|
|
(add-hook 'circe-chat-mode-hook 'my-circe-prompt)
|
|
(defun my-circe-prompt ()
|
|
(lui-set-prompt
|
|
(concat (propertize (concat (buffer-name) ">")
|
|
'face 'circe-prompt-face)
|
|
" ")))
|
|
(setq
|
|
lui-time-stamp-position 'left-margin
|
|
lui-time-stamp-format "%H:%M")
|
|
(add-hook 'lui-mode-hook 'my-circe-set-margin)
|
|
(defun my-circe-set-margin ()
|
|
(setq left-margin-width 5))
|
|
(setq circe-format-say "{nick:-16s} {body}")
|
|
(setq circe-format-self-say "<{nick}> {body}")
|
|
(provide 'irc-settings)
|