#+end_src
** IRC
#+begin_src emacs-lisp
- (defun 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 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))))
- (use-package circe
- :config
- (enable-lui-track)
- (enable-circe-color-nicks)
- (circe "pounce")
- :custom
- (circe-network-options . '(("pounce"
- :host "irc.armaanb.net"
- :nick "emacs"
- :use-tls t
- :port "6697"
- :pass (lambda (fetch-password
- :login "emacs"
- :machine "irc.armaanb.net"
- :port 6697)))))
- (circe-default-part-message "goodbye!"))
+ (use-package circe
+ :config
+ (enable-lui-track)
+ (enable-circe-color-nicks)
+ (circe "libera")
+ (circe "oftc")
+ (circe "tilde")
+ (setq circe-networks '(("libera"
+ :host "irc.armaanb.net"
+ :nick "emacs"
+ :use-tls t
+ :port "6698"
+ :pass (lambda (null) (fetch-password
+ :login "emacs"
+ :machine "irc.armaanb.net"
+ :port 6698)))
+ ("oftc"
+ :host "irc.armaanb.net"
+ :nick "emacs"
+ :use-tls t
+ :port "6699"
+ :pass (lambda (null) (fetch-password
+ :login "emacs"
+ :machine "irc.armaanb.net"
+ :port 6699)))
+ ("tilde"
+ :host "irc.armaanb.net"
+ :nick "emacs"
+ :use-tls t
+ :port "6696"
+ :pass (lambda (null) (fetch-password
+ :login "emacs"
+ :machine "irc.armaanb.net"
+ :port 6696)))
+ ))
+ :custom (circe-default-part-message "goodbye!"))
#+end_src
* Emacs IDE
** Code cleanup
**** Programs
#+begin_src conf :tangle ~/.spectrwm.conf
program[email] = emacsclient -c --eval "(mu4e)"
- program[irc] = emacsclient -c --eval '(switch-to-buffer "irc.armaanb.net:6697")'
+ program[irc] = emacsclient -c --eval '(switch-to-buffer "irc.armaanb.net:6698")'
program[rss] = emacsclient -c --eval '(elfeed)'
program[emacs] = emacsclient -c
program[firefox] = firefox