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 ++++--- init.el | 7 ++++--- 2 files changed, 8 insertions(+), 6 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)) diff --git a/init.el b/init.el index e1b27ce..4f54b41 100644 --- a/init.el +++ b/init.el @@ -2196,9 +2196,10 @@ (defun jao-org--set-geiser-impl () (setq-local geiser-repl--impl 'guile)) (add-hook 'org-mode-hook #'jao-org--set-geiser-impl) -;; (jao-load-path "geiser") +(jao-load-path "geiser") ;; (package-vc-install-from-checkout ...) (use-package geiser + :demand t :init (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history" geiser-repl-startup-time 20000 @@ -2208,10 +2209,10 @@ (dolist (m '(geiser-repl-mode geiser-doc-mode geiser-debug-mode)) (jao-define-attached-buffer `(major-mode . ,m) 0.4))) -;; (jao-load-path "geiser-guile") +(jao-load-path "geiser-guile") (use-package geiser-guile) -;; (jao-load-path "geiser-chez") +(jao-load-path "geiser-chez") (use-package geiser-chez) ;; (jao-load-path "geiser/mit") -- cgit v1.2.3