19 lines
414 B
EmacsLisp
19 lines
414 B
EmacsLisp
|
;;; app/irc/autoload/email.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun =irc ()
|
||
|
|
"Connect to IRC."
|
||
|
|
(interactive)
|
||
|
|
(call-interactively #'circe))
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +irc/connect-all ()
|
||
|
|
"Connect to all `:irc' defined servers."
|
||
|
|
(interactive)
|
||
|
|
;; force a library load for +irc--accounts
|
||
|
|
(circe--version)
|
||
|
|
(mapcar (lambda (network)
|
||
|
|
(circe (car network)))
|
||
|
|
+irc--accounts))
|
||
|
|
|