1620 |
|
|
1621 |
(defun gnats-change-database (database host port user) |
(defun gnats-change-database (database host port user) |
1622 |
"Set new database parameters." |
"Set new database parameters." |
1623 |
(interactive "sDatabase: \nsHost: \nnPort: \nsUser: ") |
(interactive |
1624 |
|
(list (read-from-minibuffer "Database: " gnats-database) |
1625 |
|
(read-from-minibuffer "Host: " (or gnats-server "localhost")) |
1626 |
|
(string-to-number |
1627 |
|
(read-from-minibuffer "Port: " (if gnats-port |
1628 |
|
(format "%d" gnats-port) |
1629 |
|
1529))) |
1630 |
|
(read-from-minibuffer "User: " (or gnats-user (user-login-name))))) |
1631 |
(setq gnats-database database |
(setq gnats-database database |
1632 |
gnats-server host |
gnats-server host |
1633 |
gnats-port port |
gnats-port port |
1724 |
(setq local-abbrev-table gnats-dbconfig-mode-abbrev-table) |
(setq local-abbrev-table gnats-dbconfig-mode-abbrev-table) |
1725 |
(make-local-variable 'font-lock-defaults) |
(make-local-variable 'font-lock-defaults) |
1726 |
(setq font-lock-defaults '(gnats-dbconfig-font-lock-keywords nil t)) |
(setq font-lock-defaults '(gnats-dbconfig-font-lock-keywords nil t)) |
1727 |
|
(setq imenu-generic-expression |
1728 |
|
'((nil "^\\(database-info\\|on-change\\|index\\|initial-entry\\)" 1) |
1729 |
|
("Mail formats" "^mail-format +\"\\([^\"\n]+\\)\"" 1) |
1730 |
|
("Queries" "^query +\"\\([^\"\n]+\\)\"" 1) |
1731 |
|
("Fields" "^field +\"\\([^\"\n]+\\)\"" 1))) |
1732 |
(run-hooks 'gnats-dbconfig-mode-hook)) |
(run-hooks 'gnats-dbconfig-mode-hook)) |
1733 |
(add-to-list 'auto-mode-alist '("\\<dbconfig$" . gnats-dbconfig-mode)) |
(add-to-list 'auto-mode-alist '("\\<dbconfig$" . gnats-dbconfig-mode)) |
1734 |
|
|