branch: master
commit c3eafa9b2370e0d0af8cb3053073095dfd74fec0
Author: Filipp Gunbin <fgun...@fastmail.fm>
Commit: Filipp Gunbin <fgun...@fastmail.fm>
packages/sql-beeline/sql-beeline.el: Initial commit
---
packages/sql-beeline/sql-beeline.el | 93 +++++++++++++++++++++++++++++++++++++
1 file changed, 93 insertions(+)
diff --git a/packages/sql-beeline/sql-beeline.el
b/packages/sql-beeline/sql-beeline.el
new file mode 100644
index 0000000..6693bf1
--- /dev/null
+++ b/packages/sql-beeline/sql-beeline.el
@@ -0,0 +1,93 @@
+;;; sql-beeline.el --- Beeline support for sql.el -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2020-2020 Free Software Foundation, Inc.
+
+;; Author: Filipp Gunbin <fgun...@fastmail.fm>
+;; Maintainer: Filipp Gunbin <fgun...@fastmail.fm>
+;; Version: 0.1
+;; Keywords: sql, hive, beeline, hiveserver2
+
+;; 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 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/>.
+
+;; TODO
+;;
+;; - Recognize prompt for a user when !connect is given only url
+;; - Turn off echo
+;;
+
+;;; Code:
+
+(require 'sql)
+
+
+(defcustom sql-beeline-program "beeline"
+ "Command to start the Beeline (HiveServer2 client)."
+ :type 'file
+ :group 'SQL)
+
+(defcustom sql-beeline-options
+ '("--silent" "--incremental=false" "--headerInterval=10000")
+ "List of additional options for `sql-beeline-program'."
+ :type '(repeat string)
+ :group 'SQL)
+
+(defcustom sql-beeline-login-params
+ `((user :default ,(user-login-name))
+ (database :default "default")
+ (server :default "localhost")
+ (port :default 10000))
+ "List of login parameters needed to connect to HiveServer2."
+ :type 'sql-login-params
+ :group 'SQL)
+
+
+(defun sql-comint-beeline (product options &optional buf-name)
+ "Create comint buffer and connect to HiveServer2."
+ (let ((params (append
+ (list "-u" (format "jdbc:hive2://%s:%d/%s"
+ sql-server sql-port sql-database))
+ (unless (string-empty-p sql-user)
+ (list "-n" sql-user))
+ (unless (string-empty-p sql-password)
+ (list "-p" sql-password))
+ options))
+ ;; TERM=dumb makes jline library (version 2.12 used in Hive
+ ;; 1.1.0, for example) to fallback to "unsupported" terminal,
+ ;; and in that mode its ConsoleReader emulates password char
+ ;; hiding by emitting prompt together with carriage returns
+ ;; every few milliseconds - we don't want it because it
+ ;; just makes garbage.
+ (comint-terminfo-terminal ""))
+ (sql-comint product params buf-name)))
+
+;;;###autoload
+(defun sql-beeline (&optional buffer)
+ "Run beeline as an inferior process."
+ (interactive "P")
+ (sql-product-interactive 'beeline buffer))
+
+(eval-after-load "sql"
+ '(sql-add-product
+ 'beeline "Beeline"
+ :font-lock 'sql-mode-ansi-font-lock-keywords
+ :sqli-program 'sql-beeline-program
+ :sqli-options 'sql-beeline-options
+ :sqli-login 'sql-beeline-login-params
+ :sqli-comint-func #'sql-comint-beeline
+ :list-all '("show tables;" . "!tables")
+ :list-table '("describe %s;" . "!describe %s")
+ :prompt-regexp "^[^ .][^>\n]*> "
+ :prompt-cont-regexp "^[ .]*> "))
+
+(provide 'sql-beeline)
