diff options
author | jao <jao@gnu.org> | 2024-12-09 11:12:14 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2024-12-09 11:12:14 +0000 |
commit | 506e4641cb7258b395bff409bf501e000bdd1960 (patch) | |
tree | 85645cf05c0486ce42f00130eb9c669e757b4cfb /custom | |
parent | c84eda285049c8878edeeb41b752f99f3eb75b14 (diff) | |
download | elibs-506e4641cb7258b395bff409bf501e000bdd1960.tar.gz elibs-506e4641cb7258b395bff409bf501e000bdd1960.tar.bz2 |
nits
Diffstat (limited to 'custom')
-rw-r--r-- | custom/jao-custom-eww.el | 7 |
1 files changed, 4 insertions, 3 deletions
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)) |