From: "Shirai,Kaoru" <shirai@...>
Date: 2003-05-19T08:20:07+09:00
Subject: [ruby-list:37691] Re: refe.el

----Next_Part(Mon_May_19_08:19:56_2003_568)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

　白井です。

　年を取って記憶力が無くなってきたところ refe.el に出会いましたが、最
高に便利ですね。今までいちいちブラウザで引いていたのが馬鹿らしくなりま
す。

From: Kazuhiro NISHIYAMA <zn@mbf.nifty.com>
Subject: [ruby-list:37556] Re: refe.el (Re: ReFe 0.7 (Re: ReFe 0.6))
Date: Sun, 13 Apr 2003 09:28:18 +0900

> 今度は File.chmod がひけないと言うのを発見しました。
> 
> % refe File.chmod
> File.chmod FileUtils.chmod

　候補数が少ないので、 0.7.0 でも --all を付ければ一応説明を見ることは
できますね。 refe.el で Class: プロンプトの後の結果表示は、候補ではな
く説明全表示の方が良いと思います。

@@ -85,7 +85,7 @@
       (setq klass (completing-read "Class: "
                        klass-table nil nil nil nil nil))
       (erase-buffer)
-      (refe-call-process buf klass word))))
+      (refe-call-process buf "--all" klass word))))
 
     (set-buffer-modified-p nil)
     (setq buffer-read-only t)

-- 
Shirai,Kaoru <shirai@korinkan.co.jp>

Korinkan Ltd. - http://www.korinkan.co.jp/

----Next_Part(Mon_May_19_08:19:56_2003_568)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="refe.el"

(defvar refe-program-name
  (if (featurep 'meadow)
      "ruby"
    "refe"))
(defvar refe-program-args
  (if (featurep 'meadow)
      '("-S" "refe")
    nil))
(defvar refe-buffer-name "*Refe*")
(defvar refe-completion-table nil)

(defun refe-call-process (buf &rest args)
  (let ((coding-system-for-read 'euc-japan))
    (apply 'call-process refe-program-name nil buf nil
           (append refe-program-args args))))

(defun refe-make-completion-table ()
  (setq refe-completion-table (make-vector 547 0))
  (with-temp-buffer
    (refe-call-process t)
    (goto-char (point-min))
    (while (looking-at "^[A-Z][A-Za-z_0-9:]*")
      (intern (match-string 0) refe-completion-table)
      (forward-line)))

  (with-temp-buffer
    (refe-call-process t "*")
    (goto-char (point-min))
    (while (looking-at "^[A-Z][A-Za-z_0-9:]*[#.]\\(.*\\)")
      (intern (match-string 1) refe-completion-table)
      (intern (match-string 0) refe-completion-table)
      (forward-line)))
  nil)

(refe-make-completion-table)

(defun refe-get-word-at-point ()
  (save-excursion
    (while (looking-at "\\sw\\|\\s_")
      (forward-char 1))
    (if (or (re-search-backward "\\sw\\|\\s_"
                (save-excursion (beginning-of-line) (point))
                t)
        (re-search-forward "\\(\\sw\\|\\s_\\)+"
                   (save-excursion (end-of-line) (point))
                   t))
    (progn (goto-char (match-end 0))
           (buffer-substring (point)
                 (progn (forward-sexp -1)
                    (while (looking-at "\\s'")
                      (forward-char 1))
                    (point))))
      nil)))

(defun refe ()
  (interactive)
  (let* ((default (refe-get-word-at-point))
     (completion-ignore-case t)
     (word (completing-read (if default
                    (format "Class or Method (default %s): " default)
                  "Class or Method: ")
                refe-completion-table nil nil nil nil default))
     (buf (or (get-buffer refe-buffer-name)
          (generate-new-buffer refe-buffer-name)))
    (pop-up-windows t)
    (pop-up-frames nil))
    (set-buffer buf)
    (setq buffer-read-only nil)
    (erase-buffer)

    (refe-call-process buf word)

    (goto-char (point-min))
    (if (re-search-forward "^---" nil t)
    nil
      (let ((klass-table (make-vector 17 0))
        (completion-ignore-case t)
        klass)
    (goto-char (point-min))
    (while (looking-at "^\\([A-Z][A-Za-z_0-9:]*\\)[#.]")
      (intern (match-string 1) klass-table)
      (forward-line))
    (if (= (point) (point-min))
        nil ; (message "no such class or method: %s" word)
      (setq klass (completing-read "Class: "
                       klass-table nil nil nil nil nil))
      (erase-buffer)
      (refe-call-process buf "--all" klass word))))

    (set-buffer-modified-p nil)
    (setq buffer-read-only t)
    (goto-char (point-min))
    (display-buffer buf)))

----Next_Part(Mon_May_19_08:19:56_2003_568)----