Merge pull request #62 from stardiviner/option-for-uppercase

Fix #60 add an option for uppercase/downcase ANSI SQL candidates

ejc-autocomplete.el

@@ -25,6 +25,13 @@
 (require 'ejc-doc)
 (require 'ejc-format)
 
+(defcustom ejc-candidates-uppercase t
+  "Use uppercase candidates or downcase.
+Uppercase by default, set to nil to use downcase candidates."
+  :type 'boolean
+  :safe #'booleanp
+  :group 'ejc-sql)
+
 (defcustom ejc-use-flx nil
   "Non-nil enables `flx' fuzzy matching engine autocompletion."
   :group 'ejc-sql
@@ -110,12 +117,13 @@
       nil)))
 
 (defun ejc-get-ansi-sql-words ()
-  (if (not (or (ejc-return-point) (ejc-get-prefix-word)))
-      (progn
+  (unless (or (ejc-return-point) (ejc-get-prefix-word))
+    (progn
+      (if ejc-candidates-uppercase
+          (append (mapcar 'upcase ejc-ansi-sql-words)
+                  (mapcar 'upcase ejc-auxulary-sql-words))
         (append ejc-ansi-sql-words
-                ejc-auxulary-sql-words
-                (mapcar 'upcase ejc-ansi-sql-words)
-                (mapcar 'upcase ejc-auxulary-sql-words)))
+                ejc-auxulary-sql-words)))
     nil))
 
 (defun ac-ejc-documentation (symbol-name)