Re: inserting comment headings

[Sean Richards]

Brad Collins <brad@studiojungle.net> writes:

> Okay teacher -- here is my homework :)
>
> I'm just a beginner as well, but this seems to work...  Is there a
> better way to do this?
>
> (defun insert-comment-heading (comment)
>   "Insert COMMENT, followed by \" ---...\".  The line will be
>   commented based on which mode you are in." 
>   (interactive "sComment: ")
>   (insert  comment " " (make-string (- (window-width)
>                                              (+ (length comment) 5)
>                                              10)
>                                           ?-))
>   (previous-line 1)
>   (let ((line-start (point)))
>     (forward-paragraph 1)
>     (when comment-start
>       (comment-region line-start (point))))
>   (newline))

Well I'm pretty green with elisp as well but I think it is a bit nicer
to solve the problem as shown below ....

--8<----------------------------------------------------------------------

(defun insert-comment-heading (comment)
  "Insert COMMENT, followed by \" ---...\".  The line will be
  commented based on which mode you are in." 
  (interactive "sComment: ")
  (insert  comment " " (make-string (- (window-width)
                                       (+ (length comment) 5)
                                       10)
                                    ?-))
  (comment-region (point-at-bol) (point-at-eol)))  
  (newline))

--8<----------------------------------------------------------------------

Sean

-- 
"Hver sin smak", sa vintapperen, han drakk mens de andre sloss.