procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a eww command to toggle paragraph direction

Browse source 
* lisp/net/eww.el (eww-toggle-paragraph-direction): New
command and keystroke.

* doc/misc/eww.texi (Advanced): Mention the `D' command.
This commit is contained in:
Lars Ingebrigtsen 2016-02-28 14:52:56 +10:30
parent 4e46128131
commit b13cab683c
3 changed files with 24 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
doc/misc/eww.texi
View file

@ -206,6 +206,14 @@ For details about the Cookie handling @xref{Cookies,,,url}.
@code{eww-header-line-format}. The format replaces @code{%t} with the @code{eww-header-line-format}. The format replaces @code{%t} with the
title of the website and @code{%u} with the URL. title of the website and @code{%u} with the URL.
@findex eww-toggle-paragraph-direction
@cindex paragraph direction
The @kbd{D} command (@code{eww-toggle-paragraph-direction}) toggles
the paragraphs direction between left-to-right and right-to-left
text. This can be useful on web pages that display right-to-left test
(like Arabic and Hebrew), but where the web pages don't explicitly
state the directionality.
@c @vindex shr-bullet @c @vindex shr-bullet
@c @vindex shr-hr-line @c @vindex shr-hr-line
@c @vindex eww-form-checkbox-selected-symbol @c @vindex eww-form-checkbox-selected-symbol

4
etc/NEWS
View file

@ -709,6 +709,10 @@ customize the `shr-use-fonts' variable.
textual parts of a web page and display only that, leaving menus and textual parts of a web page and display only that, leaving menus and
the like off the page. the like off the page.
+++
*** A new command `D' (`eww-toggle-paragraph-direction') allows you to
toggle the paragraph direction between left-to-right and right-to-left.
--- ---
*** You can now use several eww buffers in parallel by renaming eww *** You can now use several eww buffers in parallel by renaming eww
buffers you want to keep separate. buffers you want to keep separate.

13
lisp/net/eww.el
View file

@ -607,6 +607,15 @@ Currently this means either text/html or application/xhtml+xml."
(html-mode)))) (html-mode))))
(view-buffer buf))) (view-buffer buf)))
(defun eww-toggle-paragraph-direction ()
"Toggle the paragraphs direction between left-to-right and right-to-left."
(interactive)
(setq bidi-paragraph-direction
(if (eq bidi-paragraph-direction 'left-to-right)
'right-to-left
'left-to-right))
(message "The paragraph direction is now %s" bidi-paragraph-direction))
(defun eww-readable () (defun eww-readable ()
"View the main \"readable\" parts of the current web page. "View the main \"readable\" parts of the current web page.
This command uses heuristics to find the parts of the web page that This command uses heuristics to find the parts of the web page that
@ -690,6 +699,7 @@ the like."
(define-key map "E" 'eww-set-character-encoding) (define-key map "E" 'eww-set-character-encoding)
(define-key map "S" 'eww-list-buffers) (define-key map "S" 'eww-list-buffers)
(define-key map "F" 'eww-toggle-fonts) (define-key map "F" 'eww-toggle-fonts)
(define-key map "D" 'eww-toggle-paragraph-direction)
(define-key map "b" 'eww-add-bookmark) (define-key map "b" 'eww-add-bookmark)
(define-key map "B" 'eww-list-bookmarks) (define-key map "B" 'eww-list-bookmarks)
@ -714,7 +724,8 @@ the like."
["Add bookmark" eww-add-bookmark t] ["Add bookmark" eww-add-bookmark t]
["List bookmarks" eww-list-bookmarks t] ["List bookmarks" eww-list-bookmarks t]
["List cookies" url-cookie-list t] ["List cookies" url-cookie-list t]
["Character Encoding" eww-set-character-encoding])) ["Character Encoding" eww-set-character-encoding]
["Toggle Paragraph Direction" eww-toggle-paragraph-direction]))
map)) map))
(defvar eww-tool-bar-map (defvar eww-tool-bar-map