Changeset 9efdfcd in at-w96k

Timestamp:

May 8, 2019, 3:46:34 AM (6 years ago)

Author:

w96k <w96k.ru@…>

Branches:

master

Children:

0d430f2

Parents:

0c2ded9

Message:

Make redirects (don't know how to use haunt properly yet)

Files:

• Makefile (modified) (1 diff)
• haunt.scm (modified) (3 diffs)

Makefile

@@ -1 @@
-watch:
-        sassc ./css/mini.scss --style compressed > ./css/mini.css & \
-        haunt serve --watch
+build:
+        rm -rf site/
+        sassc ./css/mini.scss --style compressed > ./css/mini.css
+        haunt build
+        mkdir site/posts
+        mkdir site/posts/dobryakov_employment
+        mv site/dobryakov_employment.html site/posts/dobryakov_employment/index.html
+        mkdir site/posts/pirogov_fp
+        mv site/pirogov_fp.html site/posts/pirogov_fp/index.html
+        mkdir site/posts/libreboot_x200t
+        mv site/libreboot_x200t.html site/posts/libreboot_x200t/index.html
+        haunt serve

haunt.scm

@@ -123 +123 @@
              sxml->html))
 
+(define (redirect-dobryakov site posts)
+  (define body
+    `((article
+       (meta (@
+              (http-equiv "refresh")
+              (content "0; url=/григорий-добряков-об-устройстве-на-работу.html")))
+       (h2 "Перенаправляю...")
+       (p (a (@ (href "/григорий-добряков-об-устройстве-на-работу.html"))
+             "Нажмите если не перенаправилось"))
+       )))
+  
+  (make-page "dobryakov_employment.html"
+             (with-layout mini-theme site "Редирект" body)
+             sxml->html))
+
+(define (redirect-pirogov site posts)
+  (define body
+    `((article
+       (meta (@
+              (http-equiv "refresh")
+              (content "0; url=/алексей-пирогов-про-фп.html")))
+       (h2 "Перенаправляю...")
+       (p (a (@ (href "/алексей-пирогов-про-фп.html"))
+             "Нажмите если не перенаправилось"))
+       )))
+  
+  (make-page "pirogov_fp.html"
+             (with-layout mini-theme site "Редирект" body)
+             sxml->html))
+
+(define (redirect-libreboot site posts)
+  (define body
+    `((article
+       (meta (@
+              (http-equiv "refresh")
+              (content "0; url=/libreboot-x200t.html")))
+       (h2 "Перенаправляю...")
+       (p (a (@ (href "/libreboot-x200t.html"))
+             "Нажмите если не перенаправилось"))
+       )))
+  
+  (make-page "libreboot_x200t.html"
+             (with-layout mini-theme site "Редирект" body)
+             sxml->html))
+
 ;; TODO: Refactor book creating
 (define (make-book name sub cover) (0))
@@ -140 +185 @@
                       (h3 (@ (class "section")) "Пиши сокращай")
                       (p "Полезна для всех, кто публикует хоть что-нибудь в
-интернете. После прочтения стараюсь применять советы из книги на
-практике.")
-                      (p "Оценка: "
-                         (mark (@ (class "tertiary")) "Рекомендую"))
-                      )
-
-                 (p (@ (style "text-align: center;"))
-                    (a
-                     (@ (href "https://www.goodreads.com/book/show/31855502"))
-                     "Книга на Goodreads"))
-
-                 )))
+                      интернете. После прочтения стараюсь применять советы из книги на
+                      практике.")
+                      (p "Оценка: "
+                         (mark (@ (class "tertiary")) "Рекомендую"))
+                      )
+
+                 (p (@ (style "text-align: center;"))
+                 (a
+                  (@ (href "https://www.goodreads.com/book/show/31855502"))
+                  "Книга на Goodreads"))
+
+              )))
 
       ;; Learning GNU EMACS
@@ -282 +327 @@
                        about-page
                        bookshelf-page
+                       redirect-dobryakov
+                       redirect-pirogov
+                       redirect-libreboot
                        (static-directory "images")
                        (static-directory "css")