Re: title function for boxquote

[sigurd@12move.de (Karl Pflästerer)]

On 30 Jan 2005, sluque@mun.ca wrote:

> This should be simple, but I'm flailing badly here. I'm trying to put a title
> to a boxquote that has been yanked from a region killed with
> boxquote-kill-ring-save. Something that looks like:
>
> file name [Lines: such -- such]
>
> So I came up with this, but it doesn't work:
>
> (defun my-title-function (from to)
>    "Provide a phrase for boxquote-kill-ring-save-title."
>    (interactive "r")
>    (save-restriction
>      (widen)
>      (let ((first-line (count-lines (point-min) (from)))
                                                  ^^^^^^
>  	  (last-line (count-lines (point-min) (to))))
                                              ^^^^
>      (concat buffer-name "[Lines: " first-line " -- " last-line "]"))))
               ^^^^^^^^^^

`from' and `to' are variables but you used them like functions.  
Furthermore you write it as an interactive function but that function
should get called from `boxquote-kill-ring-save'; on the other hand
`buffer-name' is a function not a variable.

So it could be like that:

(defun my-title-function ()
  (save-restriction
    (widen)
    (format "%s [Lines: %s --- %s]" 
            (buffer-name)
            (line-number-at-pos (region-beginning))
            (line-number-at-pos (region-end)))))

Or you forget about the name and write:

(setq boxquote-kill-ring-save-title
        (lambda ()
          (save-restriction
            (widen)
            (format "%s [Lines: %s --- %s]" 
                    (buffer-name)
                    (line-number-at-pos (region-beginning))
                    (line-number-at-pos (region-end))))))



   KP