[elpa] master bc88259 5/5: Merge commit 'fe9ec0c54c5c0224bdce6b557fe1f4bf2acbc972' as 'packages/company-math'

[Vitalie Spinu]

branch: master
commit bc88259639b946715459807fbe2b076faa4512a3
Merge: 567397f fe9ec0c
Author: Vitalie Spinu <address@hidden>
Commit: Vitalie Spinu <address@hidden>

    Merge commit 'fe9ec0c54c5c0224bdce6b557fe1f4bf2acbc972' as 
'packages/company-math'
---
 packages/company-math/company-math.el         |  159 +++++++++++++++++++++++++
 packages/company-math/img/latex-symbols.png   |  Bin 0 -> 3355 bytes
 packages/company-math/img/unicode-symbols.png |  Bin 0 -> 3333 bytes
 packages/company-math/readme.md               |   62 ++++++++++
 4 files changed, 221 insertions(+), 0 deletions(-)

diff --git a/packages/company-math/company-math.el 
b/packages/company-math/company-math.el
new file mode 100644
index 0000000..7d8efab
--- /dev/null
+++ b/packages/company-math/company-math.el
@@ -0,0 +1,159 @@
+;;; company-math.el --- Completion backends for unicode math symbols and latex 
tags
+;;
+;; Copyright (C) 2015 Free Software Foundation, Inc.
+;; Author: Vitalie Spinu
+;; URL: https://github.com/vspinu/company-math
+;; Keywords:  Unicode, symbols, completion
+;; Version: 1.0.1
+;; Package-Requires: ((company "0.8.0") (math-symbol-lists "1.0"))
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; This file is part of GNU Emacs.
+;;
+;; 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 3, 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; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
+;; Floor, Boston, MA 02110-1301, USA.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;;; Code:
+
+(require 'math-symbol-lists)
+(require 'company)
+(require 'cl-lib)
+
+(defgroup company-math nil
+  "Completion back-ends for math symbols Unicode symbols and LaTeX tags."
+  :group 'company
+  :prefix "company-math-")
+
+(defcustom company-math-prefix-regexp "\\\\\\([^ \t]+\\)"
+  "Regexp matching the prefix of the company-math symbol.
+First subgroup must match the actual symbol to be used in the
+completion."
+  :group 'company-math
+  :type 'string)
+
+(defcustom company-math-allow-unicode-symbols-in-faces t
+  "List of faces to allow the insertion of Unicode symbols.
+When set to special value t, allow on all faces except those in
+`company-math-disallow-unicode-symbols-in-faces'."
+  :group 'company-math
+  :type '(choice (const t)
+                (repeat :tag "Faces" symbol)))
+
+(defcustom company-math-allow-latex-symbols-in-faces '(font-latex-math-face)
+  "List of faces to disallow the insertion of latex mathematical symbols.
+When set to special value t, allow on all faces except those in
+`company-math-disallow-latex-symbols-in-faces'."
+  :group 'company-math
+  :type '(choice (const t)
+                (repeat :tag "Faces" symbol)))
+
+(defcustom company-math-disallow-unicode-symbols-in-faces 
'(font-latex-math-face)
+  "List of faces to disallow the insertion of Unicode symbols."
+  :group 'company-math
+  :type '(repeat symbol))
+
+(defcustom company-math-disallow-latex-symbols-in-faces '()
+  "List of faces to disallow the insertion of latex mathematical symbols."
+  :group 'company-math
+  :type '(repeat symbol))
+
+
+;;; INTERNALS
+
+(defun company-math--make-candidates (alist)
+  "Build a list of math symbols ready to be used in ac source.
+ALIST is one of the defined alist in package `symbols'. Return a
+list of LaTeX symbols with text property :symbol being the
+corresponding unicode symbol."
+  (delq nil
+        (mapcar
+         #'(lambda (el)
+            (let* ((tex (substring (nth 1 el) 1))
+                   (ch (and (nth 2 el) (decode-char 'ucs (nth 2 el))))
+                   (symb (and ch (char-to-string ch))))
+              (propertize tex :symbol symb)))
+         alist)))
+
+(defconst company-math--symbols
+  (delete-dups
+   (append (company-math--make-candidates math-symbol-list-basic)
+           (company-math--make-candidates math-symbol-list-extended)))
+  "List of math completion candidates.")
+
+(defun company-math--prefix (allow-faces disallow-faces)
+  (let* ((face (get-text-property (point) 'face))
+        (face (or (car-safe face) face))
+        (insertp (and (not (memq face disallow-faces))
+                      (or (eq t allow-faces)
+                          (memq face allow-faces)))))
+    (when insertp
+      (save-excursion
+       (when (looking-back company-math-prefix-regexp (point-at-bol))
+         (match-string 1))))))
+
+(defun company-math--substitute-unicode (symbol)
+  "Substitute preceding latex command with with SYMBOL."
+  (let ((pos (point))
+       (inhibit-point-motion-hooks t))
+    (when (re-search-backward company-math-prefix-regexp)
+      (delete-region (match-beginning 0) pos)
+      (insert symbol))))
+
+
+;;; BACKENDS
+
+;;;###autoload
+(defun company-latex-commands (command &optional arg &rest ignored)
+  "Company backend for latex commands."
+  (interactive (list 'interactive))
+  (cl-case command
+    (interactive (company-begin-backend 'company-latex-commands))
+    (prefix (unless (company-in-string-or-comment)
+             (company-math--prefix t '())))
+    (candidates (all-completions arg math-symbol-list-latex-commands))
+    (sorted t)))
+
+;;;###autoload
+(defun company-math-symbols-latex (command &optional arg &rest ignored)
+  "Company backend for LaTeX mathematical symbols."
+  (interactive (list 'interactive))
+  (cl-case command
+    (interactive (company-begin-backend 'company-math-symbols-latex))
+    (prefix (unless (company-in-string-or-comment)
+             (company-math--prefix company-math-allow-latex-symbols-in-faces
+                                   
company-math-disallow-latex-symbols-in-faces)))
+    (annotation (concat " " (get-text-property 0 :symbol arg)))
+    (candidates (all-completions arg company-math--symbols))))
+
+;;;###autoload
+(defun company-math-symbols-unicode (command &optional arg &rest ignored)
+  "Company backend for LaTeX mathematical symbols."
+  (interactive (list 'interactive))
+  (cl-case command
+    (interactive (company-begin-backend 'company-math-symbols-unicode))
+    (prefix (company-math--prefix company-math-allow-unicode-symbols-in-faces
+                                 
company-math-disallow-unicode-symbols-in-faces))
+    (annotation (concat " " (get-text-property 0 :symbol arg)))
+    (candidates (all-completions arg company-math--symbols))
+    (post-completion (company-math--substitute-unicode
+                     (get-text-property 0 :symbol arg)))))
+
+
+(provide 'company-math)
+
+;;; company-math.el ends here
diff --git a/packages/company-math/img/latex-symbols.png 
b/packages/company-math/img/latex-symbols.png
new file mode 100644
index 0000000..781a46a
Binary files /dev/null and b/packages/company-math/img/latex-symbols.png differ
diff --git a/packages/company-math/img/unicode-symbols.png 
b/packages/company-math/img/unicode-symbols.png
new file mode 100644
index 0000000..050e6fe
Binary files /dev/null and b/packages/company-math/img/unicode-symbols.png 
differ
diff --git a/packages/company-math/readme.md b/packages/company-math/readme.md
new file mode 100644
index 0000000..cc47194
--- /dev/null
+++ b/packages/company-math/readme.md
@@ -0,0 +1,62 @@
+This add-on defines three *[company-mode](http://company-mode.github.io/)* 
backends:
+
+* `company-math-symbols-latex` - math latex tags (_by default, active only on 
latex math faces_)
+
+      
![symbols](https://raw.github.com/vspinu/company-math/master/img/latex-symbols.png)
+
+* `company-math-symbols-unicode`       - unicode symbols (_by default, active 
everywhere except math faces_)
+
+      
![math](https://raw.github.com/vspinu/company-math/master/img/unicode-symbols.png)
+
+* `company-latex-commands`             - latex commands 
+
+## Usage ##
+
+Start math completion by typing the prefix <kbd>`\`</kbd> key. To select the
+completion type <kbd>RET</kbd>. Depending on the context and your configuration
+unicode symbol or latex tag will be inserted.
+
+## Activation ##
+
+Install from [MELPA](http://melpa.milkbox.net/) repository.
+
+You can either register each backend globally:
+
+
+```lisp
+
+;; global activation of the unicode symbol completion 
+(add-to-list 'company-backends 'company-math-symbols-unicode)
+
+
+```
+
+or locally per emacs mode:
+
+
+```lisp
+
+;; local configuration for TeX modes
+(defun my-latex-mode-setup ()
+  (setq-local company-backends
+              (append '(company-math-symbols-latex company-latex-commands)
+                      company-backends)))
+
+(add-hook 'TeX-mode-hook 'my-latex-mode-setup)
+ 
+```
+
+## Customization ##
+
+Set `company-tooltip-align-annotations` to t in order to allin symbols to the
+right as in the above previews.
+
+By default unicode symbols backend (`company-math-symbols-unicode`) is not
+active in latex math environments and latex math symbols
+(`company-math-symbols-latex`) is not available outside of math latex
+environmnts. You can use the following variables to adjust this behavior to 
your
+liking: `company-math-disallow-unicode-symbols-in-faces`,
+`company-math-allow-unicode-symbols-in-faces`,
+`company-math-disallow-latex-symbols-in-faces`,
+`company-math-allow-latex-symbols-in-faces`.
+