Add circe

init.el

@@ -381,7 +381,8 @@
   (tab-always-indent 'complete)
   :config
   (global-corfu-mode)
-  (add-hook 'minibuffer-setup-hook (lambda ()
+  (add-hook 'minibuffer-setup-hook
+            (lambda ()
               (when (where-is-internal #'completion-at-point
                                        (list (current-local-map)))
                 (setq-local corfu-echo-display nil
@@ -613,6 +614,40 @@
                           nil t)))
     (add-to-list 'meow-mode-state-list '(vterm-mode . insert))))
 
+(use-package circe
+  :hook (circe-channel-mode . enable-lui-autopaste)
+  :custom
+  (circe-default-nick "eriedaberrie")
+  (circe-default-user "eriedaberrie")
+  (circe-default-realname "eriedaberrie")
+  (circe-format-self-say ">>> {body}")
+  (lui-time-stamp-position 'right-margin)
+  (lui-fill-type nil)
+  (lui-time-stamp-format "%H:%M")
+  :config
+  (--when-let (nth 0 (auth-source-search :max 1
+                                         :require '(:user :secret)
+                                         :host "irc.libera.chat"
+                                         :port 6697))
+    (let ((user (plist-get it :user))
+          (secret (plist-get it :secret)))
+      (setq circe-network-options
+            `(("Libera Chat"
+               :tls t
+               :nick ,user
+               :sasl-username ,user
+               :sasl-password ,(if (functionp secret)
+                                   (funcall secret)
+                                 secret)
+               :channels ("#guix" "#nonguix" "#shirakumo" "#emacs"))))))
+  (add-hook 'lui-mode-hook
+            (lambda ()
+              (visual-line-mode)
+              (setq-local fringes-outside-margins t
+                          right-margin-width 5
+                          wrap-prefix "    ")
+              (setcdr (assoc 'continuation fringe-indicator-alist) nil))))
+
 (use-package elfeed
   :custom
   (elfeed-feeds '(("https://archlinux.org/feeds/news/" arch-linux))))
@@ -850,6 +885,7 @@
 (add-hook 'eval-expression-minibuffer-setup-hook #'electric-pair-local-mode)
 
 (add-hook 'text-mode-hook #'word-wrap-whitespace-mode)
+(add-hook 'text-mode-hook #'visual-line-mode)
 
 (defun scroll-down-3 ()
   "Scroll down by 3."