diff options
| -rw-r--r-- | custom/jao-custom-eww.el | 7 | ||||
| -rw-r--r-- | 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)) @@ -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") |