|
|
@ -16,16 +16,15 @@ |
|
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>. |
|
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>. |
|
|
|
|
|
|
|
|
|
|
|
(define footer-links |
|
|
|
(define footer-links |
|
|
|
'(("http://validator.w3.org/check?uri=referer" "XHTML 1.0") |
|
|
|
'(("http://www.gnu.org/software/guile" "Made with GNU Guile") |
|
|
|
("https://call-cc.org/" "Made with Chicken Scheme") |
|
|
|
("http://git.vilor.one/vilor/website/" "Source code") |
|
|
|
("http://git.vilor.one:8079/vilor/website/" "Source code") |
|
|
|
|
|
|
|
("http://www.anybrowser.org/campaign/" "Any Browser"))) |
|
|
|
("http://www.anybrowser.org/campaign/" "Any Browser"))) |
|
|
|
|
|
|
|
|
|
|
|
(define footer |
|
|
|
(define footer |
|
|
|
`(footer (@ (class "footer")) |
|
|
|
`(footer (@ (class "footer")) |
|
|
|
(div (@ (class "footer__authors")) |
|
|
|
(div (@ (class "footer__authors")) |
|
|
|
(div "Content: " |
|
|
|
(div "Content: " |
|
|
|
(a (@ (href "/contacts.xhtml")) "Ivan Polyakov")) |
|
|
|
(a (@ (href "/contacts.html")) "Ivan Polyakov")) |
|
|
|
(div "Design: " |
|
|
|
(div "Design: " |
|
|
|
(a (@ (href "https://t.me/olnaolna")) "Olga Revenkova"))) |
|
|
|
(a (@ (href "https://t.me/olnaolna")) "Olga Revenkova"))) |
|
|
|
|
|
|
|
|
|
|
|