如何创建Emacs SQL缓冲区？

的Mx SQL-的Postgres

，并键入用户，数据库，主机，服务器

我想这样做：

（连接-foo（用户 “我”）（数据库 “巴”）（主机 “大地”））

解决方案迄今：

我抓住了一些C从sql.el中删除并更改它，以便我可以非交互式地使用它。

(defun sql-create-buffer (profile) 
    "derived from sql-product-interactive in sql.el which is" 
    "covered by GNU General Public License version 3." 

    (setq sql-user  (cdr (assoc 'user profile)) 
     sql-password (cdr (assoc 'password profile)) 
     sql-server (cdr (assoc 'server profile)) 
     sql-database (cdr (assoc 'database profile))) 
    (setq product 'postgres) ;;(cdr (assoc 'product profile))) 
    (when (sql-product-feature :sqli-connect product) 
    (if (comint-check-proc "*SQL*") 
    (pop-to-buffer "*SQL*") 
     ;; Connect to database. 
     (message "Login...") 
     (funcall (sql-product-feature :sqli-connect product)) 
     ;; Set SQLi mode. 
     (setq sql-interactive-product product) 
     (setq sql-buffer (current-buffer)) 
     (sql-interactive-mode) 
     ;; All done. 
     (message "Login...done") 
     (pop-to-buffer sql-buffer)))) 

(setq bar-profile '(
     (product . "postgres") 
     (user  . "me") 
     (password . "") 
     (server . "earth") 
     (database . "bar")))

我不知道如何处理'产品'参数，所以我现在就把它硬编码了。它是'postgres in sql.el.

(sql-create-buffer bar-profile)

来源

2010-03-25 Eddy Pronk

看来，包不打算非交互使用（可能阻止写的登录信息到初始化文件，这是一个非常合理的原则）。

但是，如果你真的想避免回答这些问题，你可以简单地重新定义查询功能，如：

(defun sql-get-login (&rest what) 
    (setq sql-user  "me" 
     sql-password "secret" 
     sql-server "localhost" 
     sql-database "MyDB"))

来源

2010-03-25 07:52:08

感谢。我抓住了一些代码，并试图以非交互方式使用它。 – 2010-03-26 01:17:50

谢谢。我与Sybase有类似的问题。我会尝试你的解决方案 - 我的.emacs中有我的irc密码，它和我们的数据库服务器一样，无论如何都在防火墙后面。 – 2010-03-27 04:12:25

如何创建Emacs SQL缓冲区？

回答

相关问题