(defun my-read-webpage-in-org-mode (url)
  (interactive "sEnter a url: ")
  (let* ((url (car (split-string url "#")))
         (fn (expand-file-name
              (concat (file-name-nondirectory url) ".org")
              "~/Downloads")))
    (shell-command (format "pandoc %s -o %s --columns=70" url fn))
    (with-current-buffer (find-file fn)
      (hl-line-mode)
      (text-scale-set 3))))