~bzg/orgweb

7601e1f07f38cc975cd1b6e8d49ed8a6acdb7da4 — Ihor Radchenko 13 days ago b5664d8
index.org (Project heartbeat): Move down in the page

Some users find this section distracting.  Move it further down.
1 files changed, 62 insertions(+), 62 deletions(-)

M index.org
M index.org => index.org +62 -62
@@ 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