howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Scroll by paragraphs in EWW

Browse source 
I often highlight the paragraph I'm reading in Firefox, but this is
even better.
This commit is contained in:
Howard Abrams 2024-05-19 09:29:27 -07:00
parent 7a8b510b34
commit d64f8d37cc
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ha-applications.org
View file

@ -408,6 +408,13 @@ Web pages look pretty good with EWW, but I'm having difficulty getting it to ren
(interactive (list (read-string "Name: " (plist-get eww-data :title)))) (interactive (list (read-string "Name: " (plist-get eww-data :title))))
(rename-buffer (format "*eww: %s*" name) t)) (rename-buffer (format "*eww: %s*" name) t))
(defun ha-eww-better-scroll (prefix)
(interactive "^p")
(forward-paragraph prefix)
;; (recenter) ... if you want the cursor in the center,
;; otherwise, this puts the paragraph at the top of window:
(recenter-top-bottom 0))
(major-mode-hydra-define eww-mode nil (major-mode-hydra-define eww-mode nil
("Browser" ("Browser"
(("G" eww-browse "Browse") (("G" eww-browse "Browse")
@ -441,7 +448,8 @@ Web pages look pretty good with EWW, but I'm having difficulty getting it to ren
:general :general
(:states 'normal :keymaps 'eww-mode-map (:states 'normal :keymaps 'eww-mode-map
"q" 'bury-buffer) "q" 'bury-buffer
"J" 'ha-eww-better-scroll)
(:states 'normal :keymaps 'eww-buffers-mode-map (:states 'normal :keymaps 'eww-buffers-mode-map
"q" 'bury-buffer)) "q" 'bury-buffer))
#+end_src #+end_src