Added company-ropemacs.

diff --git a/company-ropemacs.el b/company-ropemacs.el
new file mode 100644 (file)
index 0000000..d32ec77
--- /dev/null
+++ b/company-ropemacs.el
@@ -0,0 +1,53 @@
+;;; company-pysmell.el --- a company-mode completion back-end for pysmell.el
+;;
+;; Copyright (C) 2009 Nikolaj Schumacher
+;;
+;; This file is part of company 0.4.2.
+;;
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License
+;; as published by the Free Software Foundation; either version 2
+;; of the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+(eval-when-compile (require 'cl))
+(require 'pymacs)
+
+(unless (fboundp 'rope-completions)
+  (pymacs-load "ropemacs" "rope-"))
+
+(unless (fboundp 'rope-completions)
+  (error "rope-completions not found, try development version of ropemacs"))
+
+(defun company-ropemacs--grab-symbol ()
+  (let ((symbol (company-grab-symbol)))
+    (when symbol
+      (cons symbol
+            (save-excursion
+              (let ((pos (point)))
+                (goto-char (- (point) (length symbol)))
+                (while (eq (char-before) ?.)
+                  (goto-char (1- (point)))
+                  (skip-syntax-backward "w_"))
+                (- pos (point))))))))
+
+(defun company-ropemacs (command &optional arg &rest ignored)
+  "A `company-mode' completion back-end for ropemacs."
+  (interactive (list 'interactive))
+  (case command
+    ('interactive (company-begin-backend 'company-ropemacs))
+    ('prefix (and (derived-mode-p 'python-mode)
+                  (not (company-in-string-or-comment))
+                  (company-pysmell--grab-symbol)))
+    ('candidates (mapcar (lambda (element) (concat arg element))
+                         (rope-completions)))))
+
+(provide 'company-ropemacs)
+;;; company-ropemacs.el ends here

diff --git a/company.el b/company.el
index c71eedb9bf9f0a99df2225a43a860ac9a5fabe89..b15022df8fc8e5bc63bc099faaccd48c98405fc5 100644 (file)
--- a/company.el
+++ b/company.el
@@ -65,7 +65,7 @@
 ;;
 ;;; Change Log:
 ;;
-;;    Added `company-pysmell' back-end.
+;;    Added `company-ropemacs' and `company-pysmell' back-ends.
 ;;
 ;; 2009-04-25 (0.4.2)
 ;;    In C modes . and -> now count towards `company-minimum-prefix-length'.
@@ -279,6 +279,7 @@ If this many lines are not available, prefer to display the tooltip above."
     (company-nxml . "nxml")
     (company-oddmuse . "Oddmuse")
     (company-pysmell . "PySmell")
+    (company-ropemacs . "ropemacs")
     (company-semantic . "CEDET Semantic")
     (company-tempo . "Tempo templates")
     (company-xcode . "Xcode")))
@@ -294,6 +295,7 @@ If this many lines are not available, prefer to display the tooltip above."
 
 (defcustom company-backends '(company-elisp company-nxml company-css
                               company-eclim company-semantic company-xcode
+                              company-ropemacs
                               (company-gtags company-etags company-dabbrev-code
                                company-pysmell company-keywords)
                               company-oddmuse company-files company-dabbrev)