diff options
Diffstat (limited to 'emacs/.emacs.d/site-lisp')
-rw-r--r-- | emacs/.emacs.d/site-lisp/oni-jabber.el | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/emacs/.emacs.d/site-lisp/oni-jabber.el b/emacs/.emacs.d/site-lisp/oni-jabber.el deleted file mode 100644 index f498868..0000000 --- a/emacs/.emacs.d/site-lisp/oni-jabber.el +++ /dev/null @@ -1,50 +0,0 @@ -;;; oni-jabber.el --- Extra commands and functions for jabber -*- lexical-binding: t; -*- - -;; Copyright (C) 2016 Tom Willemse - -;; Author: Tom Willemse <tom@ryuslash.org> -;; 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 <http://www.gnu.org/licenses/>. - -;;; 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 |