Change to circe

3 files changed, 163 insertions, 2 deletions

@@ -323,6 +323,7 @@
   
   (:option
    erc-auto-discard-away t
+   erc-auto-set-away t
    erc-autoaway-idle-seconds 600
    erc-autoaway-message "BRB (autoaway: %i seconds)"
    erc-button-url-regexp browse-url-button-regexp
@@ -333,7 +334,7 @@
    erc-fill-static-center 14
    erc-format-nick-function #'erc-format-truncate-@nick
    erc-header-line-face-method #'erc/update-header-line-show-disconnected
-   erc-hide-list '("NICK" "MODE" "JOIN" "PART" "QUIT")
+   erc-hide-list '("NICK" "MODE" "JOIN" "PART" "QUIT" "AWAY")
    erc-interpret-controls-p t
    erc-interpret-mirc-color t
    erc-join-buffer 'bury
@@ -353,7 +354,9 @@
    erc-server-coding-system '(utf-8 . utf-8)
    erc-timestamp-intangible t
    erc-track-exclude-types (append erc-hide-list
-                                   '("AWAY"
+                                   '("AWAY" ; for some reason this triggers
+                                        ; track anyway... so it's in
+                                        ; `erc-hide-list'
                                      "353" "324" "329" "332" "333" "477"))
    erc-track-exclude-server-buffer t
    erc-track-position-in-mode-line 'before-modes
@@ -1109,6 +1112,74 @@ like a dumbass."
 (setup (:straight (beginend))
   (beginend-global-mode +1))
 
+(setup (:straight circe)
+  (require 'circe)
+  (require 'acdw-irc)
+  
+  (setq acdw-irc/post-my-nick "-> ")
+  
+  (setq circe-default-part-message "See You, Space Cowpokes . . ."
+        circe-highlight-nick-type 'all
+        ;; circe-network-options in private.el
+        circe-reduce-lurker-spam t
+        circe-server-auto-join-default-type :after-auth)
+
+  (add-hook 'circe-chat-mode-hook
+            (defun circe-chat@setup ()
+              (lui-set-prompt
+               (concat (propertize (acdw-irc/margin-format (buffer-name)
+                                                           ""
+                                                           ">")
+                                   'face 'circe-prompt-face
+                                   'read-only t 'intangible t
+                                   'cursor-intangible t)
+                       " "))
+              (enable-circe-color-nicks)
+              (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)
+                                      " ")
+                       "  "))
+
+  (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) " ")))))
+
 (setup (:straight (consult
                    :host github
                    :repo "minad/consult"))
@@ -1696,6 +1767,7 @@ successive invocations."
                                acdw-modeline/wc
                                acdw-modeline/text-scale
                                simple-modeline-segment-process
+                               acdw-modeline/track
                                acdw-modeline/god-mode-indicator
                                acdw-modeline/winum
                                acdw-modeline/minions
@@ -0,0 +1,84 @@
+;;; acdw-irc.el -*- lexical-binding: t; coding: utf-8-unix -*-
+
+(require 's nil :noerror)
+
+(defgroup acdw-irc nil
+  "Customizations for IRC."
+  :group 'applications)
+
+(defcustom acdw-irc/left-margin 16
+  "The size of the margin for nicks, etc. on the left."
+  :type 'integer)
+
+(defcustom acdw-irc/pre-nick ""
+  "What to show before a nick."
+  :type 'string)
+
+(defcustom acdw-irc/post-nick " | "
+  "What to show after a nick."
+  :type 'string)
+
+(defcustom acdw-irc/pre-my-nick "-"
+  "What to show before the current user's nick."
+  :type 'string)
+
+(defcustom acdw-irc/post-my-nick "-> "
+  "What to show after the current user's nick."
+  :type 'string)
+
+(defcustom acdw-irc/ellipsis "~"
+  "The ellipsis for when a string is too long."
+  :type 'string)
+
+
+;;; Convenience functions (I don't want to /depend/ on s.el)
+
+(if (fboundp 's-repeat)
+    (defalias 'repeat-string 's-repeat)
+  (defun repeat-string (num s)
+    "Make a string of STR repeated NUM times.
+Stolen from s.el."
+    (declare (pure t) (side-effect-free t))
+    (let (ss)
+      (while (> num 0)
+        (setq ss (cons str ss)
+              num (1- num)))
+      (apply #'concat ss))))
+
+(if (fboundp 's-truncate)
+    (defalias 'truncate-string 's-truncate)
+  (defun truncate-string (len s &optional ellipsis)
+    "If STR is longer than LEN, cut it down and add ELLIPSIS to the end.
+When not specified, ELLIPSIS defaults to '...'."
+    (declare (pure t) (side-effect-free t))
+    (unless ellipsis
+      (setq ellipsis "..."))
+    (if (> (length s) len)
+        (format "%s%s" (substring s 0 (- len (length ellipsis))) ellipsis)
+      s)))
+
+
+;;; IRC stuff
+
+(defun acdw-irc/margin-format (str &optional before after alignment)
+  "Print STR to fit in `acdw-irc/left-margin'.
+Optional arguments BEFORE and AFTER specify strings to go
+... before and after the string.  ALIGNMENT aligns left on nil
+and right on t."
+  (let* ((before (or before ""))
+         (after (or after ""))
+         (str-length (length str))
+         (before-length (length before))
+         (after-length (length after))
+         (max-length (- acdw-irc/left-margin 1 (+ before-length after-length)))
+         (left-over (max 0 (- max-length str-length))))
+    (format "%s%s%s%s%s"
+            before
+            (if alignment (repeat-string left-over " ") "")
+            (truncate-string max-length str acdw-irc/ellipsis)
+            (if alignment "" (repeat-string left-over " "))
+            after)))
+
+
+(provide 'acdw-irc)
+;;; acdw-irc.el ends here
@@ -155,6 +155,11 @@ is, if point < mark."
        " (%-d)")
      text-scale-mode-amount)))
 
+(defun acdw-modeline/track ()
+  "Display `tracking-mode' information."
+  (when tracking-mode
+    tracking-mode-line-buffers))
+
 (defun acdw-modeline/vc-branch ()
   "Display the version control branch of the current buffer in the modeline."
   ;; from https://www.gonsie.com/blorg/modeline.html, from Doom