| | 1 | ;;; jabber-compose.el --- compose a Jabber message in a buffer -*- lexical-binding: t; -*- |
| | 2 | |
| | 3 | ;; Copyright (C) 2006, 2007 Magnus Henoch |
| | 4 | |
| | 5 | ;; Author: Magnus Henoch <mange@freemail.hu> |
| | 6 | ;; Keywords: |
| | 7 | |
| | 8 | ;; This file is free software; you can redistribute it and/or modify |
| | 9 | ;; it under the terms of the GNU General Public License as published by |
| | 10 | ;; the Free Software Foundation; either version 2, or (at your option) |
| | 11 | ;; any later version. |
| | 12 | |
| | 13 | ;; This file is distributed in the hope that it will be useful, |
| | 14 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
| | 15 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| | 16 | ;; GNU General Public License for more details. |
| | 17 | |
| | 18 | ;; You should have received a copy of the GNU General Public License |
| | 19 | ;; along with GNU Emacs; see the file COPYING. If not, write to |
| | 20 | ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
| | 21 | ;; Boston, MA 02110-1301, USA. |
| | 22 | |
| | 23 | ;;; Code: |
| | 24 | |
| | 25 | ;;;###autoload |
| | 26 | (defun jabber-compose (jc &optional recipient) |
| | 27 | "Create a buffer for composing a Jabber message. |
| | 28 | |
| | 29 | JC is the Jabber connection." |
| | 30 | (interactive (list (jabber-read-account) |
| | 31 | (jabber-read-jid-completing "To whom? "))) |
| | 32 | |
| | 33 | (with-current-buffer (get-buffer-create |
| | 34 | (generate-new-buffer-name |
| | 35 | (concat |
| | 36 | "Jabber-Compose" |
| | 37 | (when recipient |
| | 38 | (format "-%s" (jabber-jid-displayname recipient)))))) |
| | 39 | (set (make-local-variable 'jabber-widget-alist) nil) |
| | 40 | (setq jabber-buffer-connection jc) |
| | 41 | (use-local-map widget-keymap) |
| | 42 | |
| | 43 | (insert (jabber-propertize "Compose Jabber message\n" 'face 'jabber-title-large)) |
| | 44 | |
| | 45 | (insert (substitute-command-keys "\\<widget-field-keymap>Completion available with \\[widget-complete].\n")) |
| | 46 | (push (cons :recipients |
| | 47 | (widget-create '(repeat :tag "Recipients" jid) |
| | 48 | :value (when recipient |
| | 49 | (list recipient)))) |
| | 50 | jabber-widget-alist) |
| | 51 | |
| | 52 | (insert "\nSubject: ") |
| | 53 | (push (cons :subject |
| | 54 | (widget-create 'editable-field :value "")) |
| | 55 | jabber-widget-alist) |
| | 56 | |
| | 57 | (insert "\nText:\n") |
| | 58 | (push (cons :text |
| | 59 | (widget-create 'text :value "")) |
| | 60 | jabber-widget-alist) |
| | 61 | |
| | 62 | (insert "\n") |
| | 63 | (widget-create 'push-button :notify #'jabber-compose-send "Send") |
| | 64 | |
| | 65 | (widget-setup) |
| | 66 | |
| | 67 | (switch-to-buffer (current-buffer)) |
| | 68 | (goto-char (point-min)))) |
| | 69 | |
| | 70 | (defun jabber-compose-send (&rest _ignore) |
| | 71 | (let ((recipients (widget-value (cdr (assq :recipients jabber-widget-alist)))) |
| | 72 | (subject (widget-value (cdr (assq :subject jabber-widget-alist)))) |
| | 73 | (text (widget-value (cdr (assq :text jabber-widget-alist))))) |
| | 74 | (when (null recipients) |
| | 75 | (error "No recipients specified")) |
| | 76 | |
| | 77 | (dolist (to recipients) |
| | 78 | (jabber-send-message jabber-buffer-connection to subject text nil)) |
| | 79 | |
| | 80 | (bury-buffer) |
| | 81 | (message "Message sent"))) |
| | 82 | |
| | 83 | (provide 'jabber-compose) |
| | 84 | ;; arch-tag: 59032c00-994d-11da-8d97-000a95c2fcd0 |
projects / config.git / blame_incremental