จะเลื่อนทีละบรรทัดใน GNU Emacs ได้อย่างไร?

พูดง่ายๆคือฉันพยายามเลื่อนใน emacs เหมือนในกลุ่มและบรรณาธิการอื่น ๆ ส่วนใหญ่ เมื่อฉันยกตัวอย่างเช่นสองสายจากด้านล่าง / ด้านบนและกดลง / ขึ้น ( Ctrl- p, n, ↑, ↓) มันจะไปเพียงหนึ่งบรรทัดขึ้นหรือลงไม่ได้ครึ่งหน้าจอ

ดูคำแนะนำบางส่วนเกี่ยวกับ EmacsWIki:

• http://www.emacswiki.org/emacs/SmoothScrolling

(setq เลื่อน - ขั้นตอนที่ 1
      เลื่อนแบบอนุรักษ์ 10,000)

หากคุณต้องการวางตำแหน่งหน้าจอให้พอดีคุณสามารถใช้ Ctrl-L

• โดยค่าเริ่มต้นจะวางตำแหน่งบรรทัดปัจจุบันไว้ตรงกลางหน้าจอ

• ESC 0 Ctrl-L วางบรรทัดปัจจุบันที่ด้านบน

ฉันไปงานปาร์ตี้ช้าไปหน่อย แต่ถ้าคุณไม่สนใจที่จะติดตั้งแพ็คเกจการเลื่อนอย่างราบรื่น ( githubมีให้ในMELPA ) อาจเป็นสิ่งที่คุณกำลังมองหา - มันเหมาะกับฉันอย่างแน่นอน

เมื่อคุณติดตั้งแล้วคุณสามารถเปิดสิ่งต่อไปนี้ใน init.el ของคุณ:

(require 'smooth-scrolling)
(smooth-scrolling-mode 1)
(setq smooth-scroll-margin 5)

บรรทัดสุดท้ายเป็นทางเลือก มันเริ่มเลื่อนไปใกล้ขอบหน้าจอแทนที่จะเลื่อนไปที่ขอบจอดังนั้นคุณจึงมีบริบทเล็ก ๆ น้อย ๆ อยู่เสมอ ปรับรสชาติ

วิธีแก้ปัญหาของฉันคือไม่เปลี่ยนการเลื่อนเริ่มต้นของ Emac แต่เป็นการสร้างคำสั่งลำดับคีย์จากมาโคร วิธีนี้ทำให้คุณมีวิธีที่สะดวกในการเลื่อนทีละบรรทัดเมื่อคุณต้องการ ไม่เหมาะ แต่ง่ายสุด มันเกิดขึ้นที่ M- (↓) และ M- (↑) พร้อมใช้งานนั่นคือสิ่งที่ฉันใช้

นี่คือวิธีที่ฉันทำ ขั้นแรกคุณต้องบันทึกมาโครสำหรับการเลื่อนหนึ่งบรรทัดขึ้นและลง

เริ่มต้นมาโคร

C-x ( 

เลื่อนลงมา

C-u 1 C-v

หยุดมาโคร

C-x )

สำหรับการเลื่อนขึ้นให้ใช้

C-u 1 M-v

ถัดไปคุณต้องตั้งชื่อมาโคร

M-x name-last-kbd-macro

ตั้งชื่อเมื่อได้รับแจ้งเช่น:

down-one-line

จากนั้นใช้สิ่งต่อไปนี้เพื่อผูกลำดับคีย์กับชื่อคำสั่งนั้น:

M-x global-set-key

และเมื่อแจ้งให้ใช้สิ่งต่างๆเช่น:

M-(down arrow)

จากนั้นมันจะถามคุณว่าคุณต้องการผูกคำสั่งใดและคุณควรตั้งชื่อที่คุณคิดค้นไว้ก่อนหน้านี้เช่นลงหนึ่งบรรทัด

นี่คือที่ที่ฉันได้รับข้อมูลนี้ คุณยังสามารถดูคำแนะนำด้านล่างและที่อื่น ๆ เกี่ยวกับการเพิ่มมาโครลงในไฟล์. macs

ที่นี่สำหรับคำอธิบายความหมายมาโคร

นี่คือวิธีการควบคุมการเลื่อน

ฉันใช้สิ่งเหล่านี้ใน.emacsไฟล์ของฉันมาตั้งแต่ปี 2000

(global-set-key (quote [M-down]) (quote View-scroll-line-forward))
(global-set-key (quote [M-up]) (quote View-scroll-line-backward)) 

ด้วยวิธีนี้ฉันสามารถรักษาพฤติกรรมเริ่มต้นของ Emacs ไว้ได้ตลอดจนเลื่อนทีละบรรทัดขึ้นอยู่กับสิ่งที่ฉันกำลังทำ

สิ่งนี้ใช้งานได้จนถึง GNU Emacs 22 เป็นอย่างน้อยฉันเพิ่งอัปเกรดเป็น Emacs 24 และพบว่าView-scroll-line-forwardและView-scroll-line-backwardไม่สามารถใช้งานได้อีกต่อไป หลังจากออกล่าฉันพบว่าการเลื่อนขึ้นบรรทัดและเลื่อนลงบรรทัดนั้นทำงานได้ ดังนั้นหากคุณใช้ Emacs 24 คุณสามารถใช้สิ่งนี้ได้

(global-set-key (quote [M-down]) (quote scroll-up-line))
(global-set-key (quote [M-up]) (quote scroll-down-line)) 

ฉันข้าม Emacs 23 เป็นส่วนใหญ่ดังนั้นหากเป็นเวอร์ชันที่คุณใช้อยู่คุณสามารถทดลองกับทั้งสองข้อข้างต้นได้

หมายเหตุ: scroll-up-lineเลื่อนลงหนึ่งบรรทัดเนื่องจากบัฟเฟอร์ถูกย้ายขึ้นหนึ่งบรรทัด

ฉันผูกแป้นลูกศรอีกครั้งเพื่อดำเนินการเลื่อน

(global-set-key [up] (lambda () (interactive) (scroll-down 1)))
(global-set-key [down] (lambda () (interactive) (scroll-up 1)))

(global-set-key [left] (lambda () (interactive) (scroll-right tab-width t)))
(global-set-key [right] (lambda () (interactive) (scroll-left tab-width t)))

Simples ทำสิ่งนี้:

(global-set-key [M-up] (lambda () (interactive) (scroll-up 1)))
(global-set-key [M-down] (lambda () (interactive) (scroll-down 1)))

จากนั้นเมตาเคอร์เซอร์ขึ้นเลื่อนขึ้นและเมตาเคอร์เซอร์ลงเลื่อนลง

QED ไม่แน่ใจว่าคนข้างบนสูบบุหรี่เพราะอะไร!

ฉันมีสิ่งต่อไปนี้ในไฟล์. macs ของฉันเพื่อเปิดใช้งานลักษณะการเลื่อน ctrl-up, ctrl-down ที่ดี ฉันยังใช้สิ่งนี้สำหรับมูสวีล

(defun scroll-down-in-place (n)
  (interactive "p")
  (previous-line n)
  (scroll-down n))

(defun scroll-up-in-place (n)
  (interactive "p")
  (next-line n)
  (scroll-up n))

(global-set-key [mouse-4] 'scroll-down-in-place)
(global-set-key [mouse-5] 'scroll-up-in-place)
(global-set-key [C-up] 'scroll-down-in-place)
(global-set-key [C-down] 'scroll-up-in-place)

ในการเลื่อน "vim" ให้นำสิ่งนี้ไปยังไฟล์. macs ของคุณ:

(defun next-line-and-recenter () (interactive) (next-line) (recenter))
(defun previous-line-and-recenter () (interactive) (previous-line) (recenter))
(global-set-key (kbd "C-n") 'next-line-and-recenter)
(global-set-key (kbd "C-p") 'previous-line-and-recenter)

เพราะมันอาจจะน่ารำคาญที่จะใช้M-up, M-downเพราะมันรบกวน org โหมดซึ่ง overloads คำสั่งเหล่านี้ เพื่อหลีกเลี่ยงปัญหานี้ฉันใช้คำสั่งเหล่านั้นเป็นการส่วนตัวซึ่งรวมM-page-up M-page-down"ที่นี่ฉันกำหนดให้เลื่อนขึ้นและลงเป็น 1 บรรทัด

;;;scroll by `number-of-lines' without the cursor attached to the screen
(global-set-key [M-prior] (lambda () (interactive) (let ((number-of-lines 1))
                                                  (scroll-down number-of-lines)
                                                  (forward-line (- number-of-lines)))))
(global-set-key [M-next] (lambda () (interactive) (let ((number-of-lines 1))
                                                  (scroll-up number-of-lines)
                                                  (forward-line number-of-lines))))

;;;scroll by `number-of-lines' with the cursor attached to the screen
(global-set-key [S-M-prior] (lambda () (interactive) (let ((number-of-lines 1))
                                                  (scroll-down number-of-lines))))
(global-set-key [S-M-next] (lambda () (interactive) (let ((number-of-lines 1))
                                                  (scroll-up number-of-lines))))

M-x customize-variable scroll-conservatively

ตั้งค่าเป็น 1

คุณไม่ต้องการทำสิ่งนี้จริงๆ

หากคุณกำลังมองหาวิธีที่รวดเร็วในการสร้างเอฟเฟกต์คล้ายการเลื่อนให้ป้อนC-nและC-lเลื่อนเคอร์เซอร์ลงตามลำดับจากนั้นจัดกึ่งกลาง

หากคุณเริ่ม emac ใน. xsession ในกรณีของฉันการตั้งค่าการเลื่อนอย่างระมัดระวังเป็น 100+ จะไม่ทำงานหรือเลื่อนขั้นที่ 1 แต่ถ้าคุณเริ่ม emacs หลังจาก X มันก็ใช้ได้

หากคุณไม่สนใจที่จะใช้เมาส์และมีล้อเลื่อนคุณสามารถปรับแต่งตัวแปรเมาส์ - ล้อ - จำนวนเลื่อนได้โดย:

ch v mouse-wheel-scroll-amount (คลิกที่ปรับแต่งเปลี่ยนค่าเป็น "จำนวนบรรทัดเฉพาะ" 1, ApplyAndSave)

หรือเพิ่มไปที่. emacs ในบรรทัด: '(mouse-wheel-scroll-amount' (1 ((shift). 1) ((meta)) ((control). text-scale)))

มีความเป็นไปได้มากมายที่ระบุไว้ที่ https://www.emacswiki.org/emacs/Scrolling