mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-21 13:53:38 -05:00
c95ecc6293
These variables don't add any value to the original variables whose defaults they change, so they've been deprecated. Users should modify the original variables themselves.
233 lines
8.8 KiB
EmacsLisp
233 lines
8.8 KiB
EmacsLisp
;;; app/irc/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +irc-left-padding 13
|
|
"By how much spaces the left hand side of the line should be padded.
|
|
Below a value of 12 this may result in uneven alignment between the various
|
|
types of messages.")
|
|
|
|
(defvar +irc-truncate-nick-char ?…
|
|
"Character to displayed when nick > `+irc-left-padding' in length.")
|
|
|
|
(defvar +irc-scroll-to-bottom-on-commands
|
|
'(self-insert-command yank hilit-yank)
|
|
"If these commands are called pre prompt the buffer will scroll to `point-max'.")
|
|
|
|
(defvar +irc-disconnect-hook nil
|
|
"Runs each hook when circe noticies the connection has been disconnected.
|
|
Useful for scenarios where an instant reconnect will not be successful.")
|
|
|
|
(defvar +irc-bot-list '("fsbot" "rudybot")
|
|
"Nicks listed have `circe-fool-face' applied and will not be tracked.")
|
|
|
|
(defvar +irc-defer-notifications nil
|
|
"How long to defer enabling notifications, in seconds (e.g. 5min = 300).
|
|
|
|
Useful for ZNC users who want to avoid the deluge of notifications during buffer
|
|
playback.")
|
|
|
|
(defvar +irc--defer-timer nil)
|
|
|
|
(defsubst +irc--pad (left right)
|
|
(format (format "%%%ds | %%s" +irc-left-padding)
|
|
(concat "*** " left) right))
|
|
|
|
(define-obsolete-variable-alias '+irc-notifications-watch-strings 'circe-notifications-watch-strings "v3.0.0")
|
|
(define-obsolete-variable-alias '+irc-time-stamp-format 'lui-time-stamp-format "v3.0.0")
|
|
|
|
|
|
;;
|
|
;; Packages
|
|
|
|
(use-package! circe
|
|
:commands circe circe-server-buffers
|
|
:config
|
|
(setq circe-default-quit-message nil
|
|
circe-default-part-message nil
|
|
circe-use-cycle-completion t
|
|
circe-reduce-lurker-spam t
|
|
|
|
circe-format-say (format "{nick:+%ss} │ {body}" +irc-left-padding)
|
|
circe-format-self-say circe-format-say
|
|
circe-format-action (format "{nick:+%ss} * {body}" +irc-left-padding)
|
|
circe-format-self-action circe-format-action
|
|
circe-format-server-notice
|
|
(let ((left "-Server-")) (concat (make-string (- +irc-left-padding (length left)) ? )
|
|
(concat left " _ {body}")))
|
|
circe-format-notice (format "{nick:%ss} _ {body}" +irc-left-padding)
|
|
circe-format-server-topic
|
|
(+irc--pad "Topic" "{userhost}: {topic-diff}")
|
|
circe-format-server-join-in-channel
|
|
(+irc--pad "Join" "{nick} ({userinfo}) joined {channel}")
|
|
circe-format-server-join
|
|
(+irc--pad "Join" "{nick} ({userinfo})")
|
|
circe-format-server-part
|
|
(+irc--pad "Part" "{nick} ({userhost}) left {channel}: {reason}")
|
|
circe-format-server-quit
|
|
(+irc--pad "Quit" "{nick} ({userhost}) left IRC: {reason}]")
|
|
circe-format-server-quit-channel
|
|
(+irc--pad "Quit" "{nick} ({userhost}) left {channel}: {reason}]")
|
|
circe-format-server-rejoin
|
|
(+irc--pad "Re-join" "{nick} ({userhost}), left {departuredelta} ago")
|
|
circe-format-server-netmerge
|
|
(+irc--pad "Netmerge" "{split}, split {ago} ago (Use /WL to see who's still missing)")
|
|
circe-format-server-nick-change
|
|
(+irc--pad "Nick" "{old-nick} ({userhost}) is now known as {new-nick}")
|
|
circe-format-server-nick-change-self
|
|
(+irc--pad "Nick" "You are now known as {new-nick} ({old-nick})")
|
|
circe-format-server-nick-change-self
|
|
(+irc--pad "Nick" "{old-nick} ({userhost}) is now known as {new-nick}")
|
|
circe-format-server-mode-change
|
|
(+irc--pad "Mode" "{change} on {target} by {setter} ({userhost})")
|
|
circe-format-server-lurker-activity
|
|
(+irc--pad "Lurk" "{nick} joined {joindelta} ago"))
|
|
|
|
(add-hook 'doom-real-buffer-functions #'+circe-buffer-p)
|
|
(add-hook 'circe-channel-mode-hook #'turn-on-visual-line-mode)
|
|
(add-hook 'circe-mode-hook #'+irc--add-circe-buffer-to-persp-h)
|
|
(add-hook 'circe-mode-hook #'turn-off-smartparens-mode)
|
|
|
|
(defadvice! +irc--circe-run-disconnect-hook-a (&rest _)
|
|
"Runs `+irc-disconnect-hook' after circe disconnects."
|
|
:after #'circe--irc-conn-disconnected
|
|
(run-hooks '+irc-disconnect-hook))
|
|
|
|
(add-hook! 'lui-pre-output-hook
|
|
(defun +irc-circe-truncate-nicks-h ()
|
|
"Truncate long nicknames in chat output non-destructively."
|
|
(when-let (beg (text-property-any (point-min) (point-max) 'lui-format-argument 'nick))
|
|
(goto-char beg)
|
|
(let ((end (next-single-property-change beg 'lui-format-argument))
|
|
(nick (plist-get (plist-get (text-properties-at beg) 'lui-keywords)
|
|
:nick)))
|
|
(when (> (length nick) +irc-left-padding)
|
|
(compose-region (+ beg +irc-left-padding -1) end
|
|
+irc-truncate-nick-char))))))
|
|
|
|
(add-hook! 'circe-message-option-functions
|
|
(defun +irc-circe-message-option-bot-h (nick &rest ignored)
|
|
"Fontify known bots and mark them to not be tracked."
|
|
(when (member nick +irc-bot-list)
|
|
'((text-properties . (face circe-fool-face lui-do-not-track t))))))
|
|
|
|
;; Let `+irc/quit' and `circe' handle buffer cleanup
|
|
(define-key circe-mode-map [remap kill-buffer] #'bury-buffer)
|
|
;; Fail gracefully if not in a circe buffer
|
|
(global-set-key [remap tracking-next-buffer] #'+irc/tracking-next-buffer)
|
|
|
|
(when (modulep! :completion vertico)
|
|
(after! consult
|
|
(add-to-list 'consult-buffer-sources '+irc--consult-circe-source 'append)))
|
|
|
|
(map! :localleader
|
|
(:map circe-mode-map
|
|
"a" #'tracking-next-buffer
|
|
"j" #'circe-command-JOIN
|
|
"m" #'+irc/send-message
|
|
"p" #'circe-command-PART
|
|
"Q" #'+irc/quit
|
|
"R" #'circe-reconnect
|
|
"c" #'+irc/jump-to-channel)
|
|
(:map circe-channel-mode-map
|
|
"n" #'circe-command-NAMES)))
|
|
|
|
|
|
(use-package! circe-color-nicks
|
|
:hook (circe-channel-mode . enable-circe-color-nicks)
|
|
:config
|
|
(setq circe-color-nicks-min-constrast-ratio 4.5
|
|
circe-color-nicks-everywhere t))
|
|
|
|
|
|
(use-package! circe-new-day-notifier
|
|
:after circe
|
|
:config
|
|
(enable-circe-new-day-notifier)
|
|
(setq circe-new-day-notifier-format-message
|
|
(+irc--pad "Day" "Date changed [{day}]")))
|
|
|
|
|
|
(use-package! circe-notifications
|
|
:commands enable-circe-notifications
|
|
:init
|
|
(add-hook! 'circe-server-connected-hook
|
|
(defun +irc-init-circe-notifications-h ()
|
|
(if (numberp +irc-defer-notifications)
|
|
(setq +irc--defer-timer
|
|
(run-at-time +irc-defer-notifications nil
|
|
#'enable-circe-notifications))
|
|
(enable-circe-notifications))))
|
|
:config
|
|
(setq circe-notifications-emacs-focused nil
|
|
circe-notifications-alert-style
|
|
(cond ((featurep :system 'macos) 'osx-notifier)
|
|
((featurep :system 'linux) 'libnotify)
|
|
(circe-notifications-alert-style))))
|
|
|
|
|
|
(use-package! lui
|
|
:commands lui-mode
|
|
:config
|
|
(define-key lui-mode-map "\C-u" #'lui-kill-to-beginning-of-line)
|
|
(setq lui-fill-type nil)
|
|
|
|
(when (modulep! :checkers spell)
|
|
(setq lui-flyspell-p t))
|
|
(setq lui-time-stamp-format "%H:%M"
|
|
lui-time-stamp-position 'right-margin)
|
|
|
|
(after! evil
|
|
(defun +irc-evil-insert-h ()
|
|
"Ensure entering insert mode will put us at the prompt, unless editing
|
|
after prompt marker."
|
|
(when (> (marker-position lui-input-marker) (point))
|
|
(goto-char (point-max))))
|
|
|
|
(add-hook! 'lui-mode-hook
|
|
(add-hook 'evil-insert-state-entry-hook #'+irc-evil-insert-h
|
|
nil 'local))
|
|
|
|
(mapc (lambda (cmd) (push cmd +irc-scroll-to-bottom-on-commands))
|
|
'(evil-paste-after evil-paste-before evil-open-above evil-open-below)))
|
|
|
|
|
|
(defun +irc-preinput-scroll-to-bottom-h ()
|
|
"Go to the end of the buffer in all windows showing it.
|
|
Courtesy of esh-mode.el"
|
|
(when (memq this-command +irc-scroll-to-bottom-on-commands)
|
|
(let* ((selected (selected-window))
|
|
(current (current-buffer)))
|
|
(when (> (marker-position lui-input-marker) (point))
|
|
(walk-windows
|
|
(function
|
|
(lambda (window)
|
|
(when (eq (window-buffer window) current)
|
|
(select-window window)
|
|
(goto-char (point-max))
|
|
(select-window selected))))
|
|
nil t)))))
|
|
|
|
(add-hook! 'lui-mode-hook
|
|
(add-hook 'pre-command-hook #'+irc-preinput-scroll-to-bottom-h nil t))
|
|
|
|
;; enable a horizontal line marking the last read message
|
|
(add-hook 'lui-mode-hook #'enable-lui-track-bar)
|
|
|
|
(add-hook! 'lui-mode-hook
|
|
(defun +irc-init-lui-margins-h ()
|
|
(pcase lui-time-stamp-position
|
|
(`right-margin (setq right-margin-width (length (format-time-string lui-time-stamp-format))))
|
|
(`left-margin (setq left-margin-width (length (format-time-string lui-time-stamp-format))))))
|
|
(defun +irc-init-lui-wrapping-a ()
|
|
(setq fringes-outside-margins t
|
|
word-wrap t
|
|
wrap-prefix (make-string (+ +irc-left-padding 3) ? )))))
|
|
|
|
|
|
(use-package! lui-logging
|
|
:after lui
|
|
:config (enable-lui-logging))
|
|
|
|
|
|
(use-package! lui-autopaste
|
|
:hook (circe-channel-mode . enable-lui-autopaste))
|