Return to tools.el CVS log

Up to [Local Repository] / reports

Annotation of reports/tools.el, revision 1.4

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))
        !            19:     (while (search-forward "Є" nil t) ; YE
        !            20:     (replace-match "&#x404;" nil t))
        !            21:     (beginning-of-buffer)
        !            22:     (while (search-forward "і" nil t) ; i
        !            23:     (replace-match "&#1110;" nil t))
        !            24:     (beginning-of-buffer)
        !            25:     (while (search-forward "ї" nil t) ; yi
        !            26:     (replace-match "&#1111;" nil t))
        !            27:   ))