source: trunk/athena/bin/discuss/edsc/discuss-enter.el @ 12350

;;;     $Id: discuss-enter.el,v 1.12 1999-01-22 23:09:43 ghudson Exp $
;;;
;;;  Emacs lisp code to enter transaction into discuss.  Part of the
;;;  emacs-based interface to the discuss conferencing system.
;;;
;;;  Copyright (c) 1989 by the Massachusetts Institute of Technology.
;;;  Written by Stan Zanarotti, Bill Sommerfeld and Theodore Ts'o.
;;;

(require 'discuss)

(defvar discuss-new-trn-buf nil
  "Name of buffer for new transaction")

(defvar discuss-trn-buffer "*discuss-unprocessed*"
  "Name of buffer for entering new transaction")

(defvar discuss-edit-mode-map nil
  "Keymap used by the edit mode of the discuss subsystem")

(defvar discuss-randrp-trn-info nil
  "Randrom transaction information.")

(defun discuss-temp-file ()
  "Return name of temporary buffer to use to transfer transactions."
  (format "/tmp/em.disc%d" 
          (process-id discuss-process)))

(defun discuss-talk ()
  "Enter a new discuss transaction."
  (interactive)
  (if (not (string-match "w" (nth 10 discuss-current-meeting-info)))
      (error "Insufficient access for talk in %s"
             (nth 1 discuss-current-meeting-info)))
  (discuss-enter discuss-current-meeting 0 ""))

(defun discuss-reply ()
  "Reply to an existing discuss transaction."
  (interactive)
  (if (not (string-match "a" (nth 10 discuss-current-meeting-info)))
      (error "Insufficient access for reply in %s"
             (nth 1 discuss-current-meeting-info)))
  (let ((subject (nth 11 discuss-current-transaction-info)))
    ;; Add the Re: field
    (if (and (> (length subject) 3)
             (string-match "[Rr]e: " (substring subject 0 4)))
        nil
      (setq subject (concat "Re: " subject)))
    (discuss-enter discuss-current-meeting discuss-current-transaction
                   subject t)))

(defun discuss-randrp ()
  "Randrp in a meeting."
  (interactive)
  (if (not (string-match "a" (nth 10 discuss-current-meeting-info)))
      (error "Insufficient access for reply in %s"
             (nth 1 discuss-current-meeting-info)))
  (discuss-send-cmd (format "(grtn %s)\n" discuss-current-meeting)
                    'discuss-randrp-gmi-end 'discuss-read-form))

(defun discuss-randrp-gmi-end () 
  (setq discuss-randrp-trn-info discuss-form)
  (let ((subject (nth 11 discuss-randrp-trn-info))
        (trn-num (nth 0 discuss-randrp-trn-info)))
    (if (and (> (length subject) 3)
             (string-match "[Rr]e: " (substring subject 0 4)))
        nil
      (setq subject (concat "Re: " subject)))
    (discuss-enter discuss-current-meeting trn-num subject t)))

(defun discuss-enter (mtg-name reply-trn subject &optional reply init-txt)
    (setq discuss-new-trn-buf
          (get-buffer discuss-trn-buffer))
    (if discuss-new-trn-buf
        (error "Already entering transaction")
      (progn
        (setq discuss-new-trn-buf
              (get-buffer-create discuss-trn-buffer))
        (if (not (null reply))
            (let ((pop-up-windows t))
              (pop-to-buffer discuss-new-trn-buf))
          (switch-to-buffer discuss-new-trn-buf))
        (discuss-edit-mode)
        (insert "Subject: "
                subject
                "\n"
                mail-header-separator
                "\n")
        (if init-txt
            (save-excursion
              (goto-char (point-max))
              (insert init-txt)))
        (setq discuss-reply-trn reply-trn)
        (setq discuss-enter-mtg mtg-name)
        (if (equal subject "")
            (progn
              (goto-char (point-min))
              (end-of-line))))))

(defun discuss-edit-mode ()
  "Major mode for editing Discuss transactions to be entered.
Like Text Mode but with these additional commands:
\\[describe-mode]       Display available commands.
\\[discuss-send]        Enter the transaction.
\\[discuss-abort-edit]  Exit without entering transaction."
  (interactive)
  (kill-all-local-variables)
  (make-local-variable 'discuss-reply-trn)
  (setq discuss-reply-trn 0)
  (make-local-variable 'discuss-enter-mtg)
  (setq discuss-enter-mtg nil)
  (set-syntax-table text-mode-syntax-table)
  (use-local-map discuss-edit-mode-map)
  (setq local-abbrev-table text-mode-abbrev-table)
  (setq major-mode 'discuss-edit-mode)
  (setq mode-name "Discuss Edit")
  (setq buffer-offer-save t)
  (auto-save-mode 1)
  (setq paragraph-start (concat "^" mail-header-separator
                                "$\\|^[ \t]*[-_][-_][-_]+$\\|"
                                paragraph-start))
  (setq paragraph-separate (concat "^" mail-header-separator
                                   "$\\|^[ \t]*[-_][-_][-_]+$\\|"
                                   paragraph-separate))
  (run-hooks 'text-mode-hook 'discuss-edit-mode-hook))

(if discuss-edit-mode-map
    nil
  (setq discuss-edit-mode-map (make-sparse-keymap))
  (define-key discuss-edit-mode-map "\C-c?" 'describe-mode)
  (define-key discuss-edit-mode-map "\C-c\C-c" 'discuss-send)
  (define-key discuss-edit-mode-map "\C-c\C-]" 'discuss-abort-edit))


(defun discuss-send ()
  "Enter the current Discuss transaction"
  (interactive)
  (save-excursion
    (run-hooks 'discuss-send-hook)
    ;; Make sure buffer ends with a newline.
    (goto-char (point-max))
    (if (/= (preceding-char) ?\n)
        (insert "\n"))
    ;; get subject, and find separator
    (goto-char (point-min))
    (if (not (looking-at "Subject: "))
        (error "Subject not found.")
      (forward-line 1)
      (let ((subject (buffer-substring 10 (1- (point)))))
        (if (not (re-search-forward
                  (concat "^" (regexp-quote mail-header-separator) "\n")
                  (point-max)
                  t))
            (error "Text separator not found.")
          (write-region (point) (point-max) (discuss-temp-file))
          (message "Sending...")
          (discuss-send-cmd (format "(at %d %s %s)\n%s\n"
                                    discuss-reply-trn
                                    (discuss-temp-file)
                                    discuss-enter-mtg
                                    subject)
                            'discuss-end-of-enter 'discuss-read-form)
          )))))

(defun discuss-end-of-enter ()
  (set-buffer discuss-trn-buffer)
  (message (format "Transaction %s entered in %s meeting."
                   (discuss-format-trn-num (car discuss-form))
                   discuss-enter-mtg))
  (if (not (one-window-p)) (delete-window))
  (delete-auto-save-file-if-necessary)
  (kill-buffer discuss-trn-buffer)
  (save-excursion
    (set-buffer discuss-cur-mtg-buf)
    (discuss-la-invalidate-relatives discuss-current-transaction)
    (discuss-show-trn discuss-current-transaction)))

(defun discuss-abort-edit ()
  "Aborts entering a transaction."
  (interactive)
  (if (not (one-window-p)) (delete-window))
  (kill-buffer discuss-trn-buffer))