From c6e3977aed02aac11d457fabb587ee3c15a16980 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 28 Feb 2012 13:56:57 +0100 Subject: Book Marx: Accept the user's idea of URI and title. --- src/mulk/benki/book_marx.clj | 2 +- src/mulk/benki/util.clj | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'src/mulk/benki') diff --git a/src/mulk/benki/book_marx.clj b/src/mulk/benki/book_marx.clj index 873bef4..4dd328e 100644 --- a/src/mulk/benki/book_marx.clj +++ b/src/mulk/benki/book_marx.clj @@ -156,7 +156,7 @@ (get-in (request/ring-request) [:headers "Referer"]) uri)] (layout bookmarx-submission-page "Submit New Bookmark" - [:form {:method "POST"} + [:form {:method "POST", :action (link :marx :submit)} [:table [:tr [:td "URI: "] [:td [:input {:type "text", :name "uri", :size 100, :value uri}]]] [:tr [:td "Title: "] [:td [:input {:type "text", :name "title", :size 100, :value title}]]] diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj index a9c7ef2..3600f9e 100644 --- a/src/mulk/benki/util.clj +++ b/src/mulk/benki/util.clj @@ -50,6 +50,7 @@ (match [(vec args)] [[:login]] (fresolve "/login") [[:marx]] (fresolve "/marx") + [[:marx :submit]] (fresolve "/marx/submit") [[:marx id]] (fresolve "/marx/~a" id) [[:wiki title & xs]] (fresolve "/wiki/~a~@[~a~]" title (first xs)) )) -- cgit v1.2.3