@@ -124,6 +124,26 @@ (defvar relax-mode-hook nil) +(defun relax-create-db-menu (&rest ignore) + (let ((menu (make-sparse-keymap "Databases"))) + (dolist (db (relax-url-completions)) + (define-key-after menu (vector (intern (concat "relax-db-" db))) (cons db `(lambda () (interactive) + (relax ,db))))) + menu)) + +(defvar relax-menu-bar + (let ((menu (make-sparse-keymap "Relax"))) + (define-key-after menu [relax-doc] '("Open doc" . relax-doc)) + (define-key-after menu [relax-new-doc] '("New doc" . relax-new-doc)) + (define-key-after menu [relax-kill-doc] '("Remove doc" . relax-kill-doc-from-db)) + (define-key-after menu [relax-sp1] '("---")) + (define-key-after menu [relax-refresh] '("Update doclist" . relax-update-db)) + (define-key-after menu [relax-sp2] '("---")) + (define-key-after menu [relax-prompt-db] '("Open database..." . relax)) + (define-key-after menu [relax-databases] '(menu-item "Switch to database" t + :filter relax-create-db-menu)) + menu)) + (defvar relax-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "RET") 'relax-doc) (define-key map (kbd "C-o") 'relax-new-doc) @@ -135,6 +155,10 @@ (define-key map (kbd "C-k") 'relax-kill-doc-from-db) (define-key map "[" 'relax-prev-page) (define-key map "]" 'relax-next-page) + + (define-key map [menu-bar] (make-sparse-keymap)) + (define-key map [menu-bar relax] (cons "Relax" relax-menu-bar)) + map)) (defun relax-url-completions () @@ -162,7 +186,7 @@ 'relax-mode (list db-url)) ;; buffer has been initialized; needs refresh (switch-to-buffer (relax-db-buffer-name db-url)) - (relax-update-db))) + (relax-update-db))) (defun relax-mode (status database-url) "Major mode for interacting with CouchDB databases." relax.el 1f25a6cc527c2297a35bd838a787d97d7b69eeab Joost Diepenmaat joost@zeekat.nl http://github.com/joodie/relax.el/commit/9b0d9a353730aa0a0290a91f98b8c5d06dc18067 9b0d9a353730aa0a0290a91f98b8c5d06dc18067

2009-11-03T07:07:29-08:00

added menu with database list 1d22b0f5e52b60120945ae271593b4433088f4e0 Joost Diepenmaat joost@zeekat.nl