longman: BOOKFILM style

Fix #18
condy0919 · Dec 11, 2021 · c328cdd · c328cdd
1 parent ec4e28a
commit c328cdd
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/fanyi-longman.el b/fanyi-longman.el
@@ -311,6 +311,8 @@ Typically it can be a list of strings or \"riched\" strings."))
                                                                                                       (list (dom-texts node "") 'button (dom-texts node "")))
                                                                                                      ((dom-by-class node "REFHWD")
                                                                                                       (list (dom-texts node "") 'face 'italic))
+                                                                                                     ((dom-by-class node "BOOKFILM")
+                                                                                                      (dom-texts node ""))
                                                                                                      (t (user-error "Unimplemented. %s" (pp-to-string node)))))
                                                                                         (_ (user-error "Unimplemented. %s" (pp-to-string node)))))
                                                                                     (dom-children (dom-by-class sense "^\\(DEF\\)$"))))
@@ -517,6 +519,8 @@ before calling this method."
      (insert " ")
      (insert (oref this :etymon)))
    ;; The end.
+   (while (equal (char-before) ?\n)
+     (delete-char -1))
    (insert "\n\n")))
 
 ;; The Longman dict specific font-lock keywords