From 58f6e3c968d526aa90952b5ef58983740c915914 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 29 Aug 2021 10:37:02 -0500
Subject: Change circe nick formatting

---
 init.el | 72 ++++++++++++++++++++++++++++++++---------------------------------
 1 file changed, 36 insertions(+), 36 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 4de92d4..08f3381 100644
--- a/init.el
+++ b/init.el
@@ -1154,47 +1154,47 @@ like a dumbass."
               (enable-circe-display-images)
               (enable-circe-new-day-notifier)))
 
-  (setq circe-format-say (format "%s%s%d%s%s%s"
-                                 acdw-irc/pre-nick
-                                 "{nick:"
-                                 (- acdw-irc/left-margin 1
-                                    (+ (length acdw-irc/pre-nick)
-                                       (length acdw-irc/post-nick)))
-                                 "s} "
-                                 acdw-irc/post-nick
-                                 "{body}")
-        circe-format-self-say (format "%s%s%d%s%s%s"
-                                      acdw-irc/pre-my-nick
-                                      "{nick:"
-                                      (- acdw-irc/left-margin 1
-                                         (+ (length acdw-irc/pre-my-nick)
-                                            (length acdw-irc/post-my-nick)))
-                                      "s} "
-                                      acdw-irc/post-my-nick
-                                      "{body}")
-        circe-format-action (concat "*"
-                                    (repeat-string (- acdw-irc/left-margin 3)
-                                                   " ")
-                                    "* {nick} {body}")
-        circe-format-self-action (concat "-*"
-                                         (repeat-string (- acdw-irc/left-margin 4)
-                                                        " ")
-                                         "* {nick} {body}")
-        lui-fill-type (concat
-                       (repeat-string (- acdw-irc/left-margin 2)
-                                      " ")
-                       "  "))
+  (let ((len (number-to-string (- acdw-irc/left-margin 1
+                                  (+ (length acdw-irc/pre-nick)
+                                     (length acdw-irc/post-nick)))))
+        (my-len (number-to-string (- acdw-irc/left-margin 1
+                                     (+ (length acdw-irc/pre-my-nick)
+                                        (length acdw-irc/post-my-nick))))))
+    (setq circe-format-say (concat acdw-irc/pre-nick
+                                   "{nick:" len "." len "s} "
+                                   acdw-irc/post-nick
+                                   "{body}")
+          circe-format-self-say (concat acdw-irc/pre-my-nick
+                                        "{nick:" my-len "." my-len "s} "
+                                        acdw-irc/post-my-nick
+                                        "{body}")
+          circe-format-action (concat "*"
+                                      (repeat-string
+                                       (- acdw-irc/left-margin 3)
+                                       " ")
+                                      "* {nick} {body}")
+          circe-format-self-action (concat "-*"
+                                           (repeat-string
+                                            (- acdw-irc/left-margin 4)
+                                            " ")
+                                           "* {nick} {body}")
+          lui-fill-type (concat
+                         (repeat-string (- acdw-irc/left-margin 2)
+                                        " ")
+                         "  ")))
 
   (setq lui-time-stamp-position 'right-margin
         lui-time-stamp-format "%H:%M")
   (add-hook 'lui-mode-hook
             (defun lui-mode@setup ()
-              (setq right-margin-width 5
-                    scroll-margin 0
-                    fringes-outside-margins t
-                    word-wrap t
-                    wrap-prefix (repeat-string
-                                 (1+ acdw-irc/left-margin) " ")))))
+              (setq-local fringes-outside-margins t
+                          lui-track-bar-behavior 'before-switch-to-buffer
+                          right-margin-width 5
+                          scroll-margin 0
+                          word-wrap t
+                          wrap-prefix (repeat-string
+                                       (1+ acdw-irc/left-margin) " "))
+              (enable-lui-track-bar))))
 
 (setup (:straight (consult
                    :host github
-- 
cgit 1.4.1-21-gabe81