1 files changed, 18 insertions(+), 1 deletions(-)

M index.org

@@ 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>>