From: Stephen Berman <stephen.berman@gmx.net>
To: emacs-devel@gnu.org
Subject: Re: word-wrap (visual-line) and indents
Date: Tue, 25 May 2010 21:39:15 +0200 [thread overview]
Message-ID: <87sk5fhiu4.fsf@escher.home> (raw)
In-Reply-To: jwv8w77x6ca.fsf-monnier+emacs@gnu.org
On Tue, 25 May 2010 13:05:08 -0400 Stefan Monnier <monnier@iro.umontreal.ca> wrote:
>> Speaking of word-wrapping, I thought now would be a good time to bring
>> up the missing feature of per-line indentation when word wrapping.
>> A recent conversation is quoted below, pointing out that word-wrap is
>> less than ideal when it comes to displaying e-mail (and the like).
>> A similar example would be org-mode, where you would begin a (buffer)
>> line with "- " or " - " and where word-wrap would, ideally,
>> recognize such indentations.
>
> The C code already has hooks that make such a thing possible:
> Just place a `wrap-prefix' property on the long-line which specify what
> prefix to use when wrapping the line.
>
> So all we need is a new minor-mode that uses jit-lock-register and then
> sets up this property using something like fill-context-prefix.
See <http://thread.gmane.org/gmane.emacs.devel/100184/focus=100375>.
You followed up with some suggestions, incorporated in the code below (I
had included the commented out lines, but you thought they should be
separate features). Maybe this could be the basis for such a minor
mode.
Steve Berman
(defun srb-adaptive-indent (beg end)
"Indent the region between BEG and END with adaptive filling."
(goto-char beg)
(while
(let ((lbp (line-beginning-position))
(lep (line-end-position)))
(put-text-property lbp lep 'wrap-prefix (fill-context-prefix lbp lep))
(search-forward "\n" end t))))
(define-minor-mode srb-adaptive-wrap-mode
"Wrap the buffer text with adaptive filling."
:lighter ""
(save-excursion
(save-restriction
(widen)
(let ((buffer-undo-list t)
(inhibit-read-only t)
(mod (buffer-modified-p)))
(if srb-adaptive-wrap-mode
(progn
;; (setq word-wrap t)
;; (unless (member '(continuation) fringe-indicator-alist)
;; (push '(continuation) fringe-indicator-alist))
(jit-lock-register 'srb-adaptive-indent))
(jit-lock-unregister 'srb-adaptive-indent)
(remove-text-properties (point-min) (point-max) '(wrap-prefix pref))
;; (setq fringe-indicator-alist
;; (delete '(continuation) fringe-indicator-alist))
;; (setq word-wrap nil))
(restore-buffer-modified-p mod))))))
prev parent reply other threads:[~2010-05-25 19:39 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-05-25 15:37 word-wrap (visual-line) and indents David Reitter
2010-05-25 16:30 ` Lennart Borgman
2010-05-25 17:29 ` David Reitter
2010-05-25 17:36 ` Lennart Borgman
2010-05-25 19:12 ` David Reitter
2010-05-25 21:34 ` Lennart Borgman
2010-05-25 17:05 ` Stefan Monnier
2010-05-25 19:39 ` Stephen Berman [this message]
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
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87sk5fhiu4.fsf@escher.home \
--to=stephen.berman@gmx.net \
--cc=emacs-devel@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 public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).