This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/+chat/jabber/funcs.el

21 lines
680 B
EmacsLisp
Raw Normal View History

;;; funcs.el --- Jabber layer functions File for Spacemacs
;;
;; Copyright (c) 2012-2020 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
(defun spacemacs/jabber-connect-hook (jc)
(jabber-send-presence "" "Online" 10)
(jabber-whitespace-ping-start)
;; Disable the minibuffer getting jabber messages when active
;; See http://www.emacswiki.org/JabberEl
(define-jabber-alert echo "Show a message in the echo area"
(lambda (msg &optional title)
(unless (minibuffer-prompt)
(message "%s" (or title msg))))))