add quantity table to tex pdf

fixes #7

src/gms/routes/home.clj

@@ -56,7 +56,8 @@
   (GET "/" [:as {h :headers}] (list-page h))
   (GET "/pdf" [] (list-pdf))
   (GET "/tex-pdf" [] {:headers {"Content-Type" "application/pdf"} 
-                      :body (tex/get-pdf (db/run db/get-food)) })
+                      :body (tex/get-pdf (db/run db/get-food)
+                                         (db/run db/get-food-numbers))})
   ;(GET "/announce-deliver" [] (irc/announce-deliver))
   (GET "/special/doener" [:as {h :headers}] (list-page doener-list))
   (GET "/special/grill" [:as {h :headers}] (list-page grill-list))

src/gms/tex.clj

@@ -47,10 +47,23 @@
          (concat ["\\begin{tabular}{rrrlll}\\toprule\\\\"
                   "\\checkmark&\\euro&\\#&Fresse&Extra-Würste&Depp\\\\"
                   "\\midrule\\\\"]
-                 (map #(str "&" "&" (escape-tex (:food_name %))
+                 (map #(str "&" "&"
+                            (escape-tex (:quantity %)) "&"
+                            (escape-tex (:food_name %))
                             "&" (escape-tex (:comment %)) "&"
                             (escape-tex (:customer %)) "\\\\" \newline) data)
                  ["\\bottomrule\\\\\\end{tabular}"])))
 
-(defn get-pdf [data]
-  (gen-document (order-table data))) 
+(defn quantity-table [data]
+  (apply str
+         (concat ["\\begin{tabular}{lll}\\toprule\\\\"
+                  "\\#&Fresse&Extra-Würste\\\\"
+                  "\\midrule\\\\"]
+                 (map #(str
+                            (escape-tex (:number %))
+                            "&" (escape-tex (:food_name %)) "&"
+                            (escape-tex (:comment %)) "\\\\" \newline) data)
+                 ["\\bottomrule\\\\\\end{tabular}"])))
+
+(defn get-pdf [data numbers]
+  (gen-document  (str "\\noindent" (order-table data) "\\\\" (quantity-table numbers))))