1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/faq.clj	Tue Jun 29 15:36:30 2010 -0400
     1.3 @@ -0,0 +1,79 @@
     1.4 +(ns laserkard.faq
     1.5 +  (:use (compojure.http request servlet session routes)
     1.6 +	(compojure.server jetty)
     1.7 +	(compojure control)
     1.8 +	(clojure.contrib prxml str-utils duck-streams seq-utils)
     1.9 +	(laserkard common)))
    1.10 +
    1.11 +(def faqs 
    1.12 +     [
    1.13 +
    1.14 +      ["Will I have enough cards?"]
    1.15 +      ["We like to think of these cards as sniper bullets - throw your cheap paper business cards at everyone like shotgun rounds, but use your Laserkard when it really matters. Save these cards for the big boys - Laserkards will rock their world."]
    1.16 +      
    1.17 +      ["How thick are the cards? Will they fit in my wallet and Rolodex?"]
    1.18 +      ["Laserkards are 16 thousandths of an inch - a human hair thicker than a normal paper business card and about half as thick as a plastic credit card. They fit very well into your wallet and even better in your hand. They'll fit in a Rolodex, but they don't belong in one " [:a {:href "http://www.youtube.com/watch?v=4YBxeDN4tbk#t=1m23s"} ":)"]]
    1.19 +      
    1.20 +      ["How are they made?"]
    1.21 +      ["We start with aluminum blanks punched from a sheet of anodized aluminum. Then, we use a high power YAG laser to etch your custom text and designs. The resulting card looks as if your information is printed in silver on the colored aluminum."]
    1.22 +      
    1.23 +      ["Do they stay clean?"]
    1.24 +      ["Yes. They're waterproof and very scratch resistant. They last much longer than a paper business card."]
    1.25 +
    1.26 +      ["Are the edges sharp?"]
    1.27 +      ["No. The edges are rounded and will not cut into skin."]
    1.28 +
    1.29 +      ["How can I get my logo on the card? Can I get my own design onto the card?"]
    1.30 +      ["For custom designs, " [:a {:href "mailto:sales@laserkard.com"} "contact"] "us. We can work with you to have your cards in the mail to you within two weeks of your first email."]
    1.31 +      
    1.32 +      ["Who are the designers?"]
    1.33 +      ["Three MIT graduates are the heart, brains and soul behind Laserkard. We think you'll appreciate our product engineering and business backgrounds when you give out your own Laserkards."]
    1.34 +
    1.35 +
    1.36 +      ])
    1.37 +
    1.38 +
    1.39 +(def head
    1.40 +     [:head
    1.41 +      [:meta {:http-equiv "Content-Type" :content "text/html" :charset "UTF-8"}]
    1.42 +      [:link {:rel "stylesheet" :href "main.css" :type "text/css" :media "screen"}]
    1.43 +      [:link {:rel "stylesheet" :href "old_sexy.css" :type "text/css" :media "screen"}]
    1.44 +      [:link {:rel "stylesheet" :href "faq.css" :type "text/css" :media "screen"}]
    1.45 +      [:title "Laserkard | FAQ"]
    1.46 +
    1.47 +      ])
    1.48 +
    1.49 +
    1.50 +(def filler
    1.51 +[:div {:id "garbage"} "&nbsp"])
    1.52 +
    1.53 +
    1.54 +(defn faq-wrap [vect]
    1.55 +  (apply vector (cons :div  (map (fn [[index content]] 
    1.56 +		       (if 
    1.57 +			   (odd? index) 
    1.58 +			 (eval `(vector :p {:class "answer"} ~@content))
    1.59 +			 (eval `(vector :p {:class "question"} ~@content))))
    1.60 +				 (indexed vect)))))
    1.61 +
    1.62 +(defn faq []
    1.63 +  (header)
    1.64 +  (re-gsub 
    1.65 +   #">" ">\n"   
    1.66 +   
    1.67 +   (pxml
    1.68 +    [:html
    1.69 +     head
    1.70 +     [:body {:id "faq"}
    1.71 +      [:raw! (slurp  "/home/r/Desktop/web/laserkard/top_menu.include")]
    1.72 +      [:h1 "Frequently Asked Questions"]
    1.73 +      [:div {:class "whole"}
    1.74 +       [:div {:id "pokedex"}
    1.75 +	(faq-wrap faqs)
    1.76 +       ]]
    1.77 +      filler
    1.78 +      ]])))
    1.79 +
    1.80 +
    1.81 +
    1.82 +