Add more cat pictures, add poem

diff --git a/assets/cat/cat6.jpg b/assets/cat/cat6.jpg
new file mode 100644 (file)
index 0000000..fd4076e
Binary files /dev/null and b/assets/cat/cat6.jpg differ

diff --git a/assets/cat/cat7.jpg b/assets/cat/cat7.jpg
new file mode 100644 (file)
index 0000000..5a08758
Binary files /dev/null and b/assets/cat/cat7.jpg differ

diff --git a/assets/main.css b/assets/main.css
index 5edc5c8eb50ee2aaf5a5977f2cfa46d099f632f5..aa3158ab27f95c29885c2cda4b9c04fcb17b06ee 100644 (file)
--- a/assets/main.css
+++ b/assets/main.css
@@ -146,6 +146,20 @@ video {
 .one-blockquote > p:last-child {
   text-align: right;
   margin-bottom: 0;
+  font-style: italic;
+}
+
+.poem1 > p:nth-child(1) {
+  margin-left: 10em;
+}
+
+.poem1 > p:nth-child(2) {
+  text-align: center;
+}
+
+.poem1 > p:nth-child(3) {
+  text-align: right;
+  margin-right: 10em;
 }
 
 .one-hl-results {

diff --git a/onerc.el b/onerc.el
index cf1dd00252cc621f69f59f1e215ebd8f7c804ba3..614848d81aad177a16432b6613426d542825c9bc 100644 (file)
--- a/onerc.el
+++ b/onerc.el
@@ -1,7 +1,8 @@
 ;; -*- lexical-binding: t; -*-
 (org-export-define-derived-backend 'shtarkov.net-ox 'one-ox
   :translate-alist
-  '((link . shtarkov.net-link)))
+  '((quote-block . shtarkov.net-quote-block)
+    (link . shtarkov.net-link)))
 
 (defun shtarkov.net-head (title)
   (let ((x 1))
@@ -111,6 +112,14 @@
          ,content))
        ,shtarkov.net-footer))))
 
+(defun shtarkov.net-quote-block (quote-block contents _info)
+  "Transcode a QUOTE-BLOCK element from Org to HTML.
+
+CONTENTS holds the contents of the block."
+  (let ((style-class
+         (org-export-read-attribute :attr_html quote-block :poem-style)))
+    (format "<blockquote class=\"one-blockquote %s\">%s</blockquote>" style-class contents)))
+
 (defun shtarkov.net-link (link desc info)
   "Transcode a LINK object from Org to HTML.
 DESC is the description part of the link, or the empty string.

diff --git a/shtarkov.net.org b/shtarkov.net.org
index e01fb7e1c7bd9d2d87591eb6a6ab085bf4bbf6f7..acc1513f6f799d4df42afeb6d47f641e3807b5df 100644 (file)
--- a/shtarkov.net.org
+++ b/shtarkov.net.org
@@ -18,6 +18,25 @@
 :custom_id: /cat/
 :end:
 
+#+attr_html: :poem-style poem1
+#+begin_quote
+I'm a cat.
+
+What a wonderful existence!
+
+Meow, meow.
+
+Nezumi
+#+end_quote
+
+[[file:assets/cat/cat7.jpg]]
+[[file:assets/cat/cat1.jpg]]
+[[file:assets/cat/cat2.jpg]]
+[[file:assets/cat/cat4.jpg]]
+[[file:assets/cat/cat3.jpg]]
+[[file:assets/cat/cat6.jpg]]
+[[file:assets/cat/cat5.jpg]]
+
 #+begin_quote
 A good movie is precisely the one in which the camera disappears, when
 we are no longer aware of watching a movie, while an avant-garde film
@@ -32,12 +51,6 @@ sense, the cat is avant-garde, it is more interested in the medium
 Julio Cabrera
 #+end_quote
 
-[[file:assets/cat/cat1.jpg]]
-[[file:assets/cat/cat2.jpg]]
-[[file:assets/cat/cat3.jpg]]
-[[file:assets/cat/cat4.jpg]]
-[[file:assets/cat/cat5.jpg]]
-
 * Transpose regions
 :properties:
 :one: shtarkov.net-article