From 3dd82d7501a28c1ac6cebb9a2fc14399413b5c40 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 1 Mar 2016 11:19:52 +1100
Subject: [PATCH] Support <bdo> and <bdi>

* lisp/net/shr.el (shr-tag-bdo): New function.
(shr-tag-bdi): Ditto.
---
 lisp/net/shr.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index ab04b9a065a..c469e699ae8 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1681,6 +1681,24 @@ The preference is a float determined from `shr-prefer-media-type'."
       (shr-colorize-region start (point) color
 			   (cdr (assq 'background-color shr-stylesheet))))))
 
+(defun shr-tag-bdo (dom)
+  (let* ((direction (dom-attr dom 'dir))
+         (char (cond
+                ((equal direction "ltr")
+                 #x202d)                ; LRO
+                ((equal direction "rtl")
+                 #x202e))))             ; RLO
+    (when char
+      (insert char))
+    (shr-generic dom)
+    (when char
+      (insert #x202c))))                ; PDF
+
+(defun shr-tag-bdi (dom)
+  (insert #x2068)                       ; FSI
+  (shr-generic dom)
+  (insert #x2069))                      ; PDI
+
 ;;; Table rendering algorithm.
 
 ;; Table rendering is the only complicated thing here.  We do this by
-- 
2.39.5