reports/tools.el - diff

Return to tools.el CVS log

Up to [Local Repository] / reports

-version 1.1, 2004/01/18 06:07:58
+version 1.7, 2016/08/23 04:03:28
  Line 5
    (end-of-line)
    (while (> num (- (line-end-position) (line-beginning-position)))
      (insert " "))
-   (next-line 1)
    (beginning-of-line))
+ (defun convert-utf-to-html-entites  ()
+   "Convert utf entities to html"
+   (interactive)
+   (save-excursion
+     (setq case-fold-search nil)
+     (beginning-of-buffer)
+     (while (search-forward "«" nil t)
+     (replace-match "&laquo;" nil t))
+     (while (search-forward "»" nil t)
+     (replace-match "&raquo;" nil t))
+     (while (search-forward "–" nil t)
+     (replace-match "&ndash;" nil t))
+     (while (search-forward "Є" nil t) ; YE
+     (replace-match "&#x404;" nil t))
+     (beginning-of-buffer)
+     (while (search-forward "і" nil t) ; i
+     (replace-match "&#1110;" nil t))
+     (beginning-of-buffer)
+     (while (search-forward "ї" nil t) ; yi
+     (replace-match "&#1111;" nil t))
+     (beginning-of-buffer)
+     (while (search-forward "І" nil t) ; yi
+     (replace-match "&#x406;" nil t))
+   ))