all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Eli Zaretskii <eliz@gnu.org>
To: Nick Helm <nick@tenpoint.co.nz>
Cc: emacs-devel@gnu.org
Subject: Re: mode-line size and position indicator
Date: Thu, 24 Aug 2017 19:55:41 +0300	[thread overview]
Message-ID: <83mv6o9a7m.fsf@gnu.org> (raw)
In-Reply-To: <m2bmn7ezr8.fsf@tenpoint.co.nz> (message from Nick Helm on Wed, 23 Aug 2017 15:20:27 +1200)

> From: Nick Helm <nick@tenpoint.co.nz>
> Date: Wed, 23 Aug 2017 15:20:27 +1200
> 
> I've been trying to improve my C skills lately, so I thought I'd take a
> crack at adding a small feature to xdisp.c.
> 
> I've written a simple mode-line indicator to visually show the relative
> size and position of the window view on the current buffer. It works by
> adding a new %-spec construct to decode_mode_spec.
> 
> The result is akin to a vertical scroll-bar, but it appears as a
> horizontal mark on the mode-line. It may be useful to terminal users or
> those who prefer to run with traditional scroll-bars turned off. I've
> attached a screen-grab of what it looks like on my system.
> 
> The indicator is activated by adding %N~ to mode-line-format, where N is
> a positive integer that sets the desired width of the indicator in char.
> 
> I'm under no illusions that this should be included in Emacs, and
> admittedly, it is a very simple feature, but I'd appreciate any
> comments or suggestions to improve the code. Patch attached.

Looks good, although there's a fundamental problem with putting on the
mode line an indicator that must use a significant part of the screen
estate to be useful: the mode line is pretty crowded these days, even
in the default configuration.

> +      /* Indicate the relative size and position of the current window. */ 
> +    case '~':
> +      {
> +	ptrdiff_t toppos = marker_position (w->start);
> +	ptrdiff_t botpos = BUF_Z (b) - w->window_end_pos;
> +	ptrdiff_t total = BUF_ZV (b) - BUF_BEGV (b) + 1;
> +	ptrdiff_t open;
> +	ptrdiff_t close;
> +	int i;
> +	char *p = decode_mode_spec_buf;
> +
> +	/* It makes little sense to pad with spaces, so use WIDTH to
> +	   enable the user to specify the size of the indicator. */
> +
> +	if (width < 3) width = 3; /* Set a minimum indicator size. */
> +	width -= 2; /* Reserve space for open and close marks. */
> +
> +	if (total >= 1000000)
> +	  /* Do it differently for a large value, to avoid overflow. */
> +	  {
> +	    open = ((toppos - BUF_BEGV (b)) + (total / width) - 1) / (total / width);
> +	    close = ((botpos - BUF_BEGV (b) + 1) + (total / width) - 1) / (total / width);
> +	  }
> +	else
> +	  {
> +	    open = ((toppos - BUF_BEGV (b)) * width + total - 1) / total;
> +	    close = ((botpos - BUF_BEGV (b) + 1) * width + total - 1) / total;
> +	  }

I wonder whether it would have made sense to reuse the code we have
for computing the scroll-bar thumb.

Also, why two different code fragments? why not use the former for
both small and large values of 'total'?



  reply	other threads:[~2017-08-24 16:55 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2017-08-23  3:20 mode-line size and position indicator Nick Helm
2017-08-24 16:55 ` Eli Zaretskii [this message]
2017-08-24 19:26   ` John Yates
2017-08-25  2:47     ` Richard Stallman
2017-08-25  9:57   ` Nick Helm
2017-08-25 12:36     ` Eli Zaretskii
2017-08-26  7:50       ` Nick Helm
  -- strict thread matches above, loose matches on Subject: below --
2017-08-24 21:02 mark M
2017-08-25  6:27 ` Eli Zaretskii

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=83mv6o9a7m.fsf@gnu.org \
    --to=eliz@gnu.org \
    --cc=emacs-devel@gnu.org \
    --cc=nick@tenpoint.co.nz \
    /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.