सही मार्जिन पर Emacs सापेक्ष रेखा संख्या

Question

क्या एमाक्स बफर के दाएं मार्जिन पर सापेक्ष रेखा संख्या प्रदर्शित करना संभव है, और बाएं हाशिए पर सामान्य रेखा संख्याएं रखना संभव है?

Answer 1

यह एक प्रारंभिक बिंदु हो सकता है। इस परिभाषाओं को लोड करें और एम-एक्सlinum-mode करें।

(defun linum-relative-right-set-margin() 
    "Make width of right margin the same as left margin" 
    (let* ((win (get-buffer-window)) 
    (width (car (window-margins win)))) 
    (set-window-margins win width width))) 

(defadvice linum-update-current (after linum-left-right-update activate) 
    "Advice to run right margin update" 
    (linum-relative-right-set-margin) 
    (linum-relative-right-update (line-number-at-pos))) 

(defadvice linum-delete-overlays (after linum-relative-right-delete activate) 
    "Set margins width to 0" 
    (set-window-margins (get-buffer-window) 0 0)) 

(defun linum-relative-right-update (line) 
    "Put relative numbers to the right margin" 
    (dolist (ov (overlays-in (window-start) (window-end))) 
    (let ((str (overlay-get ov 'linum-str))) 
     (if str 
     (let ((nstr (number-to-string 
       (abs (- (string-to-number str) line))))) 
     ;; copy string properties 
     (set-text-properties 0 (length nstr) (text-properties-at 0 str) nstr) 
     (overlay-put ov 'after-string 
      (propertize " " 'display `((margin right-margin) ,nstr)))))))) 

स्क्रीनशॉट