tec
/
lexic
1
0
Fork 0
Code Issues 10 Pull Requests 1 Releases Activity

Join together excessive spaces in Lewis 1890

This commit is contained in:
Yoav Marco 2020-12-21 22:08:14 +02:00
parent dd126b257d
commit b8e08ece6c
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lexic.el
View File

@ -2150,8 +2150,18 @@ https://nikita-moor.github.io/dictionaries/dictionaries.html"
(let* ((info (plist-get entry :info))
(lexic--dict (plist-get entry :dict))
(lexic--seen-sense-already nil)
(formatted
(pcase lexic--dict
;; Lewis (1890) has excessive spacing issues
("An Elementary Latin Dictionary, Lewis (1890)"
(replace-regexp-in-string " \\{2,\\}" " " info))
;; Not sure how much of a problem this formatting is with Lewis & Short,
;; lets keep it commented for now
;; ("A Latin Dictionary, Lewis & Short (1879)"
;; (replace-regexp-in-string "\\(^ *[A-Z]. \\) " " \\1" formatted))
))
(root-node (with-temp-buffer
(insert info)
(insert formatted)
(libxml-parse-html-region (point-min) (point-max)))))
(with-temp-buffer
(lexic-format-latin-xml root-node)