(global-set-key (kbd "C-c w") 'eww)
#+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))))
+Circe is a really nice IRC client, that claims to be above RCIRC and below ERC in terms of features. ERC felt a bit messy and finicky to me, and Circe has all the features that I need. This setup gets the password for my bouncer (Pounce) instances via my =~/.authinfo.gpg= file.
+#+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))))
- (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!"))
+ (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!")
+ :bind (:map circe-mode-map ("C-c C-r" . circe-reconnect-all)))
#+end_src
* Emacs IDE
** Code cleanup