blob: 6fb85139f08b67e41ad47d6601865d31076d7bf0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(setq auth-sources '("~/.authinfo.gpg"))
(defun my-fetch-password (&rest params)
(require 'auth-source)
(let ((match (car (apply 'auth-source-search params))))
(if match
(let ((secret (plist-get match :secret)))
(if (functionp secret)
(funcall secret)
secret))
(error "Password not found for %S" params))))
(defun my-nickserv-password (server)
(my-fetch-password :user "bardman" :machine "irc.libera.chat"))
(setq circe-network-options
'(("Libera Chat"
:nick "bardman"
:channels ("#emacs" "##anime" "#gentoo")
:nickserv-password my-nickserv-password)))
(provide 'bard-emacs-circe)
|
