emacs: Add webpage contents

1 files changed, 12 insertions, 0 deletions

diff --git a/.config/emacs/modules/mm-editing.el b/.config/emacs/modules/mm-editing.el
index 4c5e8be..8105fc2 100644
--- a/.config/emacs/modules/mm-editing.el
+++ b/.config/emacs/modules/mm-editing.el
@@ -300,6 +300,18 @@ surround with spaces."
               (push '("`" . "'") surround-pairs))))
 
 
+;;; Insert Webpage Contents
+
+(defun mm-insert-from-url (url)
+  "Insert the contents of URL at point."
+  (interactive
+   (let ((url-at-point (thing-at-point 'url)))
+     (list (read-string
+            (format-prompt "URL" url-at-point)
+            nil nil url-at-point))))
+  (call-process "curl" nil '(t nil) nil url))
+
+
 ;;; Emmet Mode
 
 (defun mm-editing-emmet-dwim (arg)