| | 1 | ;;; jabber-festival.el --- Festival alert hooks -*- lexical-binding: t; -*- |
| | 2 | |
| | 3 | ;; Copyright (C) 2005 Magnus Henoch |
| | 4 | |
| | 5 | ;; This file is a part of jabber.el. |
| | 6 | |
| | 7 | ;; This program is free software; you can redistribute it and/or modify |
| | 8 | ;; it under the terms of the GNU General Public License as published by |
| | 9 | ;; the Free Software Foundation; either version 2, or (at your option) |
| | 10 | ;; any later version. |
| | 11 | |
| | 12 | ;; This program is distributed in the hope that it will be useful, |
| | 13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| | 14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| | 15 | ;; GNU General Public License for more details. |
| | 16 | |
| | 17 | ;; You should have received a copy of the GNU General Public License |
| | 18 | ;; along with GNU Emacs; see the file COPYING. If not, write to |
| | 19 | ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| | 20 | ;; Boston, MA 02111-1307, USA. |
| | 21 | |
| | 22 | (eval-when-compile (require 'jabber-alert)) |
| | 23 | |
| | 24 | (condition-case e |
| | 25 | (progn |
| | 26 | ;; Most people don't have Festival, so this will often fail |
| | 27 | (require 'festival) |
| | 28 | (define-jabber-alert festival "Voice messages through Festival" |
| | 29 | (lambda (text &optional title) (festival-say-string (or title text))))) |
| | 30 | (error nil)) |
| | 31 | |
| | 32 | (provide 'jabber-festival) |
| | 33 | ;; arch-tag: 8922D096-5D07-11D9-B4C2-000A95C2FCD0 |
projects / config.git / blame_incremental