~bzg/orgweb

6d8f75d82aec2ea710dc5aab97a2244eb46de402 — Ihor Radchenko 3 months ago e10405e
index.org (Project heartbeat): Handle situation when there are no recent news
1 files changed, 12 insertions(+), 10 deletions(-)

M index.org
M index.org => index.org +12 -10
@@ 179,15 179,17 @@ most featureful, there are many additional [[file:tools.org][tools]] that work w
           <<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))
      (or
       (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)
       "<No new features added to Org mode recently>"))
  #+end_src
- Announcements:
  #+include: "https://tracker.orgmode.org/news.org" :lines "1-6"


@@ 207,7 209,7 @@ most featureful, there are many additional [[file:tools.org][tools]] that work w
    	(when (and (stringp paragraph-text)
                       (string-equal-ignore-case paragraph-text "Org development:\n"))
              (org-element-extract item)))))
      (org-element-interpret-data all-news))
      (org-element-interpret-data (or all-news "<No recent news>")))
  #+end_src

* [[https://orgmode.org/worg/][Worg]], a /World/ of Org