howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor IRC formmating of the ERC variables

Browse source
This commit is contained in:
Howard Abrams 2022-04-09 09:07:10 -07:00
parent 8690385c15
commit 4848a23742
1 changed files with 23 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
ha-irc.org
View file

@ -38,26 +38,28 @@ My IRC /needs/ are basic, but I'm not sure which I want to use.
:commands erc :commands erc
:config :config
(setq (setq
erc-nick "howard-abrams" erc-nick "howard-abrams"
erc-user-full-name "Howard Abrams" erc-user-full-name "Howard Abrams"
erc-prompt ">>" erc-prompt ">>"
erc-prompt-for-nickserv-password nil erc-prompt-for-nickserv-password nil
erc-auto-query 'bury erc-auto-query 'bury
erc-join-buffer 'bury erc-join-buffer 'bury
erc-interpret-mirc-color t erc-interpret-mirc-color t
erc-rename-buffers t erc-rename-buffers t
erc-hide-list '("JOIN" "PART" "QUIT") erc-hide-list '("JOIN" "PART" "QUIT")
erc-track-enable-keybindings nil erc-track-enable-keybindings nil
erc-track-visibility nil ; Only use the selected frame for visibility erc-track-visibility nil ; Only use the selected frame for visibility
erc-fill-column 120 erc-fill-column 120
erc-fill-function 'erc-fill-static erc-fill-function 'erc-fill-static
erc-fill-static-center 20 erc-fill-static-center 20
erc-autojoin-channels-alist '(("howardabrams.com" "#emacs" "#org-mode")) erc-timestamp-only-if-changed-flag nil
erc-quit-reason (lambda (s) (or s "Fading out...")) ;; erc-timestamp-format "%H:%M"
erc-modules erc-autojoin-channels-alist '(("howardabrams.com" "#emacs" "#org-mode"))
'(autoaway autojoin button completion fill irccontrols keep-place erc-quit-reason (lambda (s) (or s "Fading out..."))
list match menu move-to-prompt netsplit networks noncommands erc-modules
readonly ring stamp track hl-nicks))) '(autoaway autojoin button completion fill irccontrols keep-place
list match menu move-to-prompt netsplit networks noncommands
readonly ring stamp track hl-nicks)))
(defun ha-erc-connect-irc () (defun ha-erc-connect-irc ()
"Connect to my favorite IRC server with ERC." "Connect to my favorite IRC server with ERC."
@ -67,7 +69,7 @@ My IRC /needs/ are basic, but I'm not sure which I want to use.
(username (plist-get auth-first :user)) (username (plist-get auth-first :user))
(password (funcall (plist-get auth-first :secret)))) (password (funcall (plist-get auth-first :secret))))
(erc :server "howardabrams.com" :port 7777) (erc :server "howardabrams.com" :port 7777)
(sit-for 1) (sit-for 2)
(erc-cmd-QUOTE (format "PASS %s:%s" username password)))) (erc-cmd-QUOTE (format "PASS %s:%s" username password))))
#+END_SRC #+END_SRC