diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-28 13:56:57 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-28 13:56:57 +0100 |
| commit | c6e3977aed02aac11d457fabb587ee3c15a16980 (patch) | |
| tree | 0a69c5e8550903b67ef61372611cca1b6304f561 | |
| parent | d0c05e6b271bdeec160bffc8fbce42e5706be7a1 (diff) | |
Book Marx: Accept the user's idea of URI and title.
| -rw-r--r-- | src/mulk/benki/book_marx.clj | 2 | ||||
| -rw-r--r-- | src/mulk/benki/util.clj | 1 |
2 files changed, 2 insertions, 1 deletions
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)) )) |