54 lines
1.9 KiB
EmacsLisp
54 lines
1.9 KiB
EmacsLisp
(defun mk/start-irc (nick)
|
||
(interactive "sTell me your nick please: ")
|
||
(erc-tls :server "irc.libera.chat"
|
||
:port 6697
|
||
:nick nick
|
||
:full-name "Jay Edgar Hoover"))
|
||
|
||
(use-package erc
|
||
:defer t
|
||
:custom
|
||
(erc-track-exclude '("#emacs"))
|
||
(erc-track-exclude-types '("JOIN" "NICK" "QUIT" "MODE" "AWAY"))
|
||
(erc-hide-list '("JOIN" "NICK" "QUIT" "MODE" "AWAY"))
|
||
(erc-track-exclude-server-buffer t)
|
||
(erc-fill-column 80)
|
||
(erc-fill-function 'erc-fill-static)
|
||
(erc-fill-static-center 20)
|
||
(erc-prompt-for-nickserv-password nil)
|
||
(erc-track-shorten-start 8)
|
||
(erc-auto-query 'bury)
|
||
(erc-network-hide-list '(("libera.chat" "JOIN" "PART" "QUIT")))
|
||
(erc-rename-buffers t)
|
||
(erc-interpret-mirc-color t)
|
||
(erc-kill-buffer-on-part t)
|
||
(erc-kill-queries-on-quit t)
|
||
(erc-kill-server-buffer-on-quit t)
|
||
(erc-modules
|
||
'(autojoin ; Set away status automatically
|
||
button ; Join channels automatically
|
||
completion ; Complete nicknames and commands (programmable)
|
||
fill ; Wrap long lines
|
||
irccontrols ; Highlight or remove IRC control characters
|
||
match ; Highlight pals, fools, and other keywords
|
||
menu ; Display a menu in ERC buffers
|
||
netsplit ; Detect netsplits
|
||
noncommands ; Don’t display non-IRC commands after evaluation
|
||
readonly ; Make displayed lines read-only
|
||
ring ; Enable an input history
|
||
services ; Identify to Nickserv (IRC Services) automatically
|
||
smiley ; Convert smileys to pretty icons
|
||
stamp ; Add timestamps to messages
|
||
truncate ; Truncate buffers to a certain size
|
||
)))
|
||
|
||
(use-package erc-hl-nicks
|
||
:after erc
|
||
:config
|
||
(add-to-list 'erc-modules 'hl-nicks))
|
||
|
||
(use-package erc-image
|
||
:after erc
|
||
:config
|
||
(setq erc-image-inline-rescale 300)
|
||
(add-to-list 'erc-modules 'image))
|