(defun add-spaces (&optional num)
  "Add spaces until the line has num spaces"
  (interactive "p")
  (if (<= num 1) (setq num 70))
  (end-of-line)
  (while (> num (- (line-end-position) (line-beginning-position)))
    (insert " "))
  (beginning-of-line))

(defun convert-utf-to-html-entites  ()
  "Convert utf entities to html"
  (interactive)
  (save-excursion
    (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) ; 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))
  ))