Re: New to elisp, learning by doing

[Kevin Rodgers]

John Rabkin wrote:

>  (defun html-yank-header ()
>   "Copies and yanks HTML headers"
>   (interactive)
>   (save-excursion
>     (setq start_p (- (re-search-forward "\<h[12345]*\>") 4)) 
>     (setq end_p (re-search-forward "\<\/h[12345]\>")) 
>     (copy-region-as-kill start_p end_p)
>     )
>   (yank)
>   )


I would avoid using the kill ring, and instead use `buffer-substring' to
get the header text and insert to `insert' in the buffer.

I would also be a little more careful with the regexps used to match the start
and end tags:

(let ((case-fold-search t)
      beg end level)
  (while (re-search-forward "<h\\([1-5]\\)[^>]*>" nil t)
    (setq beg (match-beginning 0)
          level (string-to-int (match-string 1))
          end (re-search-forward (format "</h%d>" level) nil t))a
    (save-excursion
      (goto-char ...);; where the header should be inserted
      (insert (buffer-substring beg end) "\n"))))


--
<a href="mailto:&lt;kevin.rodgers&#64;ihs.com&gt;";>Kevin Rodgers</a>