From: Tim Visher <tim.visher@gmail.com>
To: emacs <help-gnu-emacs@gnu.org>
Subject: Re: hline
Date: Thu, 7 Jan 2021 09:51:05 -0500 [thread overview]
Message-ID: <CAHa53uw3Q9zBW1Gym3wL1g5KDQ0r2W4uF3c2fZauXvs9r7ty9g@mail.gmail.com> (raw)
In-Reply-To: <X/bZHAQBVqs+gN2b@protected.rcdrun.com>
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)))
```
next prev parent reply other threads:[~2021-01-07 14:51 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-01-07 6:21 hline Emanuel Berg via Users list for the GNU Emacs text editor
2021-01-07 9:49 ` hline Jean Louis
2021-01-07 10:05 ` hline Emanuel Berg via Users list for the GNU Emacs text editor
2021-01-07 14:51 ` Tim Visher [this message]
2021-01-08 1:00 ` hline Jean Louis
2021-01-07 15:23 ` hline Marcin Borkowski
2021-01-07 22:44 ` hline Emanuel Berg via Users list for the GNU Emacs text editor
2021-01-07 22:57 ` hline Emanuel Berg via Users list for the GNU Emacs text editor
2021-01-07 23:08 ` hline Emanuel Berg via Users list for the GNU Emacs text editor
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CAHa53uw3Q9zBW1Gym3wL1g5KDQ0r2W4uF3c2fZauXvs9r7ty9g@mail.gmail.com \
--to=tim.visher@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.