Changeset c2fcab3


Ignore:
Timestamp:
Sep 12, 2019, 3:09:32 AM (5 years ago)
Author:
Mikhail Kirillov <w96k.ru@…>
Branches:
master
Children:
69ea041
Parents:
e6d6439
Message:

Delete bookshelf; Add fsf badge;

Files:
4 added
1 edited

Legend:

Unmodified
Added
Removed

  • haunt.scm

    re6d6439 rc2fcab3  
    1818             (ice-9 match)
    1919             (web uri))
    20 
    21 (define %releases
    22   '(("0.1" "c81dbcdf33f9b0a19442d3701cffa3b60c8891ce")))
    23 
    24 (define (tarball-url version)
    25   (string-append "http://files.dthompson.us/haunt/haunt-"
    26                  version ".tar.gz"))
    2720
    2821(define (stylesheet name)
    … …  
    5649                         ,(string-append (site-title site)))
    5750                      (a (@ (class "button") (href "/about.html")) "Обо мне")
    58                       (a (@ (class "button") (href "/bookshelf.html")) "Книжная полка")
     51                      (a (@ (class "button") (href "https://github.com/w96k/cv/raw/master/cv.pdf")) "CV")
    5952                      (a (@ (class "button") (href "/feed.xml"))
    6053                         (span (@ (class "icon-rss"))))
    … …  
    9891                         (class "shadowed rounded")
    9992                         (style "max-width: 300px; width: 100%;")))
    100                  (div (@ (class "button-group"))
    101                       (a (@ (href "https://twitter.com/w96kz") (class "shadowed button")) "Twitter"))
    102                  (div (@ (class "button-group"))
    103                       (a (@ (href "https://t.me/w96k_log") (class "shadowed button")) "Telegram")))
     93                 (div (img (@ (src "/images/fsf.png")
     94                              (class "shadowed rounded")))))
    10495           
    10596            (div (@ (class "col-sm-12 col-md-9"))
    … …  
    10899программирование, LISP и движение за свободное программное
    109100обеспечение.")
    110                  (h3 "Чем занимаюсь")
    111                  (ul
    112                   (li "Учусь на " (a (@ (href "https://ru.hexlet.io/u/w96k")) "Hexlet") " ")
    113                   (li "Читаю на " (a (@ (href "https://www.goodreads.com/user/show/71049684-mikhail-kirillov")) "Goodreads") " ")
    114                   (li "Пилю на " (a (@ (href "https://github.com/w96k/")) "Github") " ")
    115                   (li "Практикуюсь на " (a (@ (href "https://www.codewars.com/users/w96k")) "Codewars")))
    116101
    117102                 (p "Вы можете мне написать на почту с вопросом или
    118103темой для
    119 поста " (a (@ (href "mailto:w96k.ru@gmail.com")) "w96k.ru@gmail.com")))))))
     104поста " (a (@ (href "mailto:w96k@member.fsf.org")) "w96k@member.fsf.org")))))))
    120105
    121106  (make-page "about.html"
    … …  
    187172             sxml->html))
    188173
    189 ;; TODO: Refactor book creating
    190 (define (make-book name sub cover) (0))
    191 
    192 (define (bookshelf-page site posts)
    193   (define body
    194     `(
    195       ;; Пиши сокращай
    196       (article
    197        (div (@ (class "row"))
    198             (div (@ (class "col-sm-12 col-md-3"))
    199                  (img (@ (class "cover")
    200                          (src "/images/books/pishi.jpg")))
    201                  )
    202             (div (@ (class "col-sm-12 col-md-9"))
    203                  (div (@ (class "card fluid"))
    204                       (h3 (@ (class "section")) "Пиши сокращай")
    205                       (p "Полезна для всех, кто публикует хоть что-нибудь в
    206                       интернете. После прочтения стараюсь применять советы из книги на
    207                       практике.")
    208                       (p "Оценка: "
    209                          (mark (@ (class "tertiary")) "Рекомендую"))
    210                       )
    211 
    212                  (p (@ (style "text-align: center;"))
    213                  (a
    214                   (@ (href "https://www.goodreads.com/book/show/31855502"))
    215                   "Книга на Goodreads"))
    216 
    217               )))
    218 
    219       ;; Learning GNU EMACS
    220       (article
    221        (div (@ (class "row"))
    222             (div (@ (class "col-sm-12 col-md-3"))
    223                  (img (@ (class "cover")
    224                          (src "/images/books/emacs.jpg")))
    225                  )
    226             (div (@ (class "col-sm-12 col-md-9"))
    227                  (div (@ (class "card fluid"))
    228                       (h3 (@ (class "section")) "Learning GNU Emacs")
    229                       (p "Отличная и объемная книга для первичного
    230 погружения в мир имакс. Местами устарело, но в целом стиль
    231 повествования и само содержание написано качественно.")
    232                       (p "Оценка: "
    233                          (mark (@ (class "tertiary")) "Рекомендую"))
    234                       )
    235 
    236                  (p (@ (style "text-align: center;"))
    237                     (a
    238                      (@ (href "https://www.goodreads.com/book/show/31855502"))
    239                      "Книга на Goodreads")))))
    240 
    241       ;; Важные годы
    242       (article
    243        (div (@ (class "row"))
    244             (div (@ (class "col-sm-12 col-md-3"))
    245                  (img (@ (class "cover")
    246                          (src "/images/books/20-30.jpg")))
    247                  )
    248             (div (@ (class "col-sm-12 col-md-9"))
    249                  (div (@ (class "card fluid"))
    250                       (h3 (@ (class "section")) "Важные годы"
    251                           (small "Почему не стоит откладывать жизнь на потом."))
    252                       (p "Автор — психотерапевт. Книга основана на
    253 посещениях клиентами автора книги. Основной посыл — в возрасте от 20
    254 до 30 лет надо усердно работать, а не отдыхать 'по-молодости'.")
    255                       (p "Оценка: "
    256                          (mark (@ (class "secondary")) "Не рекомендую"))
    257                       )
    258 
    259                  (p (@ (style "text-align: center;"))
    260                     (a
    261                      (@ (href "https://www.goodreads.com/book/show/31855502"))
    262                      "Книга на Goodreads")))))
    263 
    264       ;; Clojure for the brave and true
    265       (article
    266        (div (@ (class "row"))
    267             (div (@ (class "col-sm-12 col-md-3"))
    268                  (img (@ (class "cover")
    269                          (src "/images/books/clojure-for-brave.jpg")))
    270                  )
    271             (div (@ (class "col-sm-12 col-md-9"))
    272                  (div (@ (class "card fluid"))
    273                       (h3 (@ (class "section")) "Clojure For The Brave & True")
    274                       (p "Отличная книга для первичного погружения в Clojure.")
    275                      
    276                       (p "Оценка: "
    277                          (mark (@ (class "tertiary")) "Рекомендую"))
    278                       )
    279 
    280                  (p (@ (style "text-align: center;"))
    281                     (a
    282                      (@ (href "https://www.goodreads.com/book/show/31855502"))
    283                      "Книга на Goodreads")))))
    284 
    285       ;; Girls Last Tour
    286       (article
    287        (div (@ (class "row"))
    288             (div (@ (class "col-sm-12 col-md-3"))
    289                  (img (@ (class "cover")
    290                          (src "/images/books/girls-last-tour.jpg")))
    291                  )
    292             (div (@ (class "col-sm-12 col-md-9"))
    293                  (div (@ (class "card fluid"))
    294                       (h3 (@ (class "section")) "Girls Last Tour")
    295                      
    296                       (p "Оценка: "
    297                          (mark (@ (class "tertiary")) "Рекомендую"))
    298                       )
    299 
    300                  (p (@ (style "text-align: center;"))
    301                     (a
    302                      (@ (href "https://www.goodreads.com/book/show/31855502"))
    303                      "Книга на Goodreads")))))
    304 
    305       ;; Lesbian Experience
    306       (article
    307        (div (@ (class "row"))
    308             (div (@ (class "col-sm-12 col-md-3"))
    309                  (img (@ (class "cover")
    310                          (src "/images/books/lesbian.jpg")))
    311                  )
    312             (div (@ (class "col-sm-12 col-md-9"))
    313                  (div (@ (class "card fluid"))
    314                       (h3 (@ (class "section")) "My Lesbian Experience with Loneliness")
    315                       (p "Оценка: "
    316                          (mark (@ (class "tertiary")) "Рекомендую"))
    317                       )
    318 
    319                  (p (@ (style "text-align: center;"))
    320                     (a
    321                      (@ (href "https://www.goodreads.com/book/show/33113683-my-lesbian-experience-with-loneliness"))
    322                      "Книга на Goodreads")))))
    323 
    324       (article
    325        (p (@ (style "text-align: center;"))
    326           (a (@ (href "https://www.goodreads.com/user/show/71049684-mikhail-kirillov")
    327                 (class "button"))
    328              "Мой Goodreads")))))
    329 
    330   (make-page "bookshelf.html"
    331              (with-layout mini-theme site "Книжная полка" body)
    332              sxml->html))
    333 
    334174(define %collections
    335175  `(("Главная" "index.html" ,posts/reverse-chronological)))
    … …  
    345185                       (atom-feeds-by-tag)
    346186                       about-page
    347                        bookshelf-page
    348187                       redirect-dobryakov
    349188                       redirect-pirogov
Note: See TracChangeset for help on using the changeset viewer.