How To Take Smart Notes With Org-mode

Jethro Kuan
https://blog.jethro.dev/posts/how_to_take_smart_notes_org/
https://github.com/jethrokuan/org-roam

emacs #orgmode

#!/usr/bin/emacs --script

(require 'dom)

(defun corona ()
  (with-current-buffer (url-retrieve-synchronously "https://www.worldometers.info/coronavirus/" t)
    (goto-char url-http-end-of-headers)
    (setq cur-dom (libxml-parse-html-region (point) (point-max)))
    (setq texts (dom-texts cur-dom))
    (string-match "Coronavirus Cases: +\\([0-9,]+\\)" texts)
    (setq cases (match-string 1 texts))
    (string-match "Deaths: +\\([0-9,]+\\)" texts)
    (setq deaths (match-string 1 texts))
    (princ (format "%s / %s" deaths cases))))

(corona)