Return to tools.el CVS log

Up to [Local Repository] / reports

Annotation of reports/tools.el, revision 1.5

1.1       boris       1: (defun add-spaces (&optional num)
                      2:   "Add spaces until the line has num spaces"
                      3:   (interactive "p")
                      4:   (if (<= num 1) (setq num 70))
                      5:   (end-of-line)
                      6:   (while (> num (- (line-end-position) (line-beginning-position)))
                      7:     (insert " "))
                      8:   (beginning-of-line))
1.3       boris       9: 
1.4       boris      10: (defun convert-utf-to-html-entites  ()
                     11:   "Convert utf entities to html"
                     12:   (interactive)
                     13:   (save-excursion
                     14:     (beginning-of-buffer)
                     15:     (while (search-forward "«" nil t)
                     16:     (replace-match "&laquo;" nil t))
                     17:     (while (search-forward "»" nil t) 
                     18:     (replace-match "&raquo;" nil t))
1.5     ! boris      19:     (while (search-forward "–" nil t) 
        !            20:     (replace-match "&ndash;" nil t))
1.4       boris      21:     (while (search-forward "Є" nil t) ; YE
                     22:     (replace-match "&#x404;" nil t))
                     23:     (beginning-of-buffer)
                     24:     (while (search-forward "і" nil t) ; i
                     25:     (replace-match "&#1110;" nil t))
                     26:     (beginning-of-buffer)
                     27:     (while (search-forward "ї" nil t) ; yi
                     28:     (replace-match "&#1111;" nil t))
                     29:   ))