From f04581ddc80069e7daa1e9ca4eb567ad16b70c58 Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Mon, 15 Sep 2025 22:06:44 +0200 Subject: emacs: Add webpage contents --- .config/emacs/modules/mm-editing.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to '.config/emacs/modules') 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 @@ -299,6 +299,18 @@ surround with spaces." (defun mm-editing-add-elisp-quotes-pair () (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 -- cgit v1.2.3