| 1 | #+TITLE: @w96k: Кириллов Михаил
|
|---|
| 2 | #+OPTIONS: toc:nil
|
|---|
| 3 | #+LANGUAGE: ru
|
|---|
| 4 |
|
|---|
| 5 | * Cтатьи
|
|---|
| 6 |
|
|---|
| 7 | #+BEGIN_SRC emacs-lisp :exports results :results html
|
|---|
| 8 | (defun read-lines (filePath)
|
|---|
| 9 | "Return a list of lines of a file at filePath."
|
|---|
| 10 | (with-temp-buffer
|
|---|
| 11 | (insert-file-contents filePath)
|
|---|
| 12 | (split-string (buffer-string) "\n" t)))
|
|---|
| 13 |
|
|---|
| 14 | ;; Sort by modified date
|
|---|
| 15 | (setq list-of-posts (sort (directory-files-and-attributes "./posts" nil ".org$")
|
|---|
| 16 | #'(lambda (x y) (time-less-p (nth 6 y) (nth 6 x)))))
|
|---|
| 17 |
|
|---|
| 18 | (defun make-links (str)
|
|---|
| 19 | (setq file-name (car str))
|
|---|
| 20 | (setq str-link (s-replace ".org" ".html" file-name))
|
|---|
| 21 | ;; We make an assumption, that #+TITLE is on first line
|
|---|
| 22 | (setq article-title (s-replace "#+TITLE: " "" (car (read-lines (concat "posts/" file-name)))))
|
|---|
| 23 | (concat "<li><a href=\"/posts/" str-link "\">" article-title "</a></li>"))
|
|---|
| 24 |
|
|---|
| 25 | (concat "<ul>" (mapconcat 'make-links list-of-posts "\n") "</ul>")
|
|---|
| 26 | #+END_SRC
|
|---|
| 27 |
|
|---|
| 28 | * Другие авторы
|
|---|
| 29 |
|
|---|
| 30 | #+BEGIN_SRC emacs-lisp :exports results :results html
|
|---|
| 31 | (let ((org-webring-items-total 4)
|
|---|
| 32 | (org-webring-items-per-source 1)
|
|---|
| 33 | (org-webring-header 'nil)
|
|---|
| 34 | (org-webring-summary-max-length 150)
|
|---|
| 35 | (org-webring-display-version 'nil)
|
|---|
| 36 | (org-webring-display-generation-time 'nil)
|
|---|
| 37 | (org-webring-urls '(;;"http://guix.gnu.org/feeds/blog.atom"
|
|---|
| 38 | "https://drewdevault.com/blog/index.xml"
|
|---|
| 39 | "https://wingolog.org/feed/atom"
|
|---|
| 40 | "https://dthompson.us/feed.xml"
|
|---|
| 41 | ;;"https://ambrevar.xyz/atom.xml"
|
|---|
| 42 | "https://stallman.org/rss/rss.xml")))
|
|---|
| 43 | (org-webring-generate-webring))
|
|---|
| 44 | #+END_SRC
|
|---|
| 45 |
|
|---|
| 46 | * Сообщества
|
|---|
| 47 | Я администрирую/модерирую несколько сообществ в Telegram
|
|---|
| 48 |
|
|---|
| 49 | | Название | Описание |
|
|---|
| 50 | |----------------------------+-------------------------------------------------------------------------------------------------|
|
|---|
| 51 | | [[https://t.me/gnu_ru][Группа GNU]] | Группа посвящена фонду свободного програмного обеспечения GNU и этике движения за свободное ПО. |
|
|---|
| 52 | | GNU Group (по приглашению) | Тоже самое, но на английском |
|
|---|
| 53 | | [[https://t.me/gnu_guix_ru][Russian Guix System]] | Полностью свободный функциональный пакетный менеджер и операционная система |
|
|---|
| 54 | | [[https://t.me/lisp_forever][Lisp Forever]] | Обсуждение Common Lisp и других языков семейства Lisp |
|
|---|
| 55 |
|
|---|
| 56 | Предвкушая вопрос о свободности Telegram:
|
|---|
| 57 | [[https://www.gnu.org/philosophy/network-services-arent-free-or-nonfree.html][Network Services Aren't Free or Nonfree; They Raise Other Issues]]
|
|---|
| 58 |
|
|---|
| 59 | * Пожертвования
|
|---|
| 60 | Я принимаю пожертвования через платформу Liberapay. Пожертвования
|
|---|
| 61 | финансируют мою работу над статьями и проектами.
|
|---|
| 62 | #+BEGIN_EXPORT html
|
|---|
| 63 | <a class="button" href="https://liberapay.com/w96k/donate">Donate</a>
|
|---|
| 64 | #+END_EXPORT
|
|---|
| 65 |
|
|---|
