diff options
| author | jao <jao@gnu.org> | 2026-08-25 21:11:27 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-08-25 21:11:27 +0100 |
| commit | ca31697cc95491c19ff257c29bdab3b88d043b09 (patch) | |
| tree | bc14b9744c783dd1121b36ffadf21e3d7dc0bb7a /custom/jao-custom-eww.el | |
| parent | dba7a443d0edb88869c4df70622543a465cf9304 (diff) | |
| download | elibs-ca31697cc95491c19ff257c29bdab3b88d043b09.tar.gz elibs-ca31697cc95491c19ff257c29bdab3b88d043b09.tar.bz2 | |
emacs 31main
Diffstat (limited to 'custom/jao-custom-eww.el')
| -rw-r--r-- | custom/jao-custom-eww.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el index 6f64cd3..a71d704 100644 --- a/custom/jao-custom-eww.el +++ b/custom/jao-custom-eww.el @@ -37,7 +37,7 @@ ;;; opening URLs (defun jao-eww-copy-link () (interactive) - (when-let (lnk (or (car (eww-links-at-point)) (eww-current-url))) + (when-let* ((lnk (or (car (eww-links-at-point)) (eww-current-url)))) (message "%s" lnk) (kill-new lnk))) @@ -88,7 +88,7 @@ ;;; images (defun jao-eww-next-image () (interactive nil eww-mode) - (when-let (p (text-property-search-forward 'image-displayer nil nil t)) + (when-let* ((p (text-property-search-forward 'image-displayer nil nil t))) (goto-char (prop-match-beginning p)))) ;;; close page and reopen @@ -96,7 +96,7 @@ (defun jao-eww-close () (interactive nil eww-mode) - (when-let (current (eww-current-url)) + (when-let* ((current (eww-current-url))) (add-to-list 'jao-eww--closed-urls current)) (let ((nxt (car (jao-eww-session-invisible-buffers)))) (kill-current-buffer) @@ -198,8 +198,8 @@ (with-eval-after-load "org" (require 'ol-eww nil t)) (defun jao-eww-buffer-name () - (when-let ((s (or (plist-get eww-data :title) - (plist-get eww-data :url)))) + (when-let* ((s (or (plist-get eww-data :title) + (plist-get eww-data :url)))) (when (not (string-blank-p s)) (format "%s" s)))) (setq eww-auto-rename-buffer #'jao-eww-buffer-name) |