Changeset 1136777 for content

Timestamp:

May 11, 2022, 5:49:15 AM (3 years ago)

Author:

Mikhail Kirillov <w96k@…>

Branches:

master

Children:

5f1c100

Parents:

aaf50fc

Message:

Add translation article and update music.

Location:

content

Files:

• articles.org (modified) (2 diffs)
• cv.org (modified) (1 diff)
• music.org (modified) (1 diff)
• sitemap.org (modified) (1 diff)
• translations/history-of-programming-languages.org (added)

content/articles.org

@@ -27 +27 @@
     (concat "<ul>" (mapconcat 'make-links list-of-posts "\n") "</ul>")
   #+END_SRC
+
+* Переводы
+  #+BEGIN_SRC emacs-lisp :exports results :results html
+    (defun read-lines (filePath)
+      "Return a list of lines of a file at filePath."
+      (with-temp-buffer
+        (insert-file-contents filePath)
+        (split-string (buffer-string) "\n" t)))
+
+;; Sort by modified date
+(setq list-of-posts (sort (directory-files-and-attributes "./translations" nil ".org$")
+                          #'(lambda (x y) (time-less-p (nth 6 y) (nth 6 x)))))
+
+    (defun make-links (str)
+      (setq file-name (car str))
+      (setq str-link (s-replace ".org" ".html" file-name))
+      ;; We make an assumption, that #+TITLE is on first line
+      (setq article-title (s-replace "#+TITLE: " "" (car (read-lines (concat "translations/" file-name)))))
+      (concat "<li><a href=\"/translations/" str-link "\">" article-title "</a></li>"))
+
+    (concat "<ul>" (mapconcat 'make-links list-of-posts "\n") "</ul>")
+  #+END_SRC
   
 * Authors from RSS feed
@@ -37 +59 @@
           (org-webring-display-version 'nil)
           (org-webring-display-generation-time 'nil)
-          (org-webring-urls '("http://guix.trop.in/feeds/blog.atom"
+          (org-webring-urls '(;;"http://guix.trop.in/feeds/blog.atom"
                               "https://drewdevault.com/blog/index.xml"
                               "https://wingolog.org/feed/atom"

content/cv.org

@@ -14 +14 @@
     <div class="col-md" align="right" style="padding-top: 1em;">
       <mark style="background: #689f38 !important;">Available for hire</mark>
-      <p style="font-size: 1.3em;">€2000 — ∞</p>
+      <p style="font-size: 1.3em;">€2500 — ∞</p>
     </div>
   </div>

content/music.org

@@ -148 +148 @@
     <td>
       <audio controls>
-        <source src="/public/music/opus2.flac" type="audio/flac">
-          <p><a href="/public/music/opus2.flac">Opus 2</a></p>
+        <source src="/public/music/opus2.mp3" type="audio/flac">
+          <p><a href="/public/music/opus2.mp3">Opus 2</a></p>
       </audio>
       <p>Opus 2</p>

content/sitemap.org

@@ -18 +18 @@
   - [[file:posts/web.org][Свободное использование сети Интернет]]
   - [[file:posts/unix-distros.org][Unix-подобные дистрибутивы]]
+- translations
+  - [[file:translations/history-of-programming-languages.org][Мяу]]