]> rtime.felk.cvut.cz Git - sojka/company-mode.git/blob - company-ispell.el
Define groups for back-ends; remove explicit :group declarations
[sojka/company-mode.git] / company-ispell.el
1 ;;; company-ispell.el --- company-mode completion back-end using Ispell
2
3 ;; Copyright (C) 2009-2011  Free Software Foundation, Inc.
4
5 ;; Author: Nikolaj Schumacher
6
7 ;; This file is part of GNU Emacs.
8
9 ;; GNU Emacs is free software: you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation, either version 3 of the License, or
12 ;; (at your option) any later version.
13
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17 ;; GNU General Public License for more details.
18
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
21
22
23 ;;; Commentary:
24 ;;
25
26 ;;; Code:
27
28 (require 'company)
29 (require 'ispell)
30 (eval-when-compile (require 'cl))
31
32 (defgroup company-ispell nil
33   "Completion back-end using Ispell."
34   :group 'company)
35
36 (defcustom company-ispell-dictionary nil
37   "Dictionary to use for `company-ispell'.
38 If nil, use `ispell-complete-word-dict'."
39   :type '(choice (const :tag "default (nil)" nil)
40                  (file :tag "dictionary" t)))
41
42 (defvar company-ispell-available 'unknown)
43
44 (defun company-ispell-available ()
45   (when (eq company-ispell-available 'unknown)
46     (condition-case err
47         (progn
48           (lookup-words "WHATEVER")
49           (setq company-ispell-available t))
50       (error
51        (message "Company: ispell-look-command not found")
52        (setq company-ispell-available nil))))
53   company-ispell-available)
54
55 ;;;###autoload
56 (defun company-ispell (command &optional arg &rest ignored)
57   "`company-mode' completion back-end using Ispell."
58   (interactive (list 'interactive))
59   (case command
60     (interactive (company-begin-backend 'company-ispell))
61     (prefix (when (company-ispell-available)
62               (company-grab-word)))
63     (candidates (lookup-words arg (or company-ispell-dictionary
64                                       ispell-complete-word-dict)))
65     (sorted t)
66     (ignore-case t)))
67
68 (provide 'company-ispell)
69 ;;; company-ispell.el ends here