วิธีการจัดแนวรายการบางอย่างในแบบจำลองใช่ไหม?

รับการกำหนดค่า modeline ดังต่อไปนี้:

(setq-default mode-line-format
   (list
    ;; Current buffer name
    "%b "
    ;; Major mode
    "[%m] "
    ;; Modified status
    "[%*] "
    ;; Cursor position
    "Line: %l/%i Column: %c"))

ฉันต้องการให้รายการสุดท้ายจัดเรียงชิดขวา

เช่นเดียวกับคำตอบในความคิดเห็นคุณสามารถทำได้ด้วยตัวเองโดยการเขียนโค้ดเพื่อคืนค่าสตริงที่เว้นระยะ

นี่คือวิธีง่ายๆที่รองรับเฉพาะข้อความชิดซ้ายและขวาที่ใช้กับข้อกำหนดของคุณ

;; write a function to do the spacing
(defun simple-mode-line-render (left right)
  "Return a string of `window-width' length containing LEFT, and RIGHT
 aligned respectively."
  (let* ((available-width (- (window-width) (length left) 2)))
    (format (format " %%s %%%ds " available-width) left right)))


;; use the function in conjunction with :eval and format-mode-line in your mode-line-format
(setq mode-line-format
      '((:eval (simple-mode-line-render
                ;; left
                (format-mode-line "%b [%m] [%*]")
                ;; right
                (format-mode-line "Line: %l/%i Column: %c")))))

มันจบลงด้วยการมีลักษณะเช่นนี้:

โปรดทราบว่าฉันใช้รูปแบบบรรทัดรูปแบบของคุณตามที่คุณระบุ แต่ฉันเชื่อว่าคุณกำลังใช้% i ไม่ถูกต้องซึ่งพิมพ์ขนาดไบต์ของบัฟเฟอร์ไม่ใช่จำนวนบรรทัด คุณสามารถใช้สิ่งที่ต้องการ(line-number-at-pos (point-max))รับจำนวนบรรทัดในบัฟเฟอร์ของคุณ

เพื่อขยายคำตอบ @ Jordon-Biondo %และแก้ไขข้อผิดพลาดการแสดง

ตัวอย่างนี้แสดงให้เห็นว่าตัวแปรโหมดโหมดสามารถใช้กับการจัดตำแหน่งได้อย่างไรซึ่งใช้เวลาพอสมควรในการคิด

(defun simple-mode-line-render (left right)
  "Return a string of `window-width' length containing LEFT, and RIGHT aligned respectively."
  (let* ((available-width (- (window-total-width) (+ (length (format-mode-line left)) (length (format-mode-line right))))))
    (append left (list (format (format "%%%ds" available-width) "")) right)
    )
  )

(setq-default
  mode-line-format
  '
  (
    (:eval
      (simple-mode-line-render
        ;; left
        (quote ("%e " mode-line-buffer-identification " %l : %c" evil-mode-line-tag "[%*]"))
        ;; right
        (quote ("%p " mode-line-frame-identification mode-line-modes mode-line-misc-info))
        )
      )
    )
  )
)

ตัวอย่างผลลัพธ์:

init.el 1 : 0 <N> [-] Top -F1 (Emacs-Lisp WK ivy drag AC GitGutter)

สิ่งนี้ไม่ได้รับการสนับสนุนทันที แต่smart-mode-lineแพ็คเกจนี้ไม่รองรับ คุณสามารถใช้แพคเกจนั้นหรือถ้ามันทำได้มากกว่าที่คุณต้องการแยกเพียงบิตที่ใช้คุณสมบัติที่คุณขอ

ในขณะที่เป็นไปได้ที่จะทำการจัดตำแหน่ง 'ถูกต้อง' ซ้าย / ขวาเพิ่มวิธีอื่นเนื่องจากการประเมินซ้ายและขวาเพียงแค่สำหรับการจัดตำแหน่งนั้นค่อนข้างหนักเมื่อมีทางเลือกที่ง่ายกว่า

หากคุณรู้ว่าคุณต้องการพื้นที่ด้านขวาในปริมาณที่ จำกัด คุณสามารถกรอกได้ทั้งหมดยกเว้นอักขระNตัวซึ่งทำงานได้ตราบใดที่ขนาดที่เหมาะสมคือความยาวคงที่

การจัดรูปแบบสตริง%12sและที่คล้ายกันสามารถนำมาใช้เพื่อให้แน่ใจว่าสตริงไม่ได้ปรับขนาด

(defun mode-line-fill (face reserve)
  "Return empty space using FACE and leaving RESERVE space on the right."
  (when
    (and window-system (eq 'right (get-scroll-bar-mode)))
    (setq reserve (- reserve 3)))
  (propertize " "
    'display
    `((space :align-to (- (+ right right-fringe right-margin) ,reserve)))
    'face face
    )
  )

(setq-default
  mode-line-format
  (list
    ;; left align
    "%e %b [%*]"
    ;; right align
    (mode-line-fill 'mode-line 18)
    "%6l, %4c, %8p"
    )
  )
)

เช่น:

CMakeLists.txt [-] 1590, 0, 94%

โปรดทราบว่าวิธีนี้ใช้งานได้ดีถ้าคุณต้องการแสดงรายการบางรายการทางด้านขวามือเช่นเดียวกับตัวอย่างนี้ - บรรทัด / คอลัมน์ / เปอร์เซ็นต์ แสดงโหมดย่อยทั้งหมดเช่นทำงานได้ไม่ดี