~bzg/orgweb

e10405e3e1d1e08bd237726146583ac7315a9155 — Ihor Radchenko 12 days ago 7601e1f master
index.org (Project heartbeat): Display the Sacha Chua's news date
1 files changed, 18 insertions(+), 1 deletions(-)

M index.org
M index.org => index.org +18 -1
@@ 156,6 156,23 @@ most featureful, there are many additional [[file:tools.org][tools]] that work w
      nil 'first-match))
#+end_src

#+name: get-sacha-news-date
  #+begin_src emacs-lisp :eval yes :exports none :results raw value
  (let ((org-text-buffer
         (url-retrieve-synchronously
  	"https://raw.githubusercontent.com/sachac/emacs-news/master/most-recent.org")))
    (with-current-buffer org-text-buffer
      ;; https://sachachua.com/blog/2024/05/emacs-url-retrieve-synchronously-and-set-buffer-multibyte/
      (set-buffer-multibyte t)
      (org-mode)
      (goto-char (point-min))
      (search-forward "#+TITLE:")
      (let ((keyword (org-element-at-point)))
        (when (equal "TITLE" (org-element-property :key keyword))
  	(format " (from [[https://sachachua.com/blog/category/emacs-news/][%s]])"
  		(org-element-property :value keyword))))))
  #+end_src

- New features:
  #+begin_src emacs-lisp :eval yes :exports results :results raw value :noweb yes
    (let ((all-news


@@ 176,7 193,7 @@ most featureful, there are many additional [[file:tools.org][tools]] that work w
  #+include: "https://tracker.orgmode.org/news.org" :lines "1-6"
- Discussions:
  #+include: "https://tracker.orgmode.org/requests.org" :lines "1-6"
- Recent blog posts:
- Recent blog posts call_get-sacha-news-date()[:exports results :eval yes]:
  #+begin_src emacs-lisp :eval yes :exports results :results raw value :noweb yes
    (let ((all-news
           <<get-sacha-news>>