Remove external notifiers from main file
This commit is contained in:
parent
d67762d2ea
commit
a31d7920d7
|
@ -18,7 +18,7 @@
|
||||||
;; along with this program; if not, write to the Free Software
|
;; along with this program; if not, write to the Free Software
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(defcustom jabber-awesome-args ", timeout=5"
|
(defcustom jabber-awesome-args ", timeout=5"
|
||||||
"Additional args to naughty."
|
"Additional args to naughty."
|
||||||
|
|
|
@ -19,7 +19,7 @@
|
||||||
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||||
;; Boston, MA 02111-1307, USA.
|
;; Boston, MA 02111-1307, USA.
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(condition-case e
|
(condition-case e
|
||||||
(progn
|
(progn
|
||||||
|
@ -31,5 +31,3 @@
|
||||||
|
|
||||||
(provide 'jabber-festival)
|
(provide 'jabber-festival)
|
||||||
;; arch-tag: 8922D096-5D07-11D9-B4C2-000A95C2FCD0
|
;; arch-tag: 8922D096-5D07-11D9-B4C2-000A95C2FCD0
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -18,7 +18,7 @@
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
(require 'dbus nil t)
|
(require 'dbus nil t)
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(defcustom jabber-libnotify-icon ""
|
(defcustom jabber-libnotify-icon ""
|
||||||
"Icon to be used on the notification pop-up. Default is empty"
|
"Icon to be used on the notification pop-up. Default is empty"
|
||||||
|
|
|
@ -20,7 +20,7 @@
|
||||||
|
|
||||||
;; Built on jabber-libnotify.el.
|
;; Built on jabber-libnotify.el.
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
(unless (string< emacs-version "24.1") ;notifications.el preset since Emacs 24.1
|
(unless (string< emacs-version "24.1") ;notifications.el preset since Emacs 24.1
|
||||||
(require 'notifications)
|
(require 'notifications)
|
||||||
|
|
||||||
|
|
|
@ -18,7 +18,7 @@
|
||||||
;; along with this program; if not, write to the Free Software
|
;; along with this program; if not, write to the Free Software
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(defun jabber-ratpoison-message (text &optional title)
|
(defun jabber-ratpoison-message (text &optional title)
|
||||||
"Show MSG in Ratpoison"
|
"Show MSG in Ratpoison"
|
||||||
|
@ -27,7 +27,7 @@
|
||||||
(let ((process-connection-type))
|
(let ((process-connection-type))
|
||||||
(call-process "ratpoison" nil 0 nil "-c" (concat "echo " (or title text))))
|
(call-process "ratpoison" nil 0 nil "-c" (concat "echo " (or title text))))
|
||||||
(error nil)))
|
(error nil)))
|
||||||
|
|
||||||
(define-jabber-alert ratpoison "Show a message through the Ratpoison window manager"
|
(define-jabber-alert ratpoison "Show a message through the Ratpoison window manager"
|
||||||
'jabber-ratpoison-message)
|
'jabber-ratpoison-message)
|
||||||
|
|
||||||
|
|
|
@ -18,7 +18,7 @@
|
||||||
;; along with this program; if not, write to the Free Software
|
;; along with this program; if not, write to the Free Software
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(defcustom jabber-sawfish-display-time 3
|
(defcustom jabber-sawfish-display-time 3
|
||||||
"Time in seconds for displaying a jabber message through the
|
"Time in seconds for displaying a jabber message through the
|
||||||
|
@ -29,8 +29,8 @@ Sawfish window manager."
|
||||||
(defun jabber-sawfish-display-message (text &optional title)
|
(defun jabber-sawfish-display-message (text &optional title)
|
||||||
"Displays MESSAGE through the Sawfish window manager."
|
"Displays MESSAGE through the Sawfish window manager."
|
||||||
(let ((process-connection-type nil))
|
(let ((process-connection-type nil))
|
||||||
(start-process-shell-command
|
(start-process-shell-command
|
||||||
"jabber-sawfish" nil "echo"
|
"jabber-sawfish" nil "echo"
|
||||||
(concat "'(progn (require (quote timers)) (display-message \""
|
(concat "'(progn (require (quote timers)) (display-message \""
|
||||||
(or title text)
|
(or title text)
|
||||||
"\")(make-timer (lambda () (display-message nil)) "
|
"\")(make-timer (lambda () (display-message nil)) "
|
||||||
|
|
|
@ -18,7 +18,7 @@
|
||||||
;; along with this program; if not, write to the Free Software
|
;; along with this program; if not, write to the Free Software
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(defun jabber-screen-message (text &optional title)
|
(defun jabber-screen-message (text &optional title)
|
||||||
"Show MSG in screen"
|
"Show MSG in screen"
|
||||||
|
|
|
@ -18,7 +18,7 @@
|
||||||
;; along with this program; if not, write to the Free Software
|
;; along with this program; if not, write to the Free Software
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(defun jabber-tmux-message (msg)
|
(defun jabber-tmux-message (msg)
|
||||||
"Show MSG in tmux"
|
"Show MSG in tmux"
|
||||||
|
|
|
@ -18,7 +18,7 @@
|
||||||
;; along with this program; if not, write to the Free Software
|
;; along with this program; if not, write to the Free Software
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(defvar jabber-wmii-color "#ffffff #335577 #447799"
|
(defvar jabber-wmii-color "#ffffff #335577 #447799"
|
||||||
"Color specification as needed by the wmii window manager for the jabber alert messages.")
|
"Color specification as needed by the wmii window manager for the jabber alert messages.")
|
||||||
|
@ -34,7 +34,7 @@
|
||||||
(condition-case e
|
(condition-case e
|
||||||
(call-process "wmiir" nil nil nil "remove" "/rbar/jabber")
|
(call-process "wmiir" nil nil nil "remove" "/rbar/jabber")
|
||||||
(error nil)))
|
(error nil)))
|
||||||
|
|
||||||
(defun jabber-wmii-message (text &optional title)
|
(defun jabber-wmii-message (text &optional title)
|
||||||
"Show MSG in wmii."
|
"Show MSG in wmii."
|
||||||
(when jabber-wmii-timer
|
(when jabber-wmii-timer
|
||||||
|
|
|
@ -19,7 +19,7 @@
|
||||||
;; along with this program; if not, write to the Free Software
|
;; along with this program; if not, write to the Free Software
|
||||||
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
|
||||||
(eval-when-compile (require 'jabber-alert))
|
(eval-when-compile (require 'jabber))
|
||||||
|
|
||||||
(defcustom jabber-xmessage-timeout 15
|
(defcustom jabber-xmessage-timeout 15
|
||||||
"Timeout in seconds for xmessage alerts.
|
"Timeout in seconds for xmessage alerts.
|
||||||
|
|
14
jabber.el
14
jabber.el
|
@ -13153,20 +13153,6 @@ configure a Google Talk account like this:
|
||||||
:type 'integer
|
:type 'integer
|
||||||
:group 'jabber)
|
:group 'jabber)
|
||||||
|
|
||||||
;;; guess internal dependencies!
|
|
||||||
|
|
||||||
;; External notifiers
|
|
||||||
(require 'jabber-screen)
|
|
||||||
(require 'jabber-tmux)
|
|
||||||
(require 'jabber-ratpoison)
|
|
||||||
(require 'jabber-sawfish)
|
|
||||||
(require 'jabber-festival)
|
|
||||||
(require 'jabber-xmessage)
|
|
||||||
(require 'jabber-wmii)
|
|
||||||
(require 'jabber-osd)
|
|
||||||
(require 'jabber-awesome)
|
|
||||||
(require 'jabber-libnotify)
|
|
||||||
(require 'jabber-notifications)
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defvar *jabber-current-status* nil
|
(defvar *jabber-current-status* nil
|
||||||
"The users current presence status.")
|
"The users current presence status.")
|
||||||
|
|
14
jabber.org
14
jabber.org
|
@ -16665,20 +16665,6 @@ configure a Google Talk account like this:
|
||||||
:type 'integer
|
:type 'integer
|
||||||
:group 'jabber)
|
:group 'jabber)
|
||||||
|
|
||||||
;;; guess internal dependencies!
|
|
||||||
|
|
||||||
;; External notifiers
|
|
||||||
(require 'jabber-screen)
|
|
||||||
(require 'jabber-tmux)
|
|
||||||
(require 'jabber-ratpoison)
|
|
||||||
(require 'jabber-sawfish)
|
|
||||||
(require 'jabber-festival)
|
|
||||||
(require 'jabber-xmessage)
|
|
||||||
(require 'jabber-wmii)
|
|
||||||
(require 'jabber-osd)
|
|
||||||
(require 'jabber-awesome)
|
|
||||||
(require 'jabber-libnotify)
|
|
||||||
(require 'jabber-notifications)
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
**** *jabber-current-status* :variable:
|
**** *jabber-current-status* :variable:
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
|
Loading…
Reference in New Issue