#!/usr/bin/env racket
;; lfs sponsor page generator
#lang racket

(require (planet ryanc/db:1:1))
(define cn (sqlite3-connect #:database "sponsee.db"))

(define xrow "
<tr>
<td width=\"200\">
<img src=\"images/sp/~a.jpg\"<br/>
<p class=\"spnam\">~a</p>
<p class=\"spdsc\">~a</p>
</td>
<td width=\"200\">
<img src=\"images/sp/~a.jpg\"<br/>
<p class=\"spnam\">~a</p>
<p class=\"spdsc\">~a</p>
</td>
<td width=\"200\">
<img src=\"images/sp/~a.jpg\"<br/>
<p class=\"spnam\">~a</p>
<p class=\"spdsc\">~a</p>
</td>
</tr>
")

(define modval 3)
(define itm-padder #("0" "" ""))
(define xtmpl (file->string "zztmpl.htm"))
(define xtle "~a sponsorship for $~a/mo")
(define xkwd "sponsorship, ~a")
(define xdsc "Sponsorship for ~a category.")
(define xmid "
<h1>~a</h1>\n
<table width=\"600\" border=\"1\">~a</table>
<br/><br/>
<center>
      <p>To donate via Paypal, click on the donate button</p>
<!--
      <div class=\"c1\">
        <br />

        <form action=\"https://www.paypal.com/cgi-bin/webscr\"
        method=\"post\">
          <input type=\"hidden\" name=\"cmd\" value=
          \"_s-xclick\" /><input type=\"hidden\" name=
          \"hosted_button_id\" value=\"10613803\" /><input type=\"image\"
          src=
          \"https://www.paypal.com/en_US/i/btn/btn_donateCC_LG.gif\"
          border=\"0\" name=\"submit\" alt=
          \"PayPal - The safer, easier way to pay online!\" /><img alt=\"\"
          border=\"0\" src=
          \"https://www.paypal.com/en_US/i/scr/pixel.gif\" width=\"1\"
          height=\"1\" />
        </form>
      </div>
-->
<br><br>
<a href=\"8.html\">back to main sponsor page</a>
</center>")
(define species-lst (sort (list "cat" "pig" "goat" "tortoise" "chicken" "donkey" "rabbit" "deer" "duck" "peahen" "dog" "goose") string<?))

;change first element of a vector to string
(define (n1->str v)
  (vector (number->string (vector-ref v 0)) (vector-ref v 1) (vector-ref v 2)))

;get names pky by species from db as list of nam pky
(define (itms-by-species species)
  (let* ((itms (map n1->str
                    (query-rows
                     cn
                     "select pky,nam,dsc from sponsees where spe=$1 order by nam"
                     species)))
         (amt (query-value cn "select amt from amounts where spe=$1" species))
         (len-of-itms (length itms))
         (num-of-xprs (ceiling (/ len-of-itms modval)))
         (itms-modulo (modulo len-of-itms modval))
         (itms-padded (if (equal? itms-modulo 0)
                          itms
                          (append itms (make-list
                                        (- modval itms-modulo)
                                        itm-padder))))
         (xpr-for-table (string-join (make-list num-of-xprs xrow) " "))
         (itms-lst (flatten (map vector->list itms-padded)))
         (itms-str (apply format xpr-for-table itms-lst))
         (tlecode (apply format xtle (list species amt)))
         (kwdcode (apply format xkwd (list species)))
         (dsccode (apply format xdsc (list species)))
         (midcode (apply format xmid (list tlecode itms-str)))
         (pgcode (apply format
                        xtmpl
                        (list tlecode kwdcode dsccode midcode))))
    (display-to-file pgcode
                     (string-append "spnpg_" species ".html")
                     #:exists 'replace)))

(define (gen-pages)
  (for-each itms-by-species species-lst))

;a oneshot function for renaming the existing files
(define (rn)
  (let ((itms (query-rows cn "select pky,nam from sponsees")))
    (for-each
     (lambda (itm)
       (system (apply format "mv images/sp/~a.jpg images/sp/~a.jpg" (list (vector-ref itm 1) (vector-ref itm 0)))))
     itms)))

(gen-pages)