mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-06-14 12:21:20 +00:00
New IRC configuration
This commit is contained in:
parent
c605f2fa48
commit
e0d7f1a3ff
1 changed files with 11 additions and 1 deletions
|
|
@ -318,6 +318,12 @@
|
|||
;; "##linux" "#compilers" "#pltclub"
|
||||
;; "##cs" "##computerscience" "##programming" "#lisp" "##lisp"
|
||||
;; "#sbcl" "#ecl"
|
||||
)
|
||||
("libera.chat" "#emacs" "#org-mode" "#archlinux"
|
||||
"#commonlisp" "#sbcl" "#compilers"
|
||||
;; "##linux" "#pltclub"
|
||||
;; "##cs" "##computerscience" "##programming" "#lisp" "##lisp"
|
||||
;; "#ecl"
|
||||
)))
|
||||
|
||||
(defun get-authinfo (host port)
|
||||
|
|
@ -329,10 +335,14 @@
|
|||
(erc :server "irc.freenode.net" :port 6667
|
||||
:password password :nick nick))
|
||||
|
||||
(defun libera-connect (nick password)
|
||||
(erc-tls :server "irc.libera.chat" :port 6697
|
||||
:password password :nick nick))
|
||||
|
||||
(defun irc-connect ()
|
||||
(interactive)
|
||||
(when (y-or-n-p "Connect to IRC? ")
|
||||
(freenode-connect "pest-ctrl" (get-authinfo "irc.freenode.net" "6667"))))
|
||||
(libera-connect "pestctrl" (get-authinfo "irc.libera.chat" "6697"))))
|
||||
#+end_src
|
||||
** font-lock-studio
|
||||
#+begin_src emacs-lisp
|
||||
|
|
|
|||
Loading…
Reference in a new issue