From: Tassilo Horn <tassilo@member.fsf.org>
To: Juri Linkov <juri@jurta.org>
Cc: 4896@emacsbugs.donarmstrong.com,
Stefan Monnier <monnier@IRO.UMontreal.CA>
Subject: bug#4896: DocView: Continuous mode
Date: Mon, 23 Nov 2009 12:07:56 +0100 [thread overview]
Message-ID: <87my2dlcs3.fsf@thinkpad.tsdh.de> (raw)
In-Reply-To: <87r5rpindl.fsf@mail.jurta.org> (Juri Linkov's message of "Mon, 23 Nov 2009 11:47:18 +0200")
Juri Linkov <juri@jurta.org> writes:
Hi Juri,
> The following patch adds a new variable `doc-view-continuous-mode' and
> uses it in two new commands `doc-view-next-line-or-next-page' and
> `doc-view-previous-line-or-previous-page'.
Looks good to me, except that I have the feeling that this whole "check
if scolling happened" thingy could be refactored into its own functions
and used from doc-view-scroll-up-or-next-page and
doc-view-next-line-or-next-page (and the other two).
> However, I still have no idea how make the mouse-wheel to jump to the
> next/previous page depending on the value of
> `doc-view-continuous-mode'.
Can't you simply bind mouse-4/5 to the two new functions?
Bye,
Tassilo
> Index: lisp/doc-view.el
> ===================================================================
> RCS file: /sources/emacs/emacs/lisp/doc-view.el,v
> retrieving revision 1.88
> diff -c -r1.88 doc-view.el
> *** lisp/doc-view.el 17 Jul 2009 19:43:53 -0000 1.88
> --- lisp/doc-view.el 23 Nov 2009 09:45:37 -0000
> ***************
> *** 222,227 ****
> --- 222,236 ----
> :type 'integer
> :group 'doc-view)
>
> + (defcustom doc-view-continuous-mode nil
> + "In Continuous mode reaching the page edge advances to the next/previous page.
> + When non-nil, scrolling a line upward at the bottom edge of the page
> + moves to the next page, and scrolling a line downward at the top edge
> + of the page moves to the previous page."
> + :type 'boolean
> + :group 'doc-view
> + :version "23.2")
> +
> ;;;; Internal Variables
>
> (defun doc-view-new-window-function (winprops)
> ***************
> *** 286,291 ****
> --- 295,304 ----
> (define-key map [remap backward-page] 'doc-view-previous-page)
> (define-key map (kbd "SPC") 'doc-view-scroll-up-or-next-page)
> (define-key map (kbd "DEL") 'doc-view-scroll-down-or-previous-page)
> + (define-key map (kbd "C-n") 'doc-view-next-line-or-next-page)
> + (define-key map (kbd "<down>") 'doc-view-next-line-or-next-page)
> + (define-key map (kbd "C-p") 'doc-view-previous-line-or-previous-page)
> + (define-key map (kbd "<up>") 'doc-view-previous-line-or-previous-page)
> (define-key map (kbd "M-<") 'doc-view-first-page)
> (define-key map (kbd "M->") 'doc-view-last-page)
> (define-key map [remap goto-line] 'doc-view-goto-page)
> ***************
> *** 442,447 ****
> --- 455,492 ----
> (image-bol 1))
> (set-window-hscroll (selected-window) hscroll))))
>
> + (defun doc-view-next-line-or-next-page (&optional n)
> + "Scroll upward by N lines if possible, else goto next page.
> + When `doc-view-continuous-mode' is non-nil, scrolling a line upward at
> + the bottom edge of the page moves to the next page."
> + (interactive "p")
> + (if doc-view-continuous-mode
> + (let ((hscroll (window-hscroll))
> + (cur-page (doc-view-current-page)))
> + (when (= (window-vscroll) (image-next-line n))
> + (doc-view-next-page)
> + (when (/= cur-page (doc-view-current-page))
> + (image-bob)
> + (image-bol 1))
> + (set-window-hscroll (selected-window) hscroll)))
> + (image-next-line 1)))
> +
> + (defun doc-view-previous-line-or-previous-page (&optional n)
> + "Scroll downward by N lines if possible, else goto previous page.
> + When `doc-view-continuous-mode' is non-nil, scrolling a line downward
> + at the top edge of the page moves to the previous page."
> + (interactive "p")
> + (if doc-view-continuous-mode
> + (let ((hscroll (window-hscroll))
> + (cur-page (doc-view-current-page)))
> + (when (= (window-vscroll) (image-previous-line n))
> + (doc-view-previous-page)
> + (when (/= cur-page (doc-view-current-page))
> + (image-eob)
> + (image-bol 1))
> + (set-window-hscroll (selected-window) hscroll)))
> + (image-previous-line n)))
> +
> ;;;; Utility Functions
>
> (defun doc-view-kill-proc ()
next prev parent reply other threads:[~2009-11-23 11:07 UTC|newest]
Thread overview: 39+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-11-10 7:45 bug#4896: DocView: Continuous mode Juri Linkov
2009-11-10 18:03 ` Stefan Monnier
2009-11-12 9:57 ` Juri Linkov
2009-11-12 11:04 ` Tassilo Horn
2009-11-12 11:14 ` Juri Linkov
2009-11-12 13:10 ` Tassilo Horn
2009-11-12 15:49 ` Stefan Monnier
2009-11-12 16:01 ` Tassilo Horn
2009-11-23 9:47 ` Juri Linkov
2009-11-23 11:07 ` Tassilo Horn [this message]
2009-11-23 20:43 ` Juri Linkov
2009-11-24 17:08 ` Juri Linkov
2009-11-24 19:48 ` Stefan Monnier
2009-11-25 17:28 ` Juri Linkov
2009-11-28 22:52 ` Juri Linkov
[not found] ` <mailman.11748.1259452054.2239.bug-gnu-emacs@gnu.org>
2009-11-29 9:27 ` Tassilo Horn
2009-11-29 16:05 ` Juri Linkov
2009-11-29 19:11 ` Tassilo Horn
2009-11-29 22:05 ` Juri Linkov
2009-11-30 7:32 ` Tassilo Horn
2009-11-30 12:04 ` Juri Linkov
2009-11-30 13:36 ` Tassilo Horn
2009-11-30 16:17 ` Juri Linkov
2009-11-24 17:06 ` Juri Linkov
2009-11-23 9:52 ` Juri Linkov
2009-11-23 11:03 ` Tassilo Horn
2009-11-23 21:36 ` Stefan Monnier
2009-11-24 17:06 ` Juri Linkov
2009-12-16 9:23 ` Juri Linkov
2010-02-01 23:30 ` bug#4896: Doc-view-mode with View-mode Juri Linkov
2010-02-02 2:45 ` Stefan Monnier
2010-02-02 22:49 ` Juri Linkov
2010-02-03 2:36 ` Stefan Monnier
2010-02-04 0:01 ` Juri Linkov
2010-02-04 15:43 ` Stefan Monnier
2010-02-04 19:45 ` Juri Linkov
2010-02-04 22:35 ` Stefan Monnier
2022-04-28 12:08 ` bug#4896: DocView: Continuous mode Lars Ingebrigtsen
2022-04-28 17:35 ` Juri Linkov
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=87my2dlcs3.fsf@thinkpad.tsdh.de \
--to=tassilo@member.fsf.org \
--cc=4896@emacsbugs.donarmstrong.com \
--cc=juri@jurta.org \
--cc=monnier@IRO.UMontreal.CA \
/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.