summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-02-28 13:56:57 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-02-28 13:56:57 +0100
commitc6e3977aed02aac11d457fabb587ee3c15a16980 (patch)
tree0a69c5e8550903b67ef61372611cca1b6304f561 /src
parentd0c05e6b271bdeec160bffc8fbce42e5706be7a1 (diff)
Book Marx: Accept the user's idea of URI and title.
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/book_marx.clj2
-rw-r--r--src/mulk/benki/util.clj1
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))
))