ELisp function to send the URL under the cursor to Pocket for reading later (uses msmtp)

send-to-pocket.el

(require 'url-util)
  (defun hjst/send-to-pocket ()
    "Send the URL at point to Pocket for reading later"
    (interactive)
    (let
        ((url (url-get-url-at-point)))
      (start-process-shell-command "msmtp" "*send-to-pocket*"
                                   (concat "printf 'Add:\n%s\n'"
                                           url
                                           "| msmtp add@getpocket.com"))
      (with-current-buffer "*send-to-pocket*"
        (save-excursion
          (goto-char (point-max))
          (insert (concat "Adding: " url))))
      (message "Sent to Pocket")))