brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Finish QR code integration.

Browse source
This commit is contained in:
Dominik Pantůček 2025-01-03 17:08:16 +01:00
parent 4d73afe3c5
commit 17ce5cc126
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/export-web-static.scm
View file

@ -90,6 +90,8 @@
(print "dd+dt,dd+dt+dd{border-top:1px solid #8cacbb}") (print "dd+dt,dd+dt+dd{border-top:1px solid #8cacbb}")
(print "dd{grid-column:2/3;font-weight:bold;margin:0px;padding-left:16px}") (print "dd{grid-column:2/3;font-weight:bold;margin:0px;padding-left:16px}")
(print "footer{background:#dee7ec;border-top:1px solid #8cacbb;padding:16px}") (print "footer{background:#dee7ec;border-top:1px solid #8cacbb;padding:16px}")
(print ".qr svg{width:100%;height:auto;max-width:10cm}")
(print ".qr{text-align: center}")
(print "</style>") (print "</style>")
(print "</head>") (print "</head>")
(print "<body>") (print "<body>")
@ -111,10 +113,10 @@
(print "<dt>Account for Payments<br>(Účet pro platbu příspěvků)</dt><dd>CZK: 2500079551/2010<br>EUR: CZ93 2010 0000 0021 0007 9552</dd>") (print "<dt>Account for Payments<br>(Účet pro platbu příspěvků)</dt><dd>CZK: 2500079551/2010<br>EUR: CZ93 2010 0000 0021 0007 9552</dd>")
(print "</dl>") (print "</dl>")
(print "</div>") (print "</div>")
(print "<div class=\"bi\">") (print "<div class=\"bi qr\">")
(let ((fee (member-calendar-entry->fee (let ((fee (member-calendar-entry->fee
(make-member-calendar-entry mr)))) (make-member-calendar-entry mr))))
(print "Fee: " fee) (print "<h2>Payment of membership fee " fee " CZK<br/>(Platba členského příspěvku)</h2>")
(print (make-brmlab-qrp-svg-string (print (make-brmlab-qrp-svg-string
fee "CZK" (brmember-id mr)))) fee "CZK" (brmember-id mr))))
(print "</div>") (print "</div>")