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

M index.org

@@ 55,68 55,6 @@
 </div>
 #+end_export
 
-* Project heartbeat
-
-# Retrieve the latest Sacha Chua's Emacs News (Org mode section)
-#+name: get-sacha-news
-#+begin_src emacs-lisp :eval yes :exports none :results value
-  (let* ((org-text-buffer
-  	(url-retrieve-synchronously
-  	 "https://raw.githubusercontent.com/sachac/emacs-news/master/most-recent.org"))
-         (org-data
-  	(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)
-            (org-element-parse-buffer))))
-    (org-element-map org-data '(item)
-      (lambda (item)
-        (when-let ((contents (org-element-contents item))
-  		 (paragraph (car contents))
-                   (paragraph-text (car (org-element-contents paragraph))))
-          (when (and (stringp paragraph-text)
-  		   (string-equal-ignore-case paragraph-text "Org Mode:\n"))
-            (cdr contents))))
-      nil 'first-match))
-#+end_src
-
-- New features:
-  #+begin_src emacs-lisp :eval yes :exports results :results raw value :noweb yes
-    (let ((all-news
-           <<get-sacha-news>>
-           ))
-      ;; Keep only "Org development"
-      (org-element-map all-news '(item)
-        (lambda (item)
-          (when-let ((contents (org-element-contents item))
-    		 (paragraph (car contents))
-    		 (paragraph-text (car (org-element-contents paragraph))))
-    	(when (and (stringp paragraph-text)
-                       (string-equal-ignore-case paragraph-text "Org development:\n"))
-              (org-element-interpret-data (cdr contents)))))
-        nil 'first-match))
-  #+end_src
-- Announcements:
-  #+include: "https://tracker.orgmode.org/news.org" :lines "1-6"
-- Discussions:
-  #+include: "https://tracker.orgmode.org/requests.org" :lines "1-6"
-- Recent blog posts:
-  #+begin_src emacs-lisp :eval yes :exports results :results raw value :noweb yes
-    (let ((all-news
-           <<get-sacha-news>>
-           ))
-      ;; Keep all but "Org development"
-      (org-element-map all-news '(item)
-        (lambda (item)
-          (when-let ((contents (org-element-contents item))
-    		 (paragraph (car contents))
-    		 (paragraph-text (car (org-element-contents paragraph))))
-    	(when (and (stringp paragraph-text)
-                       (string-equal-ignore-case paragraph-text "Org development:\n"))
-              (org-element-extract item)))))
-      (org-element-interpret-data all-news))
-  #+end_src
-
 * Highlights
   :PROPERTIES:
   :HTML_CONTAINER_CLASS: columns no-heading


@@ 193,6 131,68 @@ most featureful, there are many additional [[file:tools.org][tools]] that work w
 [[file:tools.org][Tools that work with Org]]
 #+end_center
 
+* Project heartbeat
+
+# Retrieve the latest Sacha Chua's Emacs News (Org mode section)
+#+name: get-sacha-news
+#+begin_src emacs-lisp :eval yes :exports none :results value
+  (let* ((org-text-buffer
+  	(url-retrieve-synchronously
+  	 "https://raw.githubusercontent.com/sachac/emacs-news/master/most-recent.org"))
+         (org-data
+  	(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)
+            (org-element-parse-buffer))))
+    (org-element-map org-data '(item)
+      (lambda (item)
+        (when-let ((contents (org-element-contents item))
+  		 (paragraph (car contents))
+                   (paragraph-text (car (org-element-contents paragraph))))
+          (when (and (stringp paragraph-text)
+  		   (string-equal-ignore-case paragraph-text "Org Mode:\n"))
+            (cdr contents))))
+      nil 'first-match))
+#+end_src
+
+- New features:
+  #+begin_src emacs-lisp :eval yes :exports results :results raw value :noweb yes
+    (let ((all-news
+           <<get-sacha-news>>
+           ))
+      ;; Keep only "Org development"
+      (org-element-map all-news '(item)
+        (lambda (item)
+          (when-let ((contents (org-element-contents item))
+    		 (paragraph (car contents))
+    		 (paragraph-text (car (org-element-contents paragraph))))
+    	(when (and (stringp paragraph-text)
+                       (string-equal-ignore-case paragraph-text "Org development:\n"))
+              (org-element-interpret-data (cdr contents)))))
+        nil 'first-match))
+  #+end_src
+- Announcements:
+  #+include: "https://tracker.orgmode.org/news.org" :lines "1-6"
+- Discussions:
+  #+include: "https://tracker.orgmode.org/requests.org" :lines "1-6"
+- Recent blog posts:
+  #+begin_src emacs-lisp :eval yes :exports results :results raw value :noweb yes
+    (let ((all-news
+           <<get-sacha-news>>
+           ))
+      ;; Keep all but "Org development"
+      (org-element-map all-news '(item)
+        (lambda (item)
+          (when-let ((contents (org-element-contents item))
+    		 (paragraph (car contents))
+    		 (paragraph-text (car (org-element-contents paragraph))))
+    	(when (and (stringp paragraph-text)
+                       (string-equal-ignore-case paragraph-text "Org development:\n"))
+              (org-element-extract item)))))
+      (org-element-interpret-data all-news))
+  #+end_src
+
 * [[https://orgmode.org/worg/][Worg]], a /World/ of Org
   :PROPERTIES:
   :CUSTOM_ID: worg