From d153d128694463d9b7d901a9b413d630886f5712 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 7 Sep 2016 14:31:14 +0200 Subject: Add jabber.el config --- emacs/.emacs.d/site-lisp/oni-jabber.el | 50 ++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 emacs/.emacs.d/site-lisp/oni-jabber.el (limited to 'emacs/.emacs.d/site-lisp') diff --git a/emacs/.emacs.d/site-lisp/oni-jabber.el b/emacs/.emacs.d/site-lisp/oni-jabber.el new file mode 100644 index 0000000..f498868 --- /dev/null +++ b/emacs/.emacs.d/site-lisp/oni-jabber.el @@ -0,0 +1,50 @@ +;;; oni-jabber.el --- Extra commands and functions for jabber -*- lexical-binding: t; -*- + +;; Copyright (C) 2016 Tom Willemse + +;; Author: Tom Willemse +;; Keywords: + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Here are some extra commands and functions for jabber. + +;;; Code: + +(require 'jabber-chat) + +;;;###autoload +(defun oni-jabber-set-roster-mode-line () + "Change the mode-line to only show the buffer id." + (unless (eq major-mode 'jabber-roster-mode) + (error "Will not change mode-line, not in the jabber roster buffer")) + (setq mode-line-format + (list (propertize " %m" 'face 'mode-line-buffer-id)))) + +;;;###autoload +(defun oni-jabber-show-status-in-buffer + (who _oldstatus _newstatus _statustext proposed-alert) + "Check to see if WHO has a buffer and if so print their new status. + +Insert PROPOSED-ALERT in the buffer if it is non-nil." + (let ((buffer (get-buffer (jabber-chat-get-buffer (symbol-name who))))) + (when (and buffer proposed-alert) + (with-current-buffer buffer + (ewoc-enter-last jabber-chat-ewoc (list :notice proposed-alert + :time (current-time))))))) + +(provide 'oni-jabber) +;;; oni-jabber.el ends here -- cgit v1.2.3-54-g00ecf