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