From 506e4641cb7258b395bff409bf501e000bdd1960 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 9 Dec 2024 11:12:14 +0000 Subject: nits --- custom/jao-custom-eww.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'custom/jao-custom-eww.el') diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el index 6a2e8e2..1b766c9 100644 --- a/custom/jao-custom-eww.el +++ b/custom/jao-custom-eww.el @@ -116,10 +116,11 @@ ;;; eww to org (defun jao-eww-to-org (&optional dest) - (interactive) - (unless (org-region-active-p) + (interactive "P") + (unless (or (and (interactive-p) dest) (org-region-active-p)) (let ((shr-width 80)) (eww-readable))) - (let* ((start (if (org-region-active-p) (region-beginning) (point-min))) + (let* ((dest (unless (interactive-p) dest)) + (start (if (org-region-active-p) (region-beginning) (point-min))) (end (if (org-region-active-p) (region-end) (point-max))) (link (eww-current-url)) (title (plist-get eww-data :title)) -- cgit v1.2.3