summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el35
1 files changed, 29 insertions, 6 deletions
diff --git a/init.el b/init.el index b41b6a0..ace54a4 100644 --- a/init.el +++ b/init.el
@@ -1742,17 +1742,16 @@ See also `crux-reopen-as-root-mode'."
1742 (define-key isearch-mb-minibuffer-map (kbd key) command))))))) 1742 (define-key isearch-mb-minibuffer-map (kbd key) command)))))))
1743 (isearch-mb-mode +1)) 1743 (isearch-mb-mode +1))
1744 1744
1745(setup (:straight (jabber :repo "https://tildegit.org/wgreenhouse/emacs-jabber" 1745(setup (:straight (jabber :repo "https://codeberg.org/emacs-jabber/emacs-jabber"
1746 :host nil 1746 :host nil
1747 :files ("*.el" "*.texi" 1747 :files ("*.el" "*.texi"
1748 ("jabber-fallback-lib" 1748 ("jabber-fallback-lib"
1749 "jabber-fallback-lib/hexrgb.el" 1749 "jabber-fallback-lib/hexrgb.el"
1750 "jabber-fallback-lib/srv.el" 1750 "jabber-fallback-lib/srv.el"
1751 "jabber-fallback-lib/fsm.el") 1751 "jabber-fallback-lib/fsm.el")
1752 "jabber-pkg.el") 1752 "jabber-pkg.el")))
1753 :fork (:repo "https://tildegit.org/acdw/emacs-jabber"
1754 :host nil)))
1755 (:also-load +jabber) 1753 (:also-load +jabber)
1754 (defvar +jabber-ws-prefix 8 "Width to pad left side of chats.")
1756 (:option jabber-account-list '(("acdw@hmm.st")) 1755 (:option jabber-account-list '(("acdw@hmm.st"))
1757 jabber-groupchat-buffer-format "X:%n" 1756 jabber-groupchat-buffer-format "X:%n"
1758 jabber-chat-buffer-format "X:%n" 1757 jabber-chat-buffer-format "X:%n"
@@ -1760,13 +1759,37 @@ See also `crux-reopen-as-root-mode'."
1760 jabber-activity-show-p #'ignore 1759 jabber-activity-show-p #'ignore
1761 jabber-muc-decorate-presence-patterns 1760 jabber-muc-decorate-presence-patterns
1762 '(("\\( enters the room ([^)]+)\\| has left the chatroom\\)$") 1761 '(("\\( enters the room ([^)]+)\\| has left the chatroom\\)$")
1763 ("." . jabber-muc-presence-dim))) 1762 ("." . jabber-muc-presence-dim))
1763 jabber-muc-colorize-foreign t
1764 jabber-chat-foreign-prompt-format (concat "[%t] %n:\n"
1765 (make-string +jabber-ws-prefix
1766 ?\ ))
1767 jabber-chat-local-prompt-format (concat "[%t] %n:\n"
1768 (make-string +jabber-ws-prefix
1769 ?\ ))
1770 jabber-groupchat-prompt-format (concat "[%t] %n:\n"
1771 (make-string +jabber-ws-prefix
1772 ?\ ))
1773 jabber-auto-reconnect t)
1774 (add-hook 'modus-themes-after-load-theme-hook
1775 (defun jabber-chat@after-modus-themes-load ()
1776 (modus-themes-with-colors
1777 (:face 'jabber-chat-prompt-foreign `((t (:foreground ,red)))
1778 'jabber-chat-prompt-local `((t (:foreground ,blue)))
1779 'jabber-chat-prompt-system `((t (:foreground ,green)))))))
1764 (dolist (mode '(jabber-chat-mode 1780 (dolist (mode '(jabber-chat-mode
1765 jabber-browse-mode 1781 jabber-browse-mode
1766 jabber-roster-mode 1782 jabber-roster-mode
1767 jabber-console-mode)) 1783 jabber-console-mode))
1768 (add-hook (intern (format "%s-hook" mode)) #'visual-fill-column-mode)) 1784 (add-hook (intern (format "%s-hook" mode)) #'visual-fill-column-mode))
1769 (add-hook 'jabber-activity-mode-hook 'tracking-mode) 1785 (add-hook 'jabber-activity-mode-hook #'tracking-mode)
1786 (:with-mode jabber-chat-mode
1787 (:local-set +modeline-position-function (lambda ()
1788 (cond
1789 ((string-match-p "hmm@" (buffer-name))
1790 "🤔 ")))
1791 wrap-prefix (make-string +jabber-ws-prefix ?\ )
1792 ))
1770 (:+leader "C-j" jabber-global-keymap) 1793 (:+leader "C-j" jabber-global-keymap)
1771 (advice-add 'jabber-activity-add :after #'+jabber-tracking-add) 1794 (advice-add 'jabber-activity-add :after #'+jabber-tracking-add)
1772 (advice-add 'jabber-activity-add-muc :after #'+jabber-tracking-add-muc)) 1795 (advice-add 'jabber-activity-add-muc :after #'+jabber-tracking-add-muc))