From cc40a0fe0e9c071be4506dae93d16acd521d1d84 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Mon, 12 Nov 2018 07:26:55 +0800 Subject: [PATCH] Fix #60 add an option for uppercase/downcase ANSI SQL candidates --- ejc-autocomplete.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/ejc-autocomplete.el b/ejc-autocomplete.el index 249ccc9..62d7d32 100644 --- a/ejc-autocomplete.el +++ b/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) + (defun ejc-get-prefix-word () "Return the word preceding dot before the typing." (save-excursion @@ -95,12 +102,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)