> Hi everyone! I have created small compojure web application, which can
> display multiple values, fetched from other website, using provided
> URL. At the moment, this URL is hard coded in one of my functions, and
> now I would like to add feature for dynamical URL creation, based upon
> values in text field and checkbox.

> This is how my page looks like:

> (defn view-layout [& content]
>   (html [:body content]))

> (defn view-input []
>     (view-layout
>      [:h2 "Find"]
>      [:form {:method "post" :action "/"}
>      ( for [category ["Cat1" "Cat2" "Cat3"]]
>       [:input {:type "checkbox" :id category } category ] )
>       [:br]
>      [:input {:type "text" :id "a" :value "insert manga name"}] [:br]
>      [:input.action {:type "submit" :value "Find"}]
>      [:a {:href "/downloads"} "Downloads"]]))

> (defn view-output []
>   (view-layout
>     [:h2 "default images"]
>     [:form {:method "post" :action "/"}
>       (for [name (get-content-from-url (create-url))]
>         [:label name [:br]]
>            )]))

> (defn create-manga-url
>   []
>   "http://www.mysite.net/search/?tfield=&check=000")

> Here are the routes:

> (defroutes main-routes
>    (GET "/" []
>       (view-input))
>   (GET "/downloads" []
>       (view-downloads))
>   (POST "/" []
>        (view-output) ))

> At the moment, I need help with (create-url) function (returns a
> string), where I would like to fetch all fields, mandatory for my
> search (one text field and 3 checkboxe's) , and parse values from
> them, which will be fed into (concatenated) the URL - for checkbox, if
> checked, the check section will have value 1, instead of 0, or remain
> 0 if not (check=100, or 010, 011 if two check boxes were selected) .
> In case of text field, the tfield=userinputtext.

> Can anyone help me with this?

> Hi Stefan,

> The first thing you might want to do is to make use of the helper
> functions included with Hiccup. For example:

> (use '[hiccup core page form element])

> (defn view-layout [& content]
>   (html5 [:body content]))

> (def all-categories
>   ["Cat1" "Cat2" "Cat3"])

> (defn view-input []
>   (view-layout
>     [:h2 "Find"]
>     (form-to [:post "/"]
>       (for [category all-categories]
>         (checkbox "categories[]" false category))
>       [:br]
>       (text-field {:placeholder "insert manga name"} :a) [:br]
>       (submit-button "Find")
>       (link-to "/downloads" "Downloads"))))

> Note that I've named the checkboxes "category[]", because I want their
> values to be placed in a vector. (A current limitation of the
> wrap-nested-params middleware that's applied by compojure.handler/site
> is that any parameter with multiple values needs to end with a "[]").

> When we submit the form, we wind up with a parameter map that looks a
> little like:

>   :params {:a "foobar", :categories ["Cat1" "Cat3"]}

> Which shows us that Cat1 and Cat3 were selected. The next problem is
> how to turn this into a sequence of true/false values:

> (defn category-checks [selected]
>   (->> all-categories
>        (map (set selected))
>        (map #(if % 1 0))
>        (apply str)))

> This might require a little bit of explanation. We start with a list
> of all categories, and then we want to know which categories are
> selected. If we convert the selected values into a set, then we can
> use the set as a function; we get a "truthy" value if the item is in
> the set, or a "falsey" value (nil) if it is not.

> After that, we can map over an if statement that converts true to 1
> and false to 0, and then apply a str to the list of 0s and 1s so we
> get our final value. This can then be used to create the URL:

> (defn create-manga-url [selected-cats]
>   (str "http://www.mysite.net/search/?tfield=&check="
>        (category-checks selected-cats)))

> (POST "/" [categories]
>   (view-output categories))

> - James

> > This is how my page looks like:

> > (defn view-layout [& content]
> >  (html [:body content]))

> > (defn view-input []
> >    (view-layout
> >     [:h2 "Find"]
> >     [:form {:method "post" :action "/"}
> >     ( for [category ["Cat1" "Cat2" "Cat3"]]
> >      [:input {:type "checkbox" :id category } category ] )
> >      [:br]
> >     [:input {:type "text" :id "a" :value "insert manga name"}] [:br]
> >     [:input.action {:type "submit" :value "Find"}]
> >     [:a {:href "/downloads"} "Downloads"]]))

> > (defn view-output []
> >  (view-layout
> >    [:h2 "default images"]
> >    [:form {:method "post" :action "/"}
> >      (for [name (get-content-from-url (create-url))]
> >        [:label name [:br]]
> >           )]))

> > (defn create-manga-url
> >  []
> >  "http://www.mysite.net/search/?tfield=&check=000")

> > Here are the routes:

> > (defroutes main-routes
> >   (GET "/" []
> >      (view-input))
> >  (GET "/downloads" []
> >      (view-downloads))
> >  (POST "/" []
> >       (view-output) ))

> > At the moment, I need help with (create-url) function (returns a
> > string), where I would like to fetch all fields, mandatory for my
> > search (one text field and 3 checkboxe's) , and parse values from
> > them, which will be fed into (concatenated) the URL - for checkbox, if
> > checked, the check section will have value 1, instead of 0, or remain
> > 0 if not (check=100, or 010, 011 if two check boxes were selected) .
> > In case of text field, the tfield=userinputtext.

> > Can anyone help me with this?

> > --

> Hi everyone! I have created small compojure web application, which can
> display multiple values, fetched from other website, using provided
> URL. At the moment, this URL is hard coded in one of my functions, and
> now I would like to add feature for dynamical URL creation, based upon
> values in text field and checkbox.

> This is how my page looks like:

> (defn view-layout [& content]
>   (html [:body content]))

> (defn view-input []
>     (view-layout
>      [:h2 "Find"]
>      [:form {:method "post" :action "/"}
>      ( for [category ["Cat1" "Cat2" "Cat3"]]
>       [:input {:type "checkbox" :id category } category ] )
>       [:br]
>      [:input {:type "text" :id "a" :value "insert manga name"}] [:br]
>      [:input.action {:type "submit" :value "Find"}]
>      [:a {:href "/downloads"} "Downloads"]]))

> (defn view-output []
>   (view-layout
>     [:h2 "default images"]
>     [:form {:method "post" :action "/"}
>       (for [name (get-content-from-url (create-url))]
>         [:label name [:br]]
>            )]))

> (defn create-manga-url
>   []
>   "http://www.mysite.net/search/?tfield=&check=000")

> Here are the routes:

> (defroutes main-routes
>    (GET "/" []
>       (view-input))
>   (GET "/downloads" []
>       (view-downloads))
>   (POST "/" []
>        (view-output) ))

> At the moment, I need help with (create-url) function (returns a
> string), where I would like to fetch all fields, mandatory for my
> search (one text field and 3 checkboxe's) , and parse values from
> them, which will be fed into (concatenated) the URL - for checkbox, if
> checked, the check section will have value 1, instead of 0, or remain
> 0 if not (check=100, or 010, 011 if two check boxes were selected) .
> In case of text field, the tfield=userinputtext.

> Can anyone help me with this?

> Hi, a have attached the files I am using, also I am using Leningen for
> running my application.  Please help me to pin point the cause of this.
> Thanks for your help.

> On Sunday, May 27, 2012 9:42:55 AM UTC+2, Stefan wrote:

>> Hi everyone! I have created small compojure web application, which can
>> display multiple values, fetched from other website, using provided
>> URL. At the moment, this URL is hard coded in one of my functions, and
>> now I would like to add feature for dynamical URL creation, based upon
>> values in text field and checkbox.

>> This is how my page looks like:

>> (defn view-layout [& content]
>>   (html [:body content]))

>> (defn view-input []
>>     (view-layout
>>      [:h2 "Find"]
>>      [:form {:method "post" :action "/"}
>>      ( for [category ["Cat1" "Cat2" "Cat3"]]
>>       [:input {:type "checkbox" :id category } category ] )
>>       [:br]
>>      [:input {:type "text" :id "a" :value "insert manga name"}] [:br]
>>      [:input.action {:type "submit" :value "Find"}]
>>      [:a {:href "/downloads"} "Downloads"]]))

>> (defn view-output []
>>   (view-layout
>>     [:h2 "default images"]
>>     [:form {:method "post" :action "/"}
>>       (for [name (get-content-from-url (create-url))]
>>         [:label name [:br]]
>>            )]))

>> (defn create-manga-url
>>   []
>>   "http://www.mysite.net/search/?tfield=&check=000")

>> Here are the routes:

>> (defroutes main-routes
>>    (GET "/" []
>>       (view-input))
>>   (GET "/downloads" []
>>       (view-downloads))
>>   (POST "/" []
>>        (view-output) ))

>> At the moment, I need help with (create-url) function (returns a
>> string), where I would like to fetch all fields, mandatory for my
>> search (one text field and 3 checkboxe's) , and parse values from
>> them, which will be fed into (concatenated) the URL - for checkbox, if
>> checked, the check section will have value 1, instead of 0, or remain
>> 0 if not (check=100, or 010, 011 if two check boxes were selected) .
>> In case of text field, the tfield=userinputtext.

>> Can anyone help me with this?