@@ -128,7 +128,7 @@ (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))))) + (relax ,db))))) menu)) (defvar relax-menu-bar @@ -142,7 +142,7 @@ (define-key-after menu [relax-prompt-db] '("Open database..." . relax)) (define-key-after menu [relax-create-db] '("Open new database..." . relax-create-db)) (define-key-after menu [relax-databases] '(menu-item "Switch to database" t - :filter relax-create-db-menu)) + :filter relax-create-db-menu)) (define-key-after menu [relax-delete-db] '("Delete database..." . relax-delete-db)) menu)) @@ -158,9 +158,9 @@ (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)) - + (define-key map [menu-bar] (make-sparse-keymap)) + (define-key map [menu-bar relax] (cons "Relax" relax-menu-bar)) + map)) (defun relax-url-completions () @@ -233,9 +233,9 @@ (message url) (let ((url-request-method "PUT")) (url-retrieve url (lambda (status url) - (if status - (message (format "%S" status)) - (relax url))) (list url))))) + (if status + (message (format "%S" status)) + (relax url))) (list url))))) (defun relax-delete-db (url) "Delete a database." @@ -245,9 +245,9 @@ (message url) (let ((url-request-method "DELETE")) (url-retrieve url (lambda (status url) - (if status - (message (format "%S" status)) - (message "Ok"))) (list url))))) + (if status + (message (format "%S" status)) + (message "Ok"))) (list url))))) (defun relax-new-doc (choose-id) "Create a new document. With prefix arg, prompt for a document ID." relax.el f7699214bc9eb66612287aaadcc71b3a3f46366c Joost Diepenmaat joost@zeekat.nl http://github.com/joodie/relax.el/commit/d1a9e8237e25d896d7314c7424bd6e3797f69b07 d1a9e8237e25d896d7314c7424bd6e3797f69b07 2009-11-06T05:21:12-08:00 2009-11-06T05:21:12-08:00 tab -> spaces 5add21e7eb6877276243b87383e1e4bea45d33cc Joost Diepenmaat joost@zeekat.nl