Bumped version to 0.3.1.

[sojka/company-mode.git] / company-ispell.el

diff --git a/company-ispell.el b/company-ispell.el
index a5811709008d65d8b287614dc84f5aad68a15fa9..8602745e942bbb815299b0202bd8efcbf1b259d8 100644 (file)
--- a/company-ispell.el
+++ b/company-ispell.el
@@ -1,3 +1,22 @@
+;;; company-ispell.el --- a company-mode completion back-end using ispell
+;;
+;; Copyright (C) 2009 Nikolaj Schumacher
+;;
+;; This file is part of company 0.3.1.
+;;
+;; 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/>.
+
 (require 'company)
 (require 'ispell)
 (eval-when-compile (require 'cl))
@@ -9,9 +28,27 @@ If nil, use `ispell-complete-word-dict'."
   :type '(choice (const :tag "default (nil)" nil)
                  (file :tag "dictionary" t)))
 
+(defvar company-ispell-available 'unknown)
+
+(defun company-ispell-available ()
+  (when (eq company-ispell-available 'unknown)
+    (condition-case err
+        (progn
+          (lookup-words "WHATEVER")
+          (setq company-ispell-available t))
+      (error
+       (message "Company: ispell-look-command not found")
+       (setq company-ispell-available nil))))
+  company-ispell-available)
+
+;;;###autoload
 (defun company-ispell (command &optional arg &rest ignored)
+  "A `company-mode' completion back-end using ispell."
+  (interactive (list 'interactive))
   (case command
-    ('prefix (company-grab "\\<\\w+\\>"))
+    ('interactive (company-begin-backend 'company-ispell))
+    ('prefix (when (company-ispell-available)
+               (company-grab-word)))
     ('candidates (lookup-words arg (or company-ispell-dictionary
                                        ispell-complete-word-dict)))
     ('sorted t)