Changeset af25216 in at-w96k

Timestamp:

May 8, 2019, 2:34:48 AM (6 years ago)

Author:

w96k <w96k.ru@…>

Branches:

master

Children:

0856b74

Parents:

8e534d6

Message:

Add link to email in about page

File:

• haunt.scm (modified) (8 diffs)

haunt.scm

@@ -115 +115 @@
                   (li "Практикуюсь на " (a (@ (href "https://www.codewars.com/users/w96k")) "Codewars")))
 
-                 (p "Вы можете мне написать на почту с вопросом или темой для поста " (span (@ (class "icon-mail"))) "w96k.ru@gmail.com"))
-            ))))
+                 (p "Вы можете мне написать на почту с вопросом или
+темой для
+поста " (a (@ (href "mailto:w96k.ru@gmail.com")) "w96k.ru@gmail.com")))))))
 
   (make-page "about.html"
@@ -122 +123 @@
              sxml->html))
 
+;; TODO: Refactor book creating
+(define (make-book name sub cover) (0))
+
 (define (bookshelf-page site posts)
   (define body
-    `((article
-       
-       ;; Пиши сокращай
+    `(
+      ;; Пиши сокращай
+      (article
        (div (@ (class "row"))
             (div (@ (class "col-sm-12 col-md-3"))
@@ -147 +151 @@
                      "Книга на Goodreads"))
 
-                 ))
-
-       ;; Learning GNU EMACS
+                 )))
+
+      ;; Learning GNU EMACS
+      (article
        (div (@ (class "row"))
             (div (@ (class "col-sm-12 col-md-3"))
@@ -168 +173 @@
                     (a
                      (@ (href "https://www.goodreads.com/book/show/31855502"))
-                     "Книга на Goodreads"))))
-
-       ;; Важные годы
+                     "Книга на Goodreads")))))
+
+      ;; Важные годы
+      (article
        (div (@ (class "row"))
             (div (@ (class "col-sm-12 col-md-3"))
@@ -190 +196 @@
                     (a
                      (@ (href "https://www.goodreads.com/book/show/31855502"))
-                     "Книга на Goodreads"))))
-
-       ;; Clojure for the brave and true
+                     "Книга на Goodreads")))))
+
+      ;; Clojure for the brave and true
+      (article
        (div (@ (class "row"))
             (div (@ (class "col-sm-12 col-md-3"))
@@ -210 +217 @@
                     (a
                      (@ (href "https://www.goodreads.com/book/show/31855502"))
-                     "Книга на Goodreads"))))
-
-       ;; Girls Last Tour
+                     "Книга на Goodreads")))))
+
+      ;; Girls Last Tour
+      (article
        (div (@ (class "row"))
             (div (@ (class "col-sm-12 col-md-3"))
@@ -229 +237 @@
                     (a
                      (@ (href "https://www.goodreads.com/book/show/31855502"))
-                     "Книга на Goodreads"))))
-
-       ;; Lesbian Experience
+                     "Книга на Goodreads")))))
+
+      ;; Lesbian Experience
+      (article
        (div (@ (class "row"))
             (div (@ (class "col-sm-12 col-md-3"))
@@ -247 +256 @@
                     (a
                      (@ (href "https://www.goodreads.com/book/show/33113683-my-lesbian-experience-with-loneliness"))
-                     "Книга на Goodreads"))))
-
+                     "Книга на Goodreads")))))
+
+      (article
        (p (@ (style "text-align: center;"))
-          (a (@ (href "https://www.goodreads.com/user/show/71049684-mikhail-kirillov")) "Мой
-Goodreads"))
-       
-       )))
+          (a (@ (href "https://www.goodreads.com/user/show/71049684-mikhail-kirillov")
+                (class "button"))
+             "Мой Goodreads")))))
 
   (make-page "bookshelf.html"