* riece-doctor.el (riece-doctor-buffer-name): Assume that the 1st

[riece] / lisp / riece-doctor.el

diff --git a/lisp/riece-doctor.el b/lisp/riece-doctor.el
index c922c9e..07ebb1b 100644 (file)
--- a/lisp/riece-doctor.el
+++ b/lisp/riece-doctor.el
@@ -26,10 +26,15 @@
 ;; This add-on allows you to become a psychotherapist.
 
 ;; To use, add the following line to your ~/.riece/init.el:
-;; (add-to-list 'riece-addons 'riece-doctor t)
+;; (add-to-list 'riece-addons 'riece-doctor)
 
 ;;; Code:
 
+(require 'riece-globals)
+(require 'riece-identity)
+(require 'riece-message)
+(require 'riece-server)
+
 (defgroup riece-doctor nil
   "Interface to doctor.el"
   :prefix "riece-"
@@ -51,7 +56,9 @@
 (autoload 'doctor-read-print "doctor")
 
 (defun riece-doctor-buffer-name (user)
-  (concat " *riece-doctor*" (riece-format-identity user)))
+  (concat " *riece-doctor*"
+         (riece-format-identity
+          (riece-make-identity user riece-server-name))))
 
 (defun riece-doctor-reply (target string)
   (riece-display-message
@@ -62,16 +69,15 @@
   (riece-send-string (format "NOTICE %s :%s\r\n" target string)))
 
 (defun riece-doctor-after-privmsg-hook (prefix string)
-  (let* ((user (riece-make-identity (riece-prefix-nickname prefix)
-                                   riece-server-name))
+  (let* ((user (riece-prefix-nickname prefix))
         (parameters (riece-split-parameters string))
         (targets (split-string (car parameters) ","))
         (message (nth 1 parameters)))
     (if (string-match riece-doctor-hello-regexp message)
-       (if (riece-identity-member user riece-doctor-patients)
+       (if (riece-identity-member user riece-doctor-patients t)
            (riece-doctor-reply
             (car targets)
-            "You are already talking with me.")
+            (format "%s: You are already talking with me." user))
          (save-excursion
            (set-buffer (get-buffer-create (riece-doctor-buffer-name user)))
            (erase-buffer)
@@ -79,15 +85,19 @@
          (setq riece-doctor-patients (cons user riece-doctor-patients))
          (riece-doctor-reply
           (car targets)           
-          "I am the psychotherapist.  Please, describe your problems."))
+          (format
+           "%s: I am the psychotherapist.  Please, describe your problems."
+           user)))
       (if (string-match riece-doctor-bye-regexp message)
-         (let ((pointer (riece-identity-member user riece-doctor-patients)))
+         (let ((pointer (riece-identity-member user riece-doctor-patients t)))
            (when pointer
              (kill-buffer (riece-doctor-buffer-name user))
              (setq riece-doctor-patients (delq (car pointer)
                                                riece-doctor-patients))
-             (riece-doctor-reply (car targets) "Good bye.")))
-       (if (riece-identity-member user riece-doctor-patients)
+             (riece-doctor-reply
+              (car targets)
+              (format "%s: Good bye." user))))
+       (if (riece-identity-member user riece-doctor-patients t)
            (let (string)
              (save-excursion
                (set-buffer (get-buffer (riece-doctor-buffer-name user)))
@@ -100,7 +110,9 @@
                  (insert string)
                  (subst-char-in-region (point-min) (point-max) ?\n ? )
                  (setq string (buffer-string))))
-             (riece-doctor-reply (car targets) string)))))))
+             (riece-doctor-reply
+              (car targets)
+              (format "%s: %s" user string))))))))
 
 (defun riece-doctor-insinuate ()
   (add-hook 'riece-after-privmsg-hook 'riece-doctor-after-privmsg-hook))