Re: Suggestion: A fringe indicator that shows the last/first line before scrolling

["David De La Harpe Golden" <david.delaharpe.golden@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1329 bytes --]

>  I wanted to hide the
>  fringe marks conditionally while they align with the real window-start
>  and window-end (they're not useful then),

Huh. Of course, what's an apparently viable workaround?  Another idle
timer! Yay!

Version 2 attached - made it a global minor mode.

Probably lots of issues, most major apart from previous mail's
"am I using fringes and overlays right" question:

really should use separate overlay for each window (maybe weak hash
table needed, or is there a way to hang things off windows I've
missed?), right now, only shows in current window, which is a pity
because it'd probably be particularly nice for scroll-other-window
situations.

nongui terminals and gui terminals without fringes, could use
alternate highlighting strategies I guess.

If you scroll fast, then what's fringe marked is of course not the
immediately preceding window position, but the one from when emacs was
last idle.  This is both desirable and undesirable, depending on
whether you consider a series of consecutive scroll commands as one
overall scroll operation or separate scroll operations, so not sure if
should be fixed, maybe a post-command-hook could be used so that
depending on user prefs, page-scrolling could fringe mark anew each
time while scroll-bar-scrolling only after the lag, or whatever makes
sense.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: show-old-window-pos.el --]
[-- Type: text/x-emacs-lisp; name=show-old-window-pos.el, Size: 2602 bytes --]

;;; show-old-window-pos.el --- Show old window position in buffer after changes.

;; Version: 2

(defgroup show-old-window-pos nil
  "Indicate the old window position for a bit when scrolling."
  :version "23.1"
  :group 'windows)

(defface show-old-window-pos-fringe 
  '((t (:foreground "cyan")))
  "Face for old window position fringe mark."
  :group 'show-old-window-pos
  :version "23.1")

(defcustom show-old-window-pos-linger-time 2
  "How long the fringe marks showing old window position should be visible for."
  :type 'integer
  :group 'show-old-window-pos
  :version "23.1")

(defvar show-old-window-pos-overlay nil)

(defun show-old-window-pos-overlay-update-pos ()
  (or show-old-window-pos-overlay
      (setq show-old-window-pos-overlay 
	    (make-overlay 
	     (window-start) 
	     (- (window-end) 1) 
	     (window-buffer))))
  (move-overlay show-old-window-pos-overlay
		(window-start)
		(- (window-end) 1)
		(window-buffer))
  (show-old-window-pos-overlay-showhide)
  (redisplay))

(defun show-old-window-pos-overlay-showhide ()
  (when show-old-window-pos-overlay
    (if (equal (window-start) (overlay-start show-old-window-pos-overlay))
	(overlay-put show-old-window-pos-overlay 'before-string nil)
      (overlay-put show-old-window-pos-overlay 'before-string 
		   (concat
		    (propertize "[" 'display 
				(list 'left-fringe 'top-left-angle 
				      'show-old-window-pos-fringe))
		    (propertize "[" 'display 
				(list 'right-fringe 'top-right-angle 
				      'show-old-window-pos-fringe)))))
    (if (equal (- (window-end) 1) (overlay-end show-old-window-pos-overlay))
	(overlay-put show-old-window-pos-overlay 'after-string nil)
      (overlay-put show-old-window-pos-overlay 'after-string 
		   (concat
		    (propertize "]" 'display 
				(list 'left-fringe 'bottom-left-angle 
				      'show-old-window-pos-fringe))
		    (propertize "]" 'display 
				(list 'right-fringe 
				      'bottom-right-angle
				      'show-old-window-pos-fringe)))))))

(define-minor-mode show-old-window-pos-mode
  "Toggle show-old-window-pos-mode"
  :global t
  :group 'show-old-window-pos
  :init-value nil
  (if show-old-window-pos-mode
      (progn
	(run-with-idle-timer 0 t 'show-old-window-pos-overlay-showhide)
	(run-with-idle-timer show-old-window-pos-linger-time
			     t 'show-old-window-pos-overlay-update-pos))
    (cancel-function-timers 'show-old-window-pos-overlay-showhide)
    (cancel-function-timers 'show-old-window-pos-overlay-update-pos)
    (and show-old-window-pos-overlay
	 (delete-overlay show-old-window-pos-overlay))))

(provide 'show-old-window-pos)