Create amp-image shortcode by emacs shortcut

insertAmpImage.elisp

  (defun insertAmpImage ()
    (interactive)
    (
     let ((url (read-string "Enter url:")))
     (message "detecting")
     (insert
      (apply 'format
             (append
              '("
#+begin_export html
{{%%amp-image layout=\"responsive\" src=%S alt=\"\" width=%S height=%S %%}}
#+end_export")
              (append
               (list url)
               (split-string (shell-command-to-string (concat "identify -ping -format '%w %h' " url)))
               )
              )
             )
      )
     (message "Done")
     )
    )