13 lines
318 B
EmacsLisp
13 lines
318 B
EmacsLisp
|
;; -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;; Lola stuff
|
||
|
|
|
||
|
|
(defun lola-core-models-prod ()
|
||
|
|
"Opens a PSQL buffer to the prod core models database"
|
||
|
|
(interactive)
|
||
|
|
(let ((sql-database (1password-get-password "lola-server prod db (read-only)"))
|
||
|
|
(sql-postgres-login-params nil))
|
||
|
|
(sql-postgres)))
|
||
|
|
|
||
|
|
(provide 'init-lola)
|