~bzg/orgweb

b5664d847a7c5ca59d6a8f649b250cece04c1b64 — Ihor Radchenko 13 days ago 29cbf1f
index.org (Project heartbeat): Make it more clear what the links are about

Some users expressed confusion about what the links presented in
"heartbeat" section are about.  Add more structure, clarifying what
are these links about.
1 files changed, 41 insertions(+), 5 deletions(-)

M index.org
M index.org => index.org +41 -5
@@ 57,10 57,9 @@

* Project heartbeat

#+include: "https://tracker.orgmode.org/news.org" :lines "1-6"
#+include: "https://tracker.orgmode.org/requests.org" :lines "1-6"

#+begin_src emacs-lisp :eval yes :exports results :results raw value
# 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"))


@@ 77,10 76,47 @@
                   (paragraph-text (car (org-element-contents paragraph))))
          (when (and (stringp paragraph-text)
  		   (string-equal-ignore-case paragraph-text "Org Mode:\n"))
            (org-element-interpret-data (cdr contents)))))
            (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