hline

hline

[Emanuel Berg via Users list for the GNU Emacs text editor]

(defun hline (&optional char)
  (interactive "P")
  (let ((len (- (window-width) (current-column) 1))
        (c (or char ?-)) )
    (insert (make-string len c)) ))

(hline)------------------------------------------------------------------------
(hline 43)+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
M-x hline RET------------------------------------------------------------------
C-u 59 M-x hline RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: hline

[Jean Louis]

* Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2021-01-07 09:24]:
> (defun hline (&optional char)
>   (interactive "P")
>   (let ((len (- (window-width) (current-column) 1))
>         (c (or char ?-)) )
>     (insert (make-string len c)) ))

I can undertand and find it useful. But you should maybe think of
auto-fill-mode and fill-column, is it?

If fill-column is 70, should line really go over all the visible
window screen? As text does not.

Jean

Re: hline

[Emanuel Berg via Users list for the GNU Emacs text editor]

Jean Louis wrote:

>> (defun hline (&optional char)
>>   (interactive "P")
>>   (let ((len (- (window-width) (current-column) 1))
>>         (c (or char ?-)) )
>>     (insert (make-string len c)) ))
>
> I can undertand and find it useful. [...]

:)

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: hline

[Tim Visher]

On Thu, Jan 7, 2021 at 4:53 AM Jean Louis <bugs@gnu.support> wrote:

> * Emanuel Berg via Users list for the GNU Emacs text editor <
> help-gnu-emacs@gnu.org> [2021-01-07 09:24]:
> > (defun hline (&optional char)
> >   (interactive "P")
> >   (let ((len (- (window-width) (current-column) 1))
> >         (c (or char ?-)) )
> >     (insert (make-string len c)) ))
>
> I can undertand and find it useful. But you should maybe think of
> auto-fill-mode and fill-column, is it?
>
> If fill-column is 70, should line really go over all the visible
> window screen? As text does not.
>

I've done something similar to this that respected fill-column. I use it
quite a bit when writing software.

```
(defun header-comment (comment)
  "Insert a header COMMENT

A header comment is a line of comment characters fill-column
long, a line of 3 comment characters followed by a space then
COMMENT, and a line of comment characters fill-column long
again."
  (interactive "sComment: ")
  (let* ((comment-char (string-to-char comment-start))
         (wrapper (make-string fill-column comment-char))
         (comment-line (format "%s %s"
                               (make-string 3 comment-char)
                               comment)))
    (insert wrapper "\n" comment-line "\n" wrapper)))
```

Re: hline

[Marcin Borkowski]

On 2021-01-07, at 07:21, Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> wrote:

> (defun hline (&optional char)
>   (interactive "P")
>   (let ((len (- (window-width) (current-column) 1))
>         (c (or char ?-)) )
>     (insert (make-string len c)) ))

Funny how I wrote an almost identical function just two days ago...
Though I used (1- (window-width)), since in my use case I knew that
(current-column) would be zero.

Anybody knows why it is necessary to subtract 1?

Best,

--
Marcin Borkowski
http://mbork.pl

Re: hline

[Emanuel Berg via Users list for the GNU Emacs text editor]

Marcin Borkowski wrote:

>> (defun hline (&optional char)
>>   (interactive "P")
>>   (let ((len (- (window-width) (current-column) 1))
>>         (c (or char ?-)) )
>>     (insert (make-string len c)) ))
>
> Funny how I wrote an almost identical function just two days
> ago... Though I used (1- (window-width)), since in my use
> case I knew that (current-column) would be zero.
>
> Anybody knows why it is necessary to subtract 1?

Eh... "anybody"? ...

[74] column number 74
[X] you are here
* = you want to write the char here
$ = but not here
.. = etc

               *   *    *    *    $    ..
[01] ... [74] [X] [76] [77] [78] [79] [80]

so 4 chars.

compute:

(- 80 75 1) ; 4

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: hline

[Emanuel Berg via Users list for the GNU Emacs text editor]

>                *   *    *    *    $    ..
> [01] ... [74] [X] [76] [77] [78] [79] [80]

Oh, that should be [00] (not [01]), but it doesn't matter for
the above example. But the subtraction works there as well:

(- 80 0 1) ; 79, let's try `C-u 79 a' at [00]

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: hline

[Emanuel Berg via Users list for the GNU Emacs text editor]

Marcin Borkowski wrote:

>> (defun hline (&optional char)
>>   (interactive "P")
>>   (let ((len (- (window-width) (current-column) 1))
>>         (c (or char ?-)) )
>>     (insert (make-string len c)) ))
>
> Funny how I wrote an almost identical function just two days ago...
> Though I used (1- (window-width)), since in my use case I knew that
> (current-column) would be zero.
>
> Anybody knows why it is necessary to subtract 1?

:O

I don't understand why YOU ask this?

But for everyone else's information, it can be better
explained like this, I think, than the examples I just posted.

If we want to cover the distance between A to B on a line,
this distance is B - A. However B is reported not the       _
desired B but B + 1. So by subtracting 1 we get the real B |_|

:)

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal

Re: hline

[Jean Louis]

* Tim Visher <tim.visher@gmail.com> [2021-01-07 17:52]:
> On Thu, Jan 7, 2021 at 4:53 AM Jean Louis <bugs@gnu.support> wrote:
> 
> > * Emanuel Berg via Users list for the GNU Emacs text editor <
> > help-gnu-emacs@gnu.org> [2021-01-07 09:24]:
> > > (defun hline (&optional char)
> > >   (interactive "P")
> > >   (let ((len (- (window-width) (current-column) 1))
> > >         (c (or char ?-)) )
> > >     (insert (make-string len c)) ))
> >
> > I can undertand and find it useful. But you should maybe think of
> > auto-fill-mode and fill-column, is it?
> >
> > If fill-column is 70, should line really go over all the visible
> > window screen? As text does not.
> >
> 
> I've done something similar to this that respected fill-column. I use it
> quite a bit when writing software.
> 
> ```
(defun header-comment (comment)
  "Insert a header COMMENT

A header comment is a line of comment characters fill-column
long, a line of 3 comment characters followed by a space then
COMMENT, and a line of comment characters fill-column long
again."
  (interactive "sComment: ")
  (let* ((comment-char (string-to-char comment-start))
         (wrapper (make-string fill-column comment-char))
         (comment-line (format "%s %s"
                               (make-string 3 comment-char)
                               comment)))
    (insert wrapper "\n" comment-line "\n" wrapper)))

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>>> Something
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

My similar thing
================

(defun underline-text (text &optional no-newlines)
  "Asks for TEXT and returns it underlined. If optional
NEW-NEWLINES is true, it will not add new lines."
  (let* ((l (length text))
	 (newlines (if no-newlines "" "\n\n")))
    (format "%s\n%s%s" text
	    (with-output-to-string
	      (let ((count 0))
		(while (< count l)
		  (princ "=")
		  (setq count (1+ count)))))
	    newlines)))

(defun underline-text-interactive (text)
  "Underlines and insert text into buffer"
  (interactive "sText: ")
  (insert (underline-text text)))